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 >&title Generate a Three Leg Jackup >&device -g_default device >&set ano = >&set plot = .true. >&surface +++ S U R F A C E +++ ===================== >block basic_hull +++ B L O C K +++ ================= >plane 0 -cart 0 8 8+4/12 8 30 8 \ 51.5 8 51.5 13 40 13.01 >plane 1 -cart 0 6+(11+7/8)/12 8+4/12 7+(13/16)/12 30 7+(3+1/2)/12 \ 51.5 7+(7+3/16)/12 51.5 13 40 13.01 >plane 2 -cart 0 5+(11+7/8)/12 8+4/12 6+(1+9/16)/12 30 6+(7+3/16)/12 \ 51.5 7+(2+3/8)/12 51.5 13 40 13.01 >plane 3 -cart 0 4+(11+1/2)/12 8+4/12 5+(2+7/16)/12 30 5+(11+1/16)/12 \ 51.5 6+(9+9/16)/12 51.5 13 40 13.01 >plane 4 -cart 0 3+(11+5/16)/12 8+4/12 4+(3+1/4)/12 30 5+(3+1/4)/12 \ 51.5 6+(4+3/4)/12 51.5 13 40 13.01 >plane 5 -cart 0 2+(11+7/16)/12 8+4/12 3+4/12 30 4+(7+7/8)/12 \ 51.5 6 51.5 13 40 13.01 >plane 6 -cart 0 1+(11+3/16)/12 8+4/12 2+5/12 30 4+1/12 \ 51.5 5+(7+5/16)/12 51.5 13 40 13.01 >plane 7 -cart 0 1+(2+5/16)/12 8+4/12 1+(8+11/16)/12 30 3+(6+3/4)/12 \ 51.5 5+(2+13/16)/12 51.5 13 40 13.01 >plane 8 -cart 0 0+(8+5/16)/12 8+4/12 1+(3+11/16)/12 30 3+(1+1/8)/12 \ 51.5 4+(10+11/16)/12 51.5 13 40 13.01 >plane 9 -cart 0 0+(2+15/16)/12 8+4/12 0+(11+5/8)/12 30 2+(8+3/16)/12 \ 51.5 4+7/12 51.5 13 40 13.01 >plane 9.5 -cart 0 0+(7/16)/12 8+4/12 0+(9+5/8)/12 30 2+6/12 \ 51.5 4+(5+7/16)/12 51.5 13 40 13.01 >plane 9.5 -cart 0 0+(7/16)/12 8+4/12 0+(9+5/8)/12 30 2+6/12 30.1 2+6/12 \ 51.5 4+(5+7/16)/12 51.5 13 40 13.01 >plane 10 -cart 0 0 8+4/12 0+(7+11/16)/12 30 2+4/12 30 2+(6+1/2)/12 \ 51.5 4+4/12 51.5 13 40 13.01 >plane 11 -cart 0 0 8+4/12 0+(3+13/16)/12 30 2+(1/2)/12 30 \ 2+(7+9/16)/12 51.5 4+(1+11/16)/12 51.5 13 40 13.01 >plane 12 -cart 0 0 8+4/12 0 30 1+(9+5/8)/12 30 2+(8+5/8)/12 \ 51.5 3+(11+15/16)/12 51.5 13 40 13.01 >plane 12 -cart 0 0 30 1+(9+5/8)/12 30 2+(8+5/8)/12 51.5 3+(11+15/16)/12 \ 51.5 13 40 13.01 >plane 13 -cart 0 0 30 1+(7+1/16)/12 30 2+(9+11/16)/12 51.5 3+(10+5/8)/12 \ 51.5 13 40 13.01 >plane 14 -cart 0 0 30 1+(4+3/4)/12 30 2+(10+3/4)/12 51.5 3+(9+5/8)/12 \ 51.5 13 40 13.01 >plane 15 -cart 0 0 30 1+(2+1/2)/12 30 2+(11+3/4)/12 51.5 3+(8+11/16)/12 \ 51.5 13 40 13.01 >plane 16 -cart 0 0 30 1+(3/16)/12 30 3+(13/16)/12 51.5 3+(7+3/4)/12 \ 51.5 13 40 13.01 >plane 17 -cart 0 0 30 (9+13/16)/12 30 3+(1+7/8)/12 51.5 3+(6+7/8)/12 \ 51.5 13 40 13.01 >plane 18 -cart 0 0 30 (7+7/16)/12 30 3+3/12 51.5 3+6/12 \ 51.5 13 40 13.01 >plane 19 -cart 0 0 30 5/12 30 3+4/12 51.5 3+5/12 \ 51.5 13 40 13.01 >plane 19.5 -cart 0 0 30 5/12 30 3+4/12 51.5 3+5/12 \ 51.5 13 40 13.01 >plane 19.5 -cart 0 0 30 5/12 30 6+(3+7/8)/12 34+11/12 7+1.5/12 51.5 \ 7+1.5/12 51.5 13 40 13.01 >plane 20 -cart 0 0 30 (2+1/2)/12 30 6+4/12 35+4/12 7+2/12 51.5 \ 7+2/12 51.5 13 40 13.01 >plane 21 -cart 0 0 30 0 30 6+4/12 35+4/12 7+3/12 51.5 \ 7+3/12 51.5 13 40 13.01 >plane 5*5 -cart 0 0 30 0 30 6+4/12 37+10/12 7+7/12 51.5 \ 7+7/12 51.5 13 40 13.01 >plane 6*5 -cart 0 0 30 0 30 6+4/12 40+4/12 8 51.5 8 \ 51.5 13 40 13.01 >plane 7*5 -cart 0 0 30 0 30 6+4/12 40+4/12 8 51.5 8 \ 51.5 13 40 13.01 >plane 8*5 -cart 0 0 30 0 30 6+4/12 40+4/12 8 51.5 8 \ 51.5 13 40 13.01 >plane 9*5 -cart 0 0 30 0 30 6+4/12 37+10/12 7+7/12 51.5 \ 7+7/12 51.5 13 40 13.01 >plane 10*5 -cart 0 0 30 0 30 6+4/12 35+3/12 7+2/12 51.5 \ 7+2/12 51.5 13 40 13.01 >plane 11*5 -cart 0 0 30 0 30 3+(7+5/8)/12 30.1 3+(7+5/8)/12 51.5 \ 3+(7+5/8)/12 51.5 13 40 13.01 >plane 11*5 -cart 0 0 30 0 30 3+(7+5/8)/12 51.5 3+(7+5/8)/12 51.5 \ 13 40 13.01 >plane 12*5 -cart 0 0 30 0 30+1/12 0 51.5 0 51.5 \ 13 40 13.01 >plane 12*5 -rect 0 13 2*(51.5) >plane 13*5 -rect 0 13 2*(51.5) >plane 14*5 -rect 0 13 2*(51.5) >plane 23*5 -rect 0 13 2*(37+3/12) >plane 27*5 -cart 6 7+3/12 31 7+3/12 31 13 6 13.01 >plane 29*5 -cart 6 7+11/12 20+5/12 7+11/12 20+5.5/12 13 6 13.01 >plane 156.5 -cart 6 8 4+4/12 8 8+4/12 13 6 13.01 >end_block +++ S U R F A C E +++ ===================== >&subtitle Basic Hull >su_show basic_hull >block Port_Leg -loc 7*5 -(30+15) 2 0 -90 +++ B L O C K +++ ================= >plane -2 15 -e_circ 0 0 8.75/2 0 10 19 >end_block +++ S U R F A C E +++ ===================== >block Stbd_Leg -loc 7*5 (30+15) 2 0 -90 +++ B L O C K +++ ================= >plane -2 15 -e_circ 0 0 8.75/2 0 10 19 >end_block +++ S U R F A C E +++ ===================== >block Aft_Leg -loc 0.5+30*5 0 2 0 -90 +++ B L O C K +++ ================= >plane -2 15 -e_circ 0 0 8.75/2 0 10 19 >end_block +++ S U R F A C E +++ ===================== >block Crane -loc 17*5 -(30+16.75) 0 0 -90 +++ B L O C K +++ ================= >plane 0.02 12.98 -e_circ 0 0 4/2 0 10 19 >end_block +++ S U R F A C E +++ ===================== >&set eps = .03 >&set w = 2.5 >block t1 +++ B L O C K +++ ================= >plane -(1+8/12) -cart 2.5 0 2.5 1.6 2.5 8 >plane 0 -cart 2.5 -(1+7/12) 2.5 1.6 2.5 8 >plane 1.6 -cart 2.5 -(1+7/12) 2.5 1.6 2.5 8 >plane 10 -cart 2.5 -(1+7/12) 2.5 1.6 2.5 8 >end_block +++ S U R F A C E +++ ===================== >block t2 -loc 0 -2.51 0 5 0 90 +++ B L O C K +++ ================= >plane 0-.03 5+.03 -e_circ 0 0 (1+7/12) 0 20 10 >end_block +++ S U R F A C E +++ ===================== >union t1 t2 T3 >block T4 -loc 0 -3 0 2 0 90 +++ B L O C K +++ ================= >plane -1 6 -e_circ 0 0 1 0 20 10 >end_block +++ S U R F A C E +++ ===================== >difference T3 T4 T5 >move_block T5 p_thrust 4 -(23+4/12) 2 0 -10 0 >move_block T5 s_thrust 4 (23+4/12) 2 0 -10 0 >block Rack +++ B L O C K +++ ================= >plane -5.125 +5.125 -rect -2 17 (1+2/12) >end_block +++ S U R F A C E +++ ===================== >move_block Rack Rack1 7*5 -(30+15) 0 >move_block Rack Rack2 7*5 (30+15) 0 >move_block Rack Rack3 0.5+30*5 0 0 >su_show basic_hull port_leg >differ basic_hull Port_Leg B2 >differ B2 Stbd_Leg B3 >differ B3 Aft_Leg B4 >&subtitle Hull with leg wells removed >differ B4 Rack1 B5 >differ B5 Rack2 B6 >differ B6 Rack3 B7 >su_show B7 >&subtitle Hull with leg wells removed and crane pedestal added >union B7 Crane B8 >su_show B8 >su_show b8 p_thrust s_thrust >union B8 p_thrust B9 >union B9 s_thrust jackup >&subtitle Hull Complete >su_show Jackup >rename Jackup -point *JH -panel JP -sort xyz -equivalent 0.01 >emit Jackup -part jackup >emit Jackup -use_name -piece "-cs_wind 1 1 1 -cs_curr 1 1 1 -dif 3ddif" >end_&surface +++ M A I N +++ =============== MOSES Finished Normally ========================= CP Time 7.37 ======================== Total Units 7.37 ========================