home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / m / m066 / 1.img / 2DMISC.ZIP / IBEAM2.MSY < prev    next >
Encoding:
Text File  |  1988-01-08  |  1.7 KB  |  116 lines
  1. ! I-Beam with Reference at Bottom Left (with Optional Plates)
  2. %MINVAL=1.E-19
  3. %MAXVAL=1.E19
  4. %DEFAULT=40
  5. !!     DEFAULT is the Default value for Prompts
  6. !!     MINVAL and MAXVAL Defines the Allowable Range
  7. !!
  8. ! Define Breadth of I-Beam
  9. B
  10. ! Define Height of I-Beam
  11. %DEFAULT=90
  12. H
  13. ! Define Flange Thickness of I-Beam
  14. %MAXVAL=H/2
  15. %DEFAULT=5
  16. F
  17. ! Define Web Thickness of I-Beam
  18. %MAXVAL=B*0.9
  19. %DEFAULT=3
  20. W
  21. ! Define Fillet Radius of I-Beam
  22. %MAXVAL=(B-W)/2
  23. %DEFAULT=2
  24. R
  25. ! Number of Times to Repeat
  26. %MAXVAL=10
  27. %MINVAL=1
  28. %DEFAULT=1
  29. NTIMES
  30. ! Number of Plates
  31. %MINVAL=0
  32. %MAXVAL=2
  33. %DEFAULT=1
  34. NPLATE
  35. %IF;NPLATE=0;%%NOPL
  36. ! Number of Holes
  37. %MINVAL=2
  38. %MAXVAL=3
  39. %DEFAULT=2
  40. NHOLE
  41. %%NOPL
  42. II = 0
  43. X0=0.
  44. Y0=0.
  45. %%FIRST
  46. %PEN=1
  47. %STYLE=1
  48. %THICKNESS=1
  49. II=II + 1
  50. #1=X0,Y0
  51. #2=X0,Y0+F
  52. #3=X0,Y0+H-F
  53. #4=X0,Y0+H
  54. #5=X0+B,
  55. #6=,Y0+H-F
  56. #7=,Y0+F
  57. #8=X0+b,Y0
  58. #9=X0+(B+W)/2+R,Y0+F
  59. #10=,Y0+f+r
  60. #11=X0+(B+W)/2,
  61. #12=X0+(B-W)/2-R,Y0+F
  62. #13=,Y0+f+r
  63. #14=X0+(B-W)/2,
  64. #15=X0+(B+W)/2+R,Y0+H-F
  65. #16=,Y0+h-f-r
  66. #17=X0+(B+W)/2,
  67. #18=X0+(B-W)/2-R,Y0+H-F
  68. #19=,Y0+h-f-r
  69. #20=X0+(B-W)/2,
  70. _=#1,#2
  71. _=#12
  72. @=#13,#12,#14
  73. _=#14,#20
  74. @=#19,#20,#18
  75. _=#18,#3
  76. _=#4
  77. _=#5
  78. _=#6
  79. _=#15
  80. @=#16,#15,#17
  81. _=#17,#11
  82. @=#10,#11,#9
  83. _=#9,#7
  84. _=#8
  85. _=#1
  86. %IF;NPLATE<=0;%%SKIPPL
  87. %PEN=2
  88. %THICKNESS=3
  89. D1=Y0+0.25*H+F/2
  90. D2=D1+H/2-F
  91. _=#20.1,D1,#20.1-W,D1
  92. _=#20.1-W,D2
  93. _=#20.1,D2
  94. %IF;NPLATE<2;%%SKIP1
  95. _=#17.1,D1,#17.1+W,D1
  96. _=#17.1+W,D2
  97. _=#17.1,D2
  98. %%SKIP1
  99. %PEN=3
  100. %STYLE=3
  101. %THICKNESS=1
  102. %TERMINATORS=0,0,5,2.0
  103. B1=#20.1-2*W
  104. B2=#17.1+2*W
  105. D3=D1+(D2-D1)*.25
  106. D4=D1+(D2-D1)*.75
  107. _=B1,D3,B2,D3
  108. _=B1,D4,B2,D4
  109. %IF;NHOLE<=2;%%SKIPH
  110. _=B1,H/2,B2,H/2
  111. %%SKIPH
  112. %%SKIPPL
  113. %TERMINATORS=0,0,0,0
  114. X0=X0+B
  115. %IF;II <NTIMES;%%FIRST
  116.