$ $**************************************** 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 @ &set force = 1000 0000 100 $ *f1 5 5 20 *f2 -5 5 20 *f3 -5 -5 20 *f4 5 -5 20 $ *y1 5 5 00 *y2 -5 5 00 *y3 -5 -5 00 *y4 5 -5 00 $ *x1 5 5 10 *x2 -5 5 10 *x3 -5 -5 10 *x4 5 -5 10 $ ~fixl fix x y z rx ry rz ~fixr fix x z rx ry ~cp plate 1 3 10 10 ~fp plate 1 ~spa pri 10*12 1 -emod 1 $ beam s ~spa *x3 *y3 *f3 $ &set cx = .true. &set cy = .true. &set fp = .true. $ &if %cx &then rest ~fixl *x2 rest ~fixr *x3 plate cx -dir_loc nodes ~cp *x3 *x4 *x1 *x2 nodlod #load *x1 %force%/2 nodlod #load *x4 %force%/2 &endif $ &if %cy &then rest ~fixl *y2 rest ~fixr *y3 plate cy -dir_loc nodes ~cp *y1 *y4 *y3 *y2 nodlod #load *y1 %force%/2 nodlod #load *y4 %force%/2 &endif $ &if %fp &then rest ~fixl *f2 rest ~fixr *f3 plate fp -dir_loc nodes ~fp *f1 *f4 *f3 *f2 nodlod #load *f1 %force%/2 nodlod #load *f4 %force%/2 &endif