Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
decus/20-0025/bemdes.bas
There are 2 other files named bemdes.bas in the archive. Click here to see a list.
00010 PRINT "DO YOU WANT INSTRUCTIONS (1=YES, 0=NO)";
00011 INPUT Y7
00012 IF Y7=1 THEN 166
00013 DIM Q(4,4)
00014 DATA 1,2,3,4,5,6,7,8,10,11,12,13,9,0,0,0
00015 FOR I=1 TO 4
00016 FOR J=1 TO 4
00017 READ Q(I,J)
00018 NEXT J
00019 NEXT I
00020 PRINT
00021 PRINT "WHAT ARE L,B,S,W,P,A";
00022 INPUT C1,C2,L,W,P,A
00023 LET C=Q(C1,C2)
00024 IF C>0 THEN 29
00025 PRINT
00026 PRINT "NOT PROGRAMMED TO SOLVE THAT CASE. FOR L=4,"
00027 PRINT "CAN COMPUTE RECOMMENDED BEAM ONLY FOR B=1."
00028 GOTO 193
00029 PRINT
00030 IF C<3 THEN 42
00031 IF C=3 THEN 44
00032 IF C=4 THEN 46
00033 IF C=5 THEN 48
00034 IF C=6 THEN 50
00035 IF C=7 THEN 52
00036 IF C=8 THEN 54
00037 IF C=9 THEN 56
00038 IF C= 10 THEN 58
00039 IF C=11 THEN 60
00040 IF C=12 THEN 62
00041 IF C=13 THEN 64
00042 LET M=W*L*L/8
00043 GOTO 65
00044 LET M=W*L*L/12
00045 GOTO 65
00046 LET M=W*L*L/2
00047 GOTO 65
00048 LET M=P*L/4
00049 GOTO 65
00050 LET M=3*P*L/16
00051 GOTO 65
00052 LET M=P*L/8
00053 GOTO 65
00054 LET M=P*L/2
00055 GOTO 65
00056 LET M=P*A
00057 GOTO 65
00058 LET M=W*L*L/8+P*L/4
00059 GOTO 65
00060 LET M=W*L*L/8+3*P*L/16
00061 GOTO 65
00062 LET M=W*L*L/12+P*L/8
00063 GOTO 65
00064 LET M=W*L*L/2+P*L/2
00065 LET S=12*M/20000
00066 DIMS(55),D(55),K(55),W(55)
00067 FOR I=1 TO 53
00068 READ S(I),D(I),K(I),W(I)
00069 NEXT I
00070 FOR I=1 TO 53
00071 IF S<S(I) THEN 75
00072 NEXT I
00073 PRINT "LARGE ENOUGH BEAM DOES NOT EXIST--REDEFINE PROBLEM"
00074 GOTO 193
00075 IF C<2 THEN 87
00076 IF C=3 THEN 89
00077 IF C=4 THEN 91
00078 IF C=5 THEN 87
00079 IF C=6 THEN 87
00080 IF C=7 THEN 89
00081 IF C=8 THEN 91
00082 IF C=9 THEN 87
00083 IF C=10 THEN 87
00084 IF C=11 THEN 87
00085 IF C=12 THEN 89
00086 IF C=13 THEN 91
00087 LET M1=M+W(I)*L*L/8
00088 GOTO 92
00089 LET M1=M+W(I)*L*L/12
00090 GOTO 92
00091 LET M1=M+W(I)*L*L/2
00092 LET S2=12*M1/20000
00093 IF S(I)>=S2 THEN 96
00094 LET S=S2
00095 GOTO 71
00096 PRINT " RECOMMENDED BEAM IS A ";D(I);
00097 IF K(I)=1 THEN 102
00098 IF K(I)=2 THEN 104
00099 IF K(I)=3 THEN 106
00100 IF K(I)=4 THEN 108
00101 IF K(I)=5 THEN 110
00102 PRINT "U";
00103 GOTO 111
00104 PRINT "JR";
00105 GOTO 111
00106 PRINT "JRU";
00107 GOTO 111
00108 PRINT "B";
00109 GOTO 111
00110 PRINT "WF";
00111 PRINT W(I)
00112 GOTO 193
00113 DATA 1.1,3,1,4.1
00114 DATA 1.2,3,1,5
00115 DATA 2.4,6,2,4.4
00116 DATA 3.5,7,2,5.5
00117 DATA 4.7,8,2,6.5
00118 DATA 6.5,10,3,8.4
00119 DATA 7.8,10,2,9
00120 DATA 9.3,12,3,10.6
00121 DATA 10.5,10,4,11.5
00122 DATA 12,12,2,11.8
00123 DATA 14.8,12,4,14
00124 DATA 17.5,12,4,16.5
00125 DATA 18.8,10,4,19
00126 DATA 21.4,12,4,19
00127 DATA 21.5,10,5,21
00128 DATA25.3,12,4,22
00129 DATA 26.4,10,5,25
00130 DATA 34.1,12,5,27
00131 DATA41.8,14,5,30
00132 DATA 48.5,14,5,34
00133 DATA 56.3,16,5,36
00134 DATA 64.4,16,5,40
00135 DATA 72.4,16,5,45
00136 DATA 80.7,16,5,50
00137 DATA 89,18,5,50
00138 DATA 98.2,18,5,55
00139 DATA 107.8,18,5,60
00140 DATA 126.4,21,5,62
00141 DATA 139.9,21,5,68
00142 DATA 150.7,21,5,73
00143 DATA 175.4,24,5,76
00144 DATA 196.3,24,5,84
00145 DATA 220.9,24,5,94
00146 DATA 242.8,27,5,94
00147 DATA 248.9,24,5,100
00148 DATA 266.3,27,5,102
00149 DATA 299.2,30,5,108
00150 DATA 327.9,30,5,116
00151 DATA 354.6,30,5,124
00152 DATA 404.8,33,5,130
00153 DATA 446.8,33,5,141
00154 DATA 502.9,36,5,150
00155 DATA 541,36,5,160
00156 DATA 579.1,36,5,170
00157 DATA 621.2,36,5,182
00158 DATA 663.6,36,5,194
00159 DATA 669.6,33,5,200
00160 DATA 740.6,33,5,220
00161 DATA 835.5,36,5,230
00162 DATA 892.5,36,5,245
00163 DATA 951.1,36,5,260
00164 DATA 1031.2,36,5,280
00165 DATA 1105.1,36,5,300
00166 PRINT
00167 PRINT "THIS PROGRAM WILL RECOMMEND THE CORRECT STEEL BEAM"
00168 PRINT "TO USE FOR A NUMBER OF COMMON APPLICATIONS. TO USE,"
00169 PRINT "RESPOND TO THE QUESTION 'WHAT ARE L,B,S,W,P,A?'"
00170 PRINT "ACCORDING TO THE FOLLOWING CODE:"
00171 PRINT
00172 PRINT " L = 1 FOR UNIFORMLY DISTRIBUTED LOAD"
00173 PRINT " = 2 FOR SINGLE MIDPOINT LOAD"
00174 PRINT " = 3 FOR UNIFORM LOAD + SINGLE MIDPOINT LOAD"
00175 PRINT " = 4 FOR TWO EQUAL SYMMETRIC LOADS"
00176 PRINT
00177 PRINT " B = 1 FOR BEAM SUPPORTED AT BOTH ENDS"
00178 PRINT " = 2 FOR ONE END FIXED, OTHER END SUPPORTED"
00179 PRINT " = 3 FOR BEAM FIXED AT BOTH ENDS"
00180 PRINT " = 4 FOR ONE END FIXED (CANTILEVER)"
00181 PRINT
00182 PRINT " S = LENGTH OF THE SPAN IN FEET"
00183 PRINT " W = DISTRIBUTED LOAD IN POUNDS PER FOOT"
00184 PRINT " (SET = 0 IF NOT APPLICABLE)"
00185 PRINT " P = EACH CONCENTRATED LOAD IN POUNDS"
00186 PRINT " (SET = 0 IF NOT APPLICABLE)"
00187 PRINT " A = LOCATION OF LOAD(S) IN FEET FROM END"
00188 PRINT " (SET = 0 IF NOT APPLICABLE)"
00189 PRINT
00190 PRINT
00191 GOTO 13
00192 DATA 1,1,1,1,1,1
00193 END