WELCOME TO MOSES Rev devlop ============================ This Program is licensed for the exclusive use of Ultramarine inc. Copying of this program or use by anyone other than an employee of the above firm without written consent of Ultramarine is strictly prohibited. +++ M A I N +++ =============== >&dimensions -dimen feet kips >&device -g_default device >&set ano = -ano yes >&set ano = >&set plot = .true. >&set Hull = .true. >&set B1 = .true. >&set B2 = .true. >&set B3 = .true. >&set B4 = .true. >&set B5 = .true. >&set B6 = .true. >&set B7 = .true. >&set B8 = .true. >&set B9 = .true. >&set B10 = .true. >&set S1 = .true. >&set S2 = .true. >&set S3 = .true. >&set LEG = .true. >&set LEG1 = .true. >&set LEG2 = .true. >&set L1 = .true. >&set L2 = .true. >&set L3 = .true. >&set L4 = .true. >&set L5 = .true. >&set L6 = .true. >&set M1 = .true. >&set M2 = .true. >&set M3 = .true. >&set M4 = .true. >&set M5 = .true. >&surface +++ S U R F A C E +++ ===================== >block M1 +++ B L O C K +++ ================= >plane -13-4/12 -rect 0 10 92 >plane 114+4/12 -rect 0 10 185 >plane 139 -rect 0 10 185 >plane 208 -rect 0 10 185 >end_block +++ S U R F A C E +++ ===================== >block B1 +++ B L O C K +++ ================= >plane -15 -rect -2 12 49.25 >plane 12 -rect -2 12 49.25 >plane 12 -rect -2 12 40.25 >plane 33 -rect -2 12 40.25 >plane 33 -rect -2 12 50+1.5/12 >plane 114+4/12 -rect -2 12 70 >plane 114+4/12 -rect -2 12 111.5 >plane 148+4/12 -rect -2 12 111.5 >plane 148+4/12 -rect -2 12 70 >plane 220 -rect -2 12 70 >end_block +++ S U R F A C E +++ ===================== >block M2 +++ B L O C K +++ ================= >plane 33 -rect -2 12 50+1.5/12 >plane 114+4/12 -rect -2 12 70 >end_block +++ S U R F A C E +++ ===================== >block M3 +++ B L O C K +++ ================= >plane 148+4/12 -rect -2 12 70 >plane 220 -rect -2 12 70 >end_block +++ S U R F A C E +++ ===================== >differ M1 M2 M4 >differ M4 M3 M5 >block Leg -loc 0 0 0 0 -90 1 -cs_wind 0.79 0.79 0 +++ B L O C K +++ ================= >plane -5 20 -e_circ 0 0 11.2/2 0 10 19 >end_block +++ S U R F A C E +++ ===================== >move_block Leg L1 12 0 0 >move_block Leg L2 139 55 0 >move_block Leg L3 139 -55 0 >differ M5 L1 B2 >differ B2 L2 B3 >differ B3 L3 Mat >&title BARUNA V mat >su_show Mat +++ I L L U S T R A T E +++ =========================== +++ S U R F A C E +++ ===================== >differ M1 B1 F1 >differ F1 L2 F2 >differ F2 L3 F3 >&title BARUNA V permanently flooded compartments in mat >su_show F3 +++ I L L U S T R A T E +++ =========================== +++ S U R F A C E +++ ===================== >block C1 +++ B L O C K +++ ================= >plane -13-4/12 -rect 0 10 49.25 >plane 12.001 -rect 0 10 49.25 >plane 12.001 -rect 0 10 40.25 >plane 33 -rect 0 10 40.25 >end_block +++ S U R F A C E +++ ===================== >differ C1 L1 1C >&title BARUNA V mat compartment 1C >su_show 1C +++ I L L U S T R A T E +++ =========================== +++ S U R F A C E +++ ===================== >block 3C +++ B L O C K +++ ================= >plane 114+4/12 -rect 0 10 70 >plane 148+4/12 -rect 0 10 70 >end_block +++ S U R F A C E +++ ===================== >&title BARUNA V mat compartment 3C >su_show 3C +++ I L L U S T R A T E +++ =========================== +++ S U R F A C E +++ ===================== >block B4 +++ B L O C K +++ ================= >plane 114+4/12 -rect 0 10 20.75 >plane 148+4/12 -rect 0 10 20.75 >end_block +++ S U R F A C E +++ ===================== >move_block B4 P3 0 -35-20.75/2 0 >move_block B4 S3 0 35+20.75/2 0 >differ P3 L3 3P >&title BARUNA V mat compartment 3P >su_show 3P +++ I L L U S T R A T E +++ =========================== +++ S U R F A C E +++ ===================== >differ S3 L2 3S >&title BARUNA V mat compartment 3S >su_show 3S +++ I L L U S T R A T E +++ =========================== +++ S U R F A C E +++ ===================== >list_blocks +++ B L O C K S +++ =================== 1C 3C 3P 3S B1 B2 B3 B4 C1 F1 F2 F3 L1 L2 L3 LEG M1 M2 M3 M4 M5 MAT P3 S3 >delete B1 B2 B3 B4 M1 M2 M3 M4 M5 LEG L1 L2 L3 C1 F1 F2 P3 S3 Hull >rename @ -point *M -panel M -sort xyz -equivalent 0.01 >emit @ -part leg_cb >emit Mat -use_name -piece '-cs_wind 1 1 1 -cs_curr 1 1 1 ' >emit F3 -use_name -compart "-note 'flooded' " -piece '-perm -0.03' >emit 1C -use_name -compart "-note 'Mat 1C' " -piece '-perm -0.97' >emit 3C -use_name -compart "-note 'Mat 3C' " -piece '-perm -0.97' >emit 3P -use_name -compart "-note 'Mat 3P' " -piece '-perm -0.97' >emit 3S -use_name -compart "-note 'Mat 3S' " -piece '-perm -0.97' >end_&surface +++ M A I N +++ =============== MOSES Finished Normally ========================= CP Time 2.16 ======================== Total Units 2.16 ========================