$ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $ $ $ ---------- COMMANDS TO ANALYZE A MOORED BARGE -------- $ $ This set of commands will perform an analysis of a moored barge. $ A simple 4 point mooring arrangement is defined and the anchors are $ repositioned to achieve a desired pretension. The Connector Design $ menu is then entered to produce design type information. Next, a $ frequency domain analysis is performed, and finally a time domain $ simulation. $ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $ $ $********************************************* SET BASIC PARAMETERS $ &dimen -DIMEN FEET KIPS &TITLE Sample of Multi-Point Mooring Fatigue $ $********************************************* Read Model $ INMODEL &DESCRIBE BODY TBRG $ $********************************************* Set Initial Condition $ &INSTATE -CONDITION TBRG 9 0 0 $ $********************************************* Define Mooring Lines $ MEDIT *MLA 400 50 20 *MLB 400 -50 20 *MLC 0 -50 20 *MLD 0 50 20 ~WIRE b_cat 3 -depanc 500 -len 4000 -buoydia 0 -wtplen .0125 \ -c_sn wire CONNECTOR a -ANCHOR -45 20 ~WIRE *MLB CONNECTOR b -ANCHOR -90 20 ~WIRE *MLB CONNECTOR c -ANCHOR -90 20 ~WIRE *MLC CONNECTOR d -ANCHOR -135 20 ~WIRE *MLC CONNECTOR e -ANCHOR 135 20 ~WIRE *MLD CONNECTOR f -ANCHOR 90 20 ~WIRE *MLD CONNECTOR g -ANCHOR 90 20 ~WIRE *MLA CONNECTOR h -ANCHOR 45 20 ~WIRE *MLA END $ $********************************************* Move Anchors $ &connector @ -a_tension 100 &dcptime Time to Connect $ $********************************************* Frequency Domain $ hydrodynamics g_pressure -heading 90 135 180 a_mdrift TBRG -md_phase 90 end $ $********************************************* define environments $ &data environment environment env1 -duration 0.03 -sea issc 180 22. 10.317 -use_mean no environment env2 -duration 0.03 -sea issc 180 26. 11.403 -use_mean no environment env3 -duration 0.03 -sea issc 090 22. 10.317 -use_mean no environment env4 -duration 0.03 -sea issc 090 26. 11.403 -use_mean no environment env5 -duration 0.06 -sea issc 135 22. 10.317 -use_mean no environment env6 -duration 0.06 -sea issc 135 26. 11.403 -use_mean no environment env7 -duration 0.07 -sea issc 180 19. 10.317 -use_mean no environment env8 -duration 0.08 -sea issc 090 19. 10.317 -use_mean no environment env9 -duration 0.10 -sea issc 180 17. 10.317 -use_mean no environment env10 -duration 0.12 -sea issc 090 17. 10.317 -use_mean no environment env11 -duration 0.16 -sea issc 135 19. 10.317 -use_mean no environment env12 -duration 0.18 -sea issc 180 15. 9.541 -use_mean no environment env13 -duration 0.22 -sea issc 090 15. 9.541 -use_mean no environment env14 -duration 0.25 -sea issc 135 17. 10.317 -use_mean no environment env15 -duration 0.42 -sea issc 180 13. 8.990 -use_mean no environment env16 -duration 0.44 -sea issc 135 15. 9.541 -use_mean no environment env17 -duration 0.50 -sea issc 090 13. 8.990 -use_mean no environment env18 -duration 0.77 -sea issc 180 11. 8.560 -use_mean no environment env19 -duration 0.91 -sea issc 090 11. 8.560 -use_mean no environment env20 -duration 1.01 -sea issc 135 13. 8.990 -use_mean no environment env21 -duration 1.50 -sea issc 180 9. 8.114 -use_mean no environment env22 -duration 1.78 -sea issc 090 9. 8.114 -use_mean no environment env23 -duration 1.86 -sea issc 135 11. 8.560 -use_mean no environment env24 -duration 3.63 -sea issc 135 9. 8.114 -use_mean no environment env25 -duration 4.54 -sea issc 180 2. 7.866 -use_mean no environment env26 -duration 5.38 -sea issc 180 6. 7.400 -use_mean no environment env27 -duration 5.40 -sea issc 090 2. 7.866 -use_mean no environment env28 -duration 6.39 -sea issc 090 6. 7.490 -use_mean no environment env29 -duration 11.01 -sea issc 135 2. 7.866 -use_mean no environment env30 -duration 13.03 -sea issc 135 6. 7.445 -use_mean no end $ $********************************************* compute fatigue $ freq_response $ $********************************************* initialize fatigue $ fat_cforce -initial count_cf -f_bins 005 010 015 020 025 030 035 040 \ 045 050 055 060 065 070 075 080 \ 085 090 095 100 105 110 115 120 \ 125 130 135 140 145 150 155 160 \ 165 170 175 180 185 190 195 200 \ 225 250 275 300 325 350 375 400 $ $********************************************* loop environments $ &loop i 1 30 1 $ $********************************************* find equi $ &subtitle Environment is env%i &env env%i &instate -locate TBRG 0 0 -9.5 &equi -move_max 5 $ $********************************************* report equi $ &status config -hard &status f_connect -hard $ $********************************************* spectral response $ sresponse -period 500 450 400 350 300 250 200 180 160 150 140 \ 130 120 110 100 90 \ 80 70 60 50 40 30 \ 25. 20. 19. 18. 17. 16. 15. 14.5 \ 14. 13.5 13. 12.5 12. 11.5 11. 10.5 \ 10. 9.5 9. 8.5 8. 7.5 7. 6.5 \ 6. 5.5 5. 4.5 4. 3. $ $********************************************* post - process $ st_cforce @ REPORT END fat_cforce -accumulate @ count_cf -accumulate @ $ $********************************************* end loop $ &endloop $ $********************************************* report fatigue $ fat_cforce -report 30*365 count_cf -report 30*365 end $ $********************************************* All Done $ &FINISH