PP constraint

Post Reply
nbastias
Posts: 3
Joined: Tue Apr 09, 2024 1:06 pm

PP constraint

Post by nbastias » Tue Apr 09, 2024 2:15 pm

Dear STKO team,

I am performing a dynamic analysis of a slope considering pore pressure generation through SSPquadUP elements. Given the geometry and subsequent meshing, it is not possible to define the PP constraint under the surface. Attached is a figure of the geometry and the approximate location where the PP constraint should be (I also attach .txt with the coordinates of the constraint). Is there any way to address this issue without having to define subsections in the geometry?, this because triangular elements would be generated. I also attach the .scd, thank you in advance.

Best regards
Attachments
pp_constraint.zip
(1.51 MiB) Downloaded 219 times
fig3.png
fig3.png (98.49 KiB) Viewed 1140 times

STKO Team
Posts: 3069
Joined: Tue Oct 29, 2019 8:45 am

Re: PP constraint

Post by STKO Team » Thu May 09, 2024 12:23 pm

If you don't want to cut the geometry you cannot select that sub-surface to assign the condition.
In this case you can insert a customCommand in which you can write a Tcl script to loop over all nodes and based on their spatial location you can decide whether to assign the condition or not.

nbastias
Posts: 3
Joined: Tue Apr 09, 2024 1:06 pm

Re: PP constraint

Post by nbastias » Tue Aug 27, 2024 6:16 pm

I understand, can you please help me a little with the general structure of this customCommand?

STKO Team
Posts: 3069
Joined: Tue Oct 29, 2019 8:45 am

Re: PP constraint

Post by STKO Team » Wed Aug 28, 2024 8:28 am

A little hint:

Code: Select all

foreach ntag [getNodeTags] {
   set npos [nodeCoord $ntag]
   set nx [expr double([lindex $npos 0])]
   set ny [expr double([lindex $npos 1])]
   set nz [expr double([lindex $npos 2])]
   puts "Note $ntag @ ($nx $ny $nz)"
   # here you can put an if-condition checking the coordinates to assign an sp 
}

Post Reply