Directory of image this file is from
This file as a plain text file
^0()PEC U/W-FOCAL:SCWPLANO/DA/TE?MYYBDT !!"PKT.":7"X":13"Y"?MB.BFT !:6"[M]":12"[M]?M\ BGT :18"[KN]?MCPBLA !!"FLAECHE D. BODENPL.: ANZ. D. ECKPKTE. "O?MC2BMT !"ABFRAGE D. PKTE. IM UHRZ.SINN !";D 1.04;T :19"I/M";D 1.06?MS2BNF I=1,O;D 4?MZJBRF I=1,O;D 5?MD&B A !"PL.STAERKE [CM] D= ",D," NUTZL. AUF BODENPL. [KN/M2]: "P?MSQBZA "PROJ.NR. "C," WELCHE ZEILE ",I;F K=I,72;T !?ME"B D 7;A "POS. "K;D 7;T "1) KONSTR.: ST.B.-BODENPL. D ="D," CM?ME2BD 9;T "KOORD. D. FLAECHEN?MFKB$T %4.02"-SCHW.PKTS.: XS ="XS," YS ="YS, M?MF[B%D 1.35 T "BEGRENZG.:";D 9?MF)B(T %2"PKT.":16"X":23"Y?MF2B)T !;S =+1?MV7B*F I=1,O;D 8;S A(I)=A(I)-XS;S B(I)=YM-B(I)-YS;T %2,I,%5.02,A(I),B(I)?MG;B-D 1.41;T !;D 7;T "2) BELASTUNG:";D 9;T "EIGENGEW. PLATTE:":35"G =?MHWB/S G=D*.25+2;S Q=G+P;T G," KN/M ";D 8;T "NUTZLAST:?MH2B0T :35"P ="P;D 9;T "GES.-GEW.:":35"Q ="Q," KN/M2?MP"B2D 9;T "KOORD. D. LASTPKTE. U. LASTEN:?M^$CFD 9;T "B) UNTER LASTPKTEN.:";D 9;D 1.4?MV*CPD 9;T " R"%5.02,X,Y;S B(N+1)=S+MX*X+MY*Y;T %8.02,B(N+1)?M[FDTT "ING.-BUERO B R A S S AL ONSSTR. 9?MJ HJI (Y-YM)4.2;S YM=Y?MJHT?MJ4JJS H=A(I+1)-A(I);I (H)5.2,5.9?MKJJTS X1=-.025;S DY=(B(I+1)-B(I))/FABS(H)?MK$J^I (H)5.4;S C=A(I);S D=A(I+1)-.075;S H=1;G 5.5?MK7J(S C=A(I+1);S D=A(I)-.075;S H=-1?MLFJ2F K=C,.05,D;D 5.6;D 5.7?ML!J<S X1=X1+.05;S G= *(B(I)+DY*X1)*.05;S R=A(I)+H*X1?ML4KFS GF=GF+G;S S=S+G*R;S T=T+G*R*R?ML8KZR?MMILJS H=B(I+1)-B(I);I (H)6.2,6.7?MM LTS X1=-.025;S DY=(A(I+1)-A(I))/FABS(H)?MM9L^I (H)6.4;S C=B(I);S D=B(I+1)-.075;S H=1;G 6.5?MNLL(S C=B(I+1);S D=B(I)-.075;S H=-1?MNXL2F K=C,.05,D;D 6.6?MN6L<S X1=X1+.05;S G=H*(A(I)+DY*X1)*.05;S R=B(I)+H*X1;D 5.7?MN9MF?MOKNJT !!;S =+2;I (65-)7.2;G 7.3?MOQNT 8.2?MOVN^T :4?MO(PJT !;S =+1;I (65-)8.2;G 8.3?MUCPTD 2.1;D 2.2;D 2.3;S =6;D 1.3?MPURJT !;S =+1;D 8?MPIBAZ?M\4BBG 1.12?MDDBWG 1.03?MP.TJF I=1,L;T " LF"%2,I?MR!B4D 9;D 1.4;D 10;D 9?MRDVJS LF=-1?MP8V^?MZ^XJS LF=-1?MJTHED 3.03;A :20,M;I (9-M)4.05;S A(I)=X(I ;S B(I)=Y(I)?MX.FCT %2!,I;A :7,X(I),:13,Y(I);S LF=-1?MSFB<D 7;T "3) BODENPRESSUNGEN:";S LF=-1?MP5VTN LF;I (L-LF-1)11.3;S J=LF*100+I;T %5.01,Q(J);G 11.2?MY%B7F I=1,N;S X(I)=X(I)-XS,Y(I)=Y(I)-YS;D 8;T %2,I,%5.02,X(I),Y(I);D 11?M];B=F I=1,O-1;D 1.62?MEAB^T " "%3!!"BETR.:"C,:15"POS.":60"SEITE"!!!;S =5?M\OX(D 8;R?MC;BPS A(O+1)=A(1),B(O+1)=B(1);F I=1,O+1;S B(I)=YM-B(I)?MPOBVS YS=YM-S/GF,IX=T-(YM-YS)^2*GF,IY=-U-XS*XS*GF?MUHBJF I=0,L-1;S SX(I)=SX(I)/SQ(I),SY(I)=SY(I)/SQ(I)?MO:P^T :7?MB6BKG 1.25?M]TB?D 9;T "A) UNTE FLAECHENBEGRENZG.: ";D 9?MQ/B:N LF;I (L-LF-1)1.6;D 8;S J=100*LF+I;T "LF"%2,LF+1," :"%6.01,SQ(LF);S SX(LF)=SX(LF)-XS,SY(LF)=SY(LF)-YS;T %6.02,SX(LF),SY(LF);G 1.58?MI=DJF K=,68;T !?MQ[D(Q?MGWB+D 9;T "GES.-FLAECHE: A ="GF," M2";D 9;T "TRAEGH.MOMENT: IX ="IX " IY =",IY," M4?MI^CKZ R;F I=1,N;S X=X(I),Y=Y(I);D 8;T %2,I,%5.02,X,Y;D 12?MYFFEA :TA,Q(J);S SQ(LF)=SQ(LF)+Q(J),SX(LF)=SX(LF)+Q(J)*X(I),SY(LF)=SY(LF)+Q(J)*Y(I);G 3.04?MXFDN LF;I (L-LF-1)3.1;S J=LF*100+I,TA=19+7*LF?MP?FJS TA=TA+9;A :TA,M;I (9-M)3.03;R?MB" ED 10;T " I/X?MU%B9D 7;S LF=-1;T :15"RESULT. LAGE";D 8;T :19"R":26"XR":34"YR";D 8?MTNBTS XS=S/GF,U=T;Z S,T,GF;F I=1,O;D 6?M[]XTN LF;I (L-LF-1)12.4;S J=100*LF+I;S C(J)=S(LF)+MX(LF)*X+MY(LF)*Y;I (R)12.6?MV3D^T " 8000 MUENCHEN 19 RUF *181081 !!?MS,X^T %6,C(J);G 12.2?M[.CBD 1.41?MIHCCS R=-1;F I=1,O;D 8;S X=A(I),Y=B(I);T :34%2,I,%5.02,X,Y;D 12?MX<D 8;T %2,LF+1,%6,C(J),C(J)+G,C(J)+Q;G 12.2?MT(BHZ SX,SY;F I=1,N;D 3?MBTBCA !!"ANZ. D. LASTEN: "N," ANZ. D. LF "L;F I=0,L-1;Z SQ(I)?M[(CAT " LF";D 1.72 T " BODENPR. PKT. X Y?MW"CID 1.41;T :25;D 10;D 8?MUNB>F LF=0,L-1;S MX(LF)=SQ(LF)*SX(LF)/IY,MY(LF)=SQ(LF)*SY(LF)/IX,S(LF)=SQ(LF)/GF?M]-CHT " BIEG. [KN/M2]?M=0L S SCWPLA?M?MKN/M2]?M=0,L-1;S MX(LF)=SQ(LF)*SX(LF)/IY,MY(LF)=SQ(LF)*SY(LF)/IX,S(LF)=SQ(L )/GF?M;G 1.62?(I)?SY(LF);G 1.58?0)Z;D 9;I (R-365)Z?M 62I (R-265)L;I Note: Lines longer than 256 characters were wrapped