---

Bogen.JPG

Die Momentenlinien der Statiksysteme sind Parabelln - (Ellipsenbögen).
Auf dem Anhangsbild seht ihr nen billigen Spline der recht ruppig im Verlauf aussieht . Ich habe 4 Peripheriepunkte - welche Megacadfunktion unterstützt mir diese 4 Koordinaten (2D-Element) ?

danke !

------------------
Megacad 2007 3D

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Spline.jpg

klingt für mich so, als wenn du eine Funktion zum Zeichnen einer Spline suchst. Findest du im Linienhauptmenü (siehe Screenshot).

------------------
Gruß aus Kiel
Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von texlive:
Die Momentenlinien der Statiksysteme sind Parabelln - (Ellipsenbögen).
Auf dem Anhangsbild seht ihr nen billigen Spline der recht ruppig im Verlauf aussieht

---

Hallo texlive,

MegaCAD ist hier eher kein mathematischer Funktionsplotter...
Meines Erachtens sind Parabeln übrigens keine Ellipsenbögen sondern quadratische Funktionen.
Offensichtlich kennst du die Spline-Funktion. Eine andere Möglichkeit ist mir nicht bekannt. Um den ruppigen Verlauf zu begradigen wählst du
natürlich parametrisiert mit mehr Zwischenpunkten.

------------------
Viele Grüße,

Magnus Rode
______________________________________________________________

Um wirklich Erfolg im Leben zu haben, muß man 2 Regeln stets befolgen:

1. Erzähl nicht alles, was du weißt.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Es müsste doch möglich sein aus 4 Koordinatenpunkten den passenden Parabelbogen zu kreiren .Megacad hat nur Elipsenfunktionen mit Achspunkt-oder gibts doch noch nen Trick ? .
Mit dieser nichtvorhandenen Möglichkeit könnte ich das Moment an jeder Stelle Graphisch ausmessen .

------------------
Megacad 2007 3D

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

wie Magnus schon geschrieben hat, Parabelbogen und Ellipsenbogen sind mathematisch ganz verschiedene Dinge.
Parabeln kann MegaCad nicht. Hier geht es nur mit genügend Zwischenpunkten und den Splines.
Die Ellipsenkonstruktionen, wie auch immer sie aussehen mögen, können Dir nicht weiterhelfen.

Das Moment an jeder gewünschten Stelle könnte Dir bei dieser statisch simplen Geschichte auch eine einfache Exceltabelle liefern.

Gruß Henry

[Diese Nachricht wurde von Henry Scholtysik am 22. Feb. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

Moin, moin,

ich weiß es ist nicht das was Du willst, aber wenn Du den Kegel kennst und den parallel
Schnitt zur Mantellinie, könntest Du einen 3d Kegel entsprechend zeichnen.
Eine Ansicht hat dann die Parabel die Du haben willst. Sollte eigentlich auch genaugenug sein zum abmessen. (Vorrausgesetzt Megacad arbeitet sauber in der Ableitung)

------------------
Fuselfee 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

bei unterschiedlichen Streckenlasten und wild verstreuten Punktlasten bezweifle ich mal, daß das noch eine durchgehende Parabel ist.

Gruß Henry

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo texlive,

nettes Basic-Programm, aber wie soll das für MegaCAD weiterhelfen? 

[QUOTE]Original erstellt von texlive:
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 ...

... jetzt ein Statik-Programm zu haben. 

Nein im Ernst, hier erwartest du von MegaCAD etwas viel. Versuch es doch mal mit MathCAD o.ä.

Wenn es unbedingt MegaCAD sein soll, kannst du dir ja einen Funktionsplotter mit der C-Schnittstelle zusammenbasteln. Wenn man die Kurve dort mit sehr kleinen Linienstücken (evtl. Polylinie) annähert, sind auch Maximal- und Nullstellen relativ genau zu bestimmen. Viel Spaß!
Stell dein Ergebnis doch mal für die Allgemeinheit hier ein. Ein Eintrag unter megacad.cad.de ist dir bestimmt auch gewiss. 

------------------
Viele Grüße,

Magnus Rode
______________________________________________________________

Um wirklich Erfolg im Leben zu haben, muß man 2 Regeln stets befolgen:

1. Erzähl nicht alles, was du weißt.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP