$ $**************************************** macros $ ¯o lc_doit name case num = 1 &env %name &apply -force -fract @ 0 %case %num lcase -static %name &endmacro ¯o nodlod name node x = 0 y = 0 z = 0 mx = 0 \ my = 0 mz = 0 &describe load %node %node %name %node %x %y %z %mx %my %mz &endmacro &m_act nodlod null $ $ $**************************************** dimensions $ &dimen -dim feet kips $ $**************************************** describe body $ &describe body test &default -nuse @ *bq3 -5 -0 20 *bq4 5 -0 20 $ *qp3 -5 -5 10 *qp4 5 -5 10 *qp1 5 5 10 *qp2 -5 5 10 $ *tp3 -5 -5 00 *tp4 5 -5 00 *tp1 5 5 00 *tp2 -5 5 00 ~fixl fix x y z rx ry rz ~fixr fix x z rx ry ~fixa fix x y z rx ry rz ~pri pri .325 10 rest ~fixr *qp2 rest ~fixl *qp3 rest ~fixl *tp2 rest ~fixr *tp3 rest ~fixa *bq3 ~plate plate 1 ~spa tube 10 1 -emod 1 ~bea pri 10*12 1 beam ~spa *qp2 *tp2 beam ~spa *qp3 *tp3 beam ~spa *qp3 *bq3 beam ~bea *bq3 *bq4 plate q ~plate *qp3 *qp4 *qp1 *qp2 plate t1 ~plate *tp3 *tp4 *tp2 plate t2 ~plate *tp2 *tp1 *tp4 sp_plate spq ~plate -ele q *qp3 *qp4 *qp1 *qp2 sp_plate sp2 ~plate -ele t1 *tp3 *tp4 *tp2 sp_plate sp3 ~plate -ele t2 *tp2 *tp1 *tp4 &set force = -100 0000 100 nodlod #load *tp4 %force%/2 nodlod #load *tp1 %force%/2 nodlod #load *qp1 %force%/2 nodlod #load *qp4 %force%/2 nodlod #load *bq4 %force%