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