$ $ $*************************************** macro $ ¯o look name &set title = %name &status curves %name -plot set_var nc -num_col vl view @ -hard &if %nc .gt. 2 &then plot 1 2 -rax 3 -n &else plot 1 2 -n &endif end &endmacro $ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $ $ $ ---------- MODEL FOR BOX ------------ $ $ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $ $ $********************************************* curv $ &data curves am_press cow \ -0.00 0.00 0.00 0.00 \ 1.67 1.29 1.29 11.67 \ 2.50 1.91 1.91 11.67 \ 3.33 2.53 2.53 11.67 \ 4.17 3.13 3.13 11.67 \ 5.00 3.72 3.72 11.67 \ 5.83 4.30 4.30 11.67 \ 6.67 4.87 4.87 11.67 \ 7.50 5.42 5.42 11.67 \ 8.33 5.97 5.97 11.67 \ 9.17 6.50 6.50 11.67 \ 10.00 7.02 7.02 11.67 \ 10.83 7.53 7.53 11.67 \ 11.67 8.03 8.03 11.67 \ 12.50 8.52 8.52 11.67 \ 13.33 8.99 8.99 11.67 \ 14.17 9.46 9.46 11.67 \ 15.00 9.91 9.91 11.67 \ 15.83 10.36 10.36 11.67 \ 16.67 10.79 10.79 11.67 \ 17.50 11.21 11.21 11.67 \ 18.33 11.62 11.62 11.67 \ 19.17 12.02 12.02 11.67 \ 20.00 12.41 12.41 11.67 \ 20.83 12.78 12.78 11.67 \ 21.67 13.13 13.13 11.67 \ 22.50 13.48 13.48 11.67 \ 23.33 13.81 13.81 11.67 \ 24.17 14.13 14.13 11.67 \ 25.00 14.44 14.44 11.67 \ 25.83 14.44 14.44 11.67 $ $********************************************* DEFINE BODY $ &DESCRIBE BODY Test $ $********************************************* weight of box $ #WEIGHT 2048 12 12 12 -CEN 20 0 -33.33 $ $********************************************* diffraction mesh $ &describe piece TEst -difty 3ddif -cs_curr 1 1 1 -cs_wind 1 1 1 -amass 1 cow $ $********************************************* define *vertices $ *v001 .0000 .0000 12.5000 *v002 .0000 .0000 25.0008 *v003 .0000 20.0000 25.0000 *v004 .0000 20.0000 .0000 *v005 .0000 10.0000 -.0004 *v006 .0000 .0000 -.0008 *v007 .0000 -10.0000 -.0004 *v008 .0000 -20.0000 .0000 *v009 .0000 -20.0000 25.0000 *v010 10.0000 .0000 25.0008 *v011 10.0000 20.0000 25.0000 *v012 10.0000 20.0000 .0000 *v013 10.0000 10.0000 -.0004 *v014 10.0000 .0000 -.0008 *v015 10.0000 -10.0000 -.0004 *v016 10.0000 -20.0000 .0000 *v017 10.0000 -20.0000 25.0000 *v018 20.0000 .0000 25.0008 *v019 20.0000 20.0000 25.0000 *v020 20.0000 20.0000 .0000 *v021 20.0000 10.0000 -.0004 *v022 20.0000 .0000 -.0008 *v023 20.0000 -10.0000 -.0004 *v024 20.0000 -20.0000 .0000 *v025 20.0000 -20.0000 25.0000 *v026 30.0000 .0000 25.0008 *v027 30.0000 20.0000 25.0000 *v028 30.0000 20.0000 .0000 *v029 30.0000 10.0000 -.0004 *v030 30.0000 .0000 -.0008 *v031 30.0000 -10.0000 -.0004 *v032 30.0000 -20.0000 .0000 *v033 30.0000 -20.0000 25.0000 *v034 40.0000 .0000 25.0008 *v035 40.0000 20.0000 25.0000 *v036 40.0000 20.0000 .0000 *v037 40.0000 10.0000 -.0004 *v038 40.0000 .0000 -.0008 *v039 40.0000 -10.0000 -.0004 *v040 40.0000 -20.0000 .0000 *v041 40.0000 -20.0000 25.0000 *v042 40.0000 .0000 12.5000 $ $********************************************* define panels $ panel p01 *v002 *v001 *v004 *v003 panel p02 *v004 *v001 *v006 *v005 panel p03 *v006 *v001 *v008 *v007 panel p04 *v008 *v001 *v002 *v009 panel p05 *v002 *v003 *v011 *v010 panel p06 *v003 *v004 *v012 *v011 panel p07 *v004 *v005 *v013 *v012 panel p08 *v005 *v006 *v014 *v013 panel p09 *v006 *v007 *v015 *v014 panel p10 *v007 *v008 *v016 *v015 panel p11 *v008 *v009 *v017 *v016 panel p12 *v009 *v002 *v010 *v017 panel p13 *v010 *v011 *v019 *v018 panel p14 *v011 *v012 *v020 *v019 panel p15 *v012 *v013 *v021 *v020 panel p16 *v013 *v014 *v022 *v021 panel p17 *v014 *v015 *v023 *v022 panel p18 *v015 *v016 *v024 *v023 panel p19 *v016 *v017 *v025 *v024 panel p20 *v017 *v010 *v018 *v025 panel p21 *v018 *v019 *v027 *v026 panel p22 *v019 *v020 *v028 *v027 panel p23 *v020 *v021 *v029 *v028 panel p24 *v021 *v022 *v030 *v029 panel p25 *v022 *v023 *v031 *v030 panel p26 *v023 *v024 *v032 *v031 panel p27 *v024 *v025 *v033 *v032 panel p28 *v025 *v018 *v026 *v033 panel p29 *v026 *v027 *v035 *v034 panel p30 *v027 *v028 *v036 *v035 panel p31 *v028 *v029 *v037 *v036 panel p32 *v029 *v030 *v038 *v037 panel p33 *v030 *v031 *v039 *v038 panel p34 *v031 *v032 *v040 *v039 panel p35 *v032 *v033 *v041 *v040 panel p36 *v033 *v026 *v034 *v041 panel p37 *v034 *v035 *v036 *v042 panel p38 *v036 *v037 *v038 *v042 panel p39 *v038 *v039 *v040 *v042 panel p40 *v040 *v041 *v034 *v042 $ $********************************************* define compart $ &describe compartment cow pgen cow -perm -1.5 -diftype none plane 0 20 -rect 0 10 10 end