Elipsenbogen andere Funktion als Parabel - klar ? ähnelt sich nur dem Anschein nach
Stell dir vor ein Dreifeldträger mit unterschiedlichen Streckenlasten und willkürlich vertstreuten Punktlasten . Du hast die Auflager und die Position des größten Feldmoments .Wie cool wäre es die Momentennullstelle auszumessen anstatt eine 1,80m lange Formel einzugeben .Das bedeutete nicht nur Cremonapläne mit Megacad perfekt zu zeichnen sondern auch noch komplizierte Rechenvorgänge zu zeichnen .
21 INPUT "QUERKRAFT FELD 1=",Q1
22 INPUT "QUERKRAFT FELD 2=",Q2
23 INPUT "QUERKRAFT FELD 3=",Q3
24 INPUT "LÄNGE FELD 1=",L1
25 INPUT "LÄNGE FELD 2=",L2
26 INPUT "LÄNGE FELD 3=",L3
27 IF P=0 GOTO 44
28 INPUT "PUNKTBELASTUNG IM FELD1=",P1
29 INPUT "ABSTAND VON AUFLAGER A=",LP1
30 INPUT "PUNKTLAST IM FELD 2=",P2
31 INPUT "ABSTAND VOM AUFLAGER B=",LP2
32 INPUT "PUNKTLAST IM FELD 3=",P3
33 INPUT "ABSTAND VOM AUFLAGER C=",LP3
35 IF P=1 GOTO 1000
44 K=(4*(L1+L2))*(L2+L3)-(SQU L2)
45 PRINT "K=",K
46 WAIT
47 MB=-(Q1*L1^3/(2*K))*(L2+L3)-(Q2*L2^3/(4*K))*(L2+2*L3)+(Q3*SQU L3/(4*K))*(L3*L2)
48 PRINT "MB=",MB
49 WAIT
50 MC=(Q1*SQU L1/(4*K))*(L1*L2)-(Q2*SQU L2*L2/(4*K))*(L2+2*L1)-(Q3*SQU L3*L3/(2*K))*(L1+L2)
60 PRINT "MC=",MC
65 A=(MB+(Q1*L1*(L1/2)))/(L1)
70 PRINT "A=",A
75 B=(MC-(A*(L1+L2))+(Q1*L1*(L1/2+L2))+(Q2*L2*(L2/2)))/L2
80 PRINT "B=",B
81 D=(MC+(Q3*L3*(L3/2)))/(L3)
82 PRINT "D=",D
85 C=(MB-(D*(L3+L2))+(Q3*L3*(L3/2+L2))+(Q2*L2*(L2/2)))/L2
90 C=(MB-(D*(L3+L2))+(Q3*L3*(L3/2+L2))+(Q2*L2*(L2/2)))/L2
95 PRINT "C=",C
100 X1=A/Q1
105 PRINT "X1 VON A RECHTS",X1
115 X2=((A-Q1*L1)+B)/Q2
120 PRINT "X2 VON B RECHTS";X2
125 X3=D/Q3
130 PRINT "X3 VON D LINKS";X3
135 MF1=A*X1-(Q1*X1*(X1/2))
140 PRINT "MAX M 1=",MF1
145 MF2=(B*X2)+(A*(L1+X2))-(Q2*X2*(X2/2))-(L1*Q1*(L1/2+X2))
150 PRINT "MAX M 2=",MF2
156 MF3=(D*X3)-(X3*Q3*(X3/2))
160 PRINT "MAX M 3=",MF3
170 X01=(2*A)/(Q1)
175 PRINT "M-0-1-VON-A=",X01
176 QI=((MB-MC)/L2)+((Q2*L2)/2)
177 X02=(QI/Q2)-(SQR ((2*MF2)/Q2))
178 X03=(QI/Q2)+(SQR ((2*MF2)/Q2))
179 PRINT "M-0-2-VON-B=",X03
180 PRINT "M-0-3-VON-B=",X02
181 X04=(2*D)/(Q3)
185 PRINT "M-0-4-VON-C=",X04
290 QBL=A-(Q1*L1)
300 QBR=QBL+B
310 QCL=QBR-(Q2*L2)
320 QCR=QCL+C
330 PRINT "QB LINKS=",QBL
340 PRINT "QB RECHTS=",QBR
350 PRINT "QC LINKS=",QCL
360 PRINT "QC RECHTS=",QCR
370 INPUT "BEMESSUNG?JA=1;NEIN=0",BE
380 IF BE=0 GOTO 5000
381 INPUT "BRETTSCHICHTBINDER BS11? JA=1;NEIN=2!",V
382 INPUT "SPRUNGMAß IN M =",SP
390 IF MB<MC THEN LET M=MC*100*-1
400 IF MB>MC THEN LET M=MB*100*-1
405 IF MB=MC THEN LET M=MB*100*-1
410 IF (Q1*SQU L1/8)>(Q2*SQU L2/8) THEN LET Q=Q1
420 IF (Q1*SQU L1/8)>(Q3*SQU L3/8) THEN LET Q=Q1
430 IF (Q2*SQU L2/8)>(Q3*SQU L3/8) THEN LET Q=Q2
440 IF (Q2*SQU L2/8)>(Q1*SQU L1/8) THEN LET Q=Q2
450 IF (Q3*SQU L3/8)>(Q1*SQU L1/8) THEN LET Q=Q3
460 IF (Q3*SQU L3/8)>(Q2*SQU L2/8) THEN LET Q=Q3
461 IF (Q1*SQU L1/8)=(Q2*SQU L2/8) AND (Q3*SQU L3/8)THEN LET Q=Q1
462 IF (Q1*SQU L1/8)=(Q2*SQU L2/8) AND (Q3*SQU L3/8) THEN GOTO 491
470 IF Q=Q1 THEN LET L=L1
480 IF Q=Q2 THEN LET L=L2
490 IF Q=Q3 THEN LET L=L3
491 IF L1=L2 AND L3 THEN LET L=L1
500 ERFI1=((313*Q*SQU L/8*L-188*(M/100)*L)*SP)
510 IF V=1 THEN LET ERFI=ERFI1/1.1
520 IF V=2 THEN LET ERFI=ERFI1
521 IF V=1 THEN LET WI=M*SP/(1.1*1.1)
522 IF V=2 THEN LET WI=M*SP/(1)
523 PRINT "WIEDERSTANDSMOMENT=";WI;"CM^3"
530 PRINT "ERFORDERLICH I=";ERFI;"CM^4"
540 INPUT "IST EIN QUERSCHNITTSMAß BEREITS VORHANDEN? BREITE=1;HÖHE=2!",QE
550 IF QE=2 GOTO 610
560 INPUT "WIE BREIT?IN CM=",BR
570 HO1=CUR ((ERFI*12)/BR)
579 PRINT "RESULTAT VOM WIEDERSTANDSMOMENT WÄRE EINE HÖHE VON";SQR ((6*WI)/BR);"CM"
580 PRINT "QUERSCHNITT VOM ERF.IY=";BR;"/";HO1;"CM"
590 INPUT "GEWÄHLTE QUERSCHNITSHÖHE IN CM=",HO
600 IF QE=1 GOTO 650
610 INPUT "WIE HOCH? IN CM=",HO
620 BR1=(ERFI1*12/(HO^3))
630 PRINT "QUERSCHNITT=";BR1;"/";HO;"CM"
640 INPUT "GEWÄHLTE QUERSCHNITTSBREITE IN CM=",BR
650 PRINT "NEUES IY=";(BR*HO^3)/12;"CM^4"
666 WAIT
670 IF QE=2 THEN GOTO 680
680 INPUT "GEWÄHLTES WINKELOBHOLZ IN CM=",WO
690 W=(BR*SQU WO/(6))
700 SB=M*SP/W
710 IF QBL>QBR THEN LET MAXQ=QBL
720 IF QBL>QCL THEN LET MAXQ=QBL
730 IF QBL>QCR THEN LET MAXQ=QBL
740 IF QBR>QBL THEN LET MAXQ=QBR
750 IF QBR>QCL THEN LET MAXQ=QBR
760 IF QBR>QCR THEN LET MAXQ=QBR
770 IF QCL>QBL THEN LET MAXQ=QCL
780 IF QCL>QBR THEN LET MAXQ=QCL
790 IF QCL>QCR THEN LET MAXQ=QCL
800 IF QCR>QBL THEN LET MAXQ=QCR
810 IF QCR>QBR THEN LET MAXQ=QCR
820 IF QCR>QCL THEN LET MAXQ=QCR
821 IF QBL=QBR AND QCL AND QCR THEN LET MAXQ=QBL
830 TQ=1.5*((MAXQ*SP)/(BR*WO))
840 PRINT "TAU-Q=";TQ;"KN/CM^2
850 MAXF=(L*100/300)*(ERFI1/((BR*HO^3)/12))
860 PRINT "BIEGESPANNUNG=";SB;"KN/CM^2"
870 PRINT "DURCHBIEGUNG=";MAXF;"CM ZULÄSSIG WÄREN";(L*100/300);"CM"
880 PRINT "ENDE ERGEBNISSE SIND UNTER KÜRZEL IM - SPEICHER!"
890 IF P=0 GOTO 5000
900 IF W>1 GOTO 5000
1000 LP1R=L1-LP1
1010 LP2R=L2-LP2
1020 LP3R=L3-LP3
1030 AL1=1+LP1/L1
1040 AL2=1+LP2/L2
1050 AL3=1+LP3/L3
1060 BE1=1+LP1R/L1
1070 BE2=1+LP2R/L2
1080 BE3=1+LP3R/L3
1090 PL1B=((P1*LP1*LP1R/(L1)))*BE1
1100 PL2B=((P2*LP2*LP2R/(L2)))*BE2
1110 PL3B=((P3*LP3*LP3R/(L3)))*BE3
1120 PL1A=((P1*LP1*LP1R/(L1)))*AL1
1130 PL2A=((P2*LP2*LP2R/(L2)))*AL2
1140 PL3A=((P3*LP3*LP3R/(L3)))*AL3
1150 QL1=(Q1*SQU L1/(4))
1160 QL2=(Q2*SQU L2/(4))
1170 QL3=(Q3*SQU L3/(4))
1180 MB1=2*(L1+L2)
1190 MC1=1*L2
1200 MB2=1*L2
1210 MC2=2*(L2+L3)
1220 B1=(-(QL1+PL1A)*L1)-((QL2+PL2B)*L2)
1230 B2=(-(QL2+PL2A)*L2)-((QL3+PL3B)*L3)
1240 MB2A=MB2*(MB1/MC1)*-1
1250 MC2A=MC2*(MB1/MC1)*-1
1260 B2A=B2*(MB1/MC1)*-1
1270 MC=((B2A+B1)/((MC2A+MC1)*-1))*-1
1280 MB=(B2-MC2*MC)/MC1
1290 R1=Q1*L1
1300 R2=Q2*L2
1310 R3=Q3*L3
1320 A=(MB+(P1*LP1R)+(R1*(L1/2)))/L1
1340 B=(MC-(A*(L1+L2))+(R1*(L1/2+L2))+(P1*(LP1R+L2))+(P2*LP2R)+(R2*(L2/2)))/L2
1350 D=(MC+(P3*LP3)+(R3*(L3/2)))/L3
1360 C=(MB-(D*(L3+L2))+(R3*(L3/2+L2))+(P3*(LP3+L2))+(P2*LP2)+(R2*(L2/2)))/L2
1370 IF (A-(Q1*LP1))<0 THEN X1=A/Q1:MAXM1=A*X1-(Q1*(SQU X1/(2)))
1375 IF (A-(Q1*LP1))<0 GOTO 1390
1380 IF (A-(Q1*LP1+P1))<0 THEN X1=LP1:MAXM1=A*X1-(Q1*(SQU X1/(2)))
1390 QBL=A-(Q1*L1+P1)
1400 QBR=QBL+B
1410 QCL=QBR-(Q2*L2+P2)
1420 QCR=QCL+C
1430 IF (QBR-(Q2*LP2))<0 THEN X2=QBR/Q2:MAXM2=(A*(L1+X2))+(B*X2)-(P1*(LP1R+X2))-(R1*(L1/2+X2))-(Q2*(SQU X2/(2)))
1435 IF (QBR-(Q2*LP2))<0 GOTO 1450
1440 IF (QBR-(Q2*LP2+P2))<0 THEN X2=LP2:MAXM2=(A*(L1+X2))+(B*X2)-(P1*(LP1R+X2))-(R1*(L1/2+X2))-(Q2*(SQU X2/(2)))
1450 IF (D-(Q3*LP3R))<0 THEN X3=L3-(D/Q3):MAXM3=(D*X3)-(Q3*(SQU X3/(2)))
1455 IF (D-(Q3*LP3R))<0 GOTO 1470
1460 IF (D-(Q3*LP3R+P3))<0 THEN X3=LP3:MAXM3=(D*X3)-(Q3*(SQU X3/(2)))
1470 XX2=-(Q1/2)
1480 PX=((A+B)-P1)/XX2
1490 QX=((B*-L1)/(XX2))-((P1*-LP1)/(XX2))
1500 X02=(PX/-2)-(SQR (SQU (PX*-1)/4-QX))
1510 PX2=((D+C)-P3)/XX2
1520 QX2=((C*-L3)/(XX2))-((P3*-LP3R)/(XX2))
1530 X03=(PX2/-2)-(SQR (SQU (PX2*-1)/4-QX2))
2000 PRINT "B1=",B1
2010 PRINT "B2=",B2
2020 PRINT "MB1=",MB1
2030 PRINT "MC1=",MC1
2040 PRINT "MB2=",MB2
2050 PRINT "MC2=",MC2
2060 PRINT "MB2A=",MB2A
2070 PRINT "MC2A=",MC2A
2080 PRINT "B2A=",B2A
2090 PRINT "MC=",MC
2100 PRINT "MB=",MB
2110 PRINT "A=",A
2120 PRINT "B=",B
2130 PRINT "C=",C
2140 PRINT "D=",D
2150 PRINT "MAX M FELD1=";MAXM1;" AN DER STELLE ";X1
2160 PRINT "MAX M FELD2=";MAXM2;" AN DER STELLE ";X2
2170 PRINT "MAX M FELD3=";MAXM3;" AN DER STELLE ";X3
2180 PRINT "QBL=";QBL
2190 PRINT "QBR=";QBR
2200 PRINT "QCL=";QCL
2210 PRINT "QCR=";QCR
2220 PRINT "MOMENTENNULLSTELLE X02=";X02;"VOM AUFLAGER A"
2230 PRINT "MOMENTENNULLSTELLE X03=";X03;"VOM AUFLAGER D"
2500 GOTO 370
5000 PRINT "ENDE"
------------------
Megacad 2007 3D
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP