Hallo,

im trying to make parameterized elliptical geometry with teddy script. So that the location of nodal support is also changing. I finished prog sofismsha to define nodal geometry, and im using looping @key *node* to search for nodes via coordinate value.

My question is after i found the node number, i want to assign the support to it with using again prog sofismha. I am aware that i need to import the previous sofismha or i always get error, but im not sure about it. Maybe there is some suggestions

Thanks

I.A

+prog sofimsha urs:10

head Def Support by finding Z location

$SEARCH FOR NODES VIA COORDINAT VALUES

let#cdb_ier 0

let#node 0

@key node

loop 999

loop 999

let#next @nr

prt#next

prt#cdb_ier

if #cdb_ier<2

let#xyz @xyz,@(xyz+1),@(xyz+2)

prt#xyz

if (#xyz(0)>0)&(#xyz(1)==1)&(abs(#xyz(2)-#point_z)<0.01)

let#cdb_ier 5

let#node #next

endif

endif

endloop #cdb_ier<2

endloop #cdb_ier<2

if #node>0

let#zz #node

endif

$

impo

node no #zz fix PZ $fix at support nodes

end