""2 *********************************8N PROG: B.HOZEMANa NR : BUW413g$ PROGRAMMA VOOR HET BERKENEN VAN. DE STAAFKRACHTEN IN EEN INWENDIG-8 STATISCH BEPAALD VAKWERK M.B.V.B HET CREMONA-DIAGRAM PRINCIPE.L'V VERKLARING DIM STATEMENTS :I` XP = X-COORDINAAT KNOOPPUNTkj YP = Y-COORDINAAT KNOOPPUNTt X1 = BEGIN COORDINAAT STAAF~ Y1 = BEGIN COORDINAAT STAAF X2 = EIND COORDINAAT STAAF Y2 = EIND COORDINAAT STAAF  DR = DRUKKRACHT TR = TREKKRACHT= HF = HORIZONTALE KRACHT[ VF = VERTIKALE KRACHT V = AANTAL STAVEN AAN EEN PUNT KL = 0 STAAF NOG TE BEREKENEN KL = 1 STAAF IS BEREKEND *********************************XP(100),YP(100),DR(100),V(100)<X1(100),Y1(100),X2(100),Y2(100)a VF(100),HF(100),KL(100),TR(100)"---------------------------"INVOER :"("---------------------------2<"ALGEMENE GEGEVENS :"FP"AANTAL PUNTEN ";APZ"AANTAL STAVEN ";AS-d"AANTAL KRACHTEN ";AFRn ------------------------------Xx^}"KNOOPPUNT COORDINATEN :"I1AP"X-COORDINAAT ";XP(I)"Y-COORDINAAT ";YP(I)"VERBINDINGEN ";V(I)I ------------------------------ ;"GEGEVENS KRACHTEN :"AMI1AFg"KRACHT ";F"HOEK ";H""KNOOPPUNTNUMMER ";NR,HF(NR)((H2360))F6VF(NR)((H2360))F@JIT ------------------------------^)h"STAAF COORDINATEN :"/r;|I1ASY"X-COORDINAAT 1 ";X1(I)w"Y-COORDINAAT ";Y1(I)"X-COORDINAAT 2 ";X2(I)"Y-COORDINAAT ";Y2(I)I ------------------------------ "GEGEVENS ROLOPLEGGING :"+"X-ROLOPLEGGING ";XRF"Y-ROLOPLEGGING ";YRLq ------------------------------}I1APS1S1HF(I)&S2S2VF(I)0S3S3HF(I)YP(I):S4S4VF(I)XP(I)DINBV(S4S3)XRXAVS2BVbAHS1l ------------------------------*vI1APKXP(I)XRYP(I)YRVF(I)BVtXP(I)0YP(I)0VF(I)AV:HF(I)AH{I ------------------------------T21AP2I1APV(I)2TI:IAPI ------------------------------W1I1AS"KL(I)12050dXP(T)X1(I)YP(T)Y1(I)XP(T)X2(I)YP(T)Y2(I)A(W)I:WW1kI  ------------------------------XP(T)X2(A(1))YP(T)Y2(A(1))X1X1(A(1)):Y1Y1(A(1)) XP(T)X1(A(1))YP(T)Y1(A(1))X1X2(A(1)):Y1Y2(A(1))A*XP(T)X2(A(2))YP(T)Y2(A(2))X2X1(A(2)):Y2Y1(A(2))|4XP(T)X1(A(2))YP(T)Y1(A(2))X2X2(A(2)):Y2Y2(A(2))> ------------------------------HVXP(T)HF(T)RWYP(T)VF(T)\X1XP(T)XSV:A1.5:2160 fA(Y1YP(T))(X1XP(T)):A1(A)/pX2XP(T)XSXP(T):A2.5:2200SzD(Y2YP(T))(X2XP(T)):A2(D)hDAXSX1:2200XS(YP(T)WAXP(T)DV)(DA)YSYP(T)A(XSXP(T))X1XP(T)A1.5XSV:YSYP(T)D(XSXP(T))X2XP(T)A2.5XSXP(T):YSWA(XSV)5X1XP(T)Y2YP(T)XSV:YSYP(T):A1.5:A20gX2XP(T)Y1YP(T)XSV:YSYP(T):A2.5:A10S1((VXS)2(WYS)2)S2((XP(T)XS)2(YP(T)YS)2) ------------------------------XSVR1.5:2320YSWR10:2320R1(WYS)(VXS) R1(R1)7 XSXP(T)R2.5:2360P YSYP(T)R20:2360m$ R2(YP(T)YS)(XP(T)XS)z. R2(R2)8 XSVYSYP(T)R1.5:R20B XSXP(T)YSYP(T)R1.5:R20L ------------------------------V O1(S1(R1)) ` O2(S1(R1)) j O3(S2(R2))/ t O4(S2(R2))T ~ ------------------------------c XSV2460n O1O1} YSW2480 O2O2 XP(T)XS2500 O3O3 YP(T)YS2530 O4O4 ------------------------------ V1XP(T)XS ! V2YP(T)YS! PVV1! QWV2D! ------------------------------P! I1APl! X1XP(I)Y1YP(I)N1I!( X2XP(I)Y2YP(I)N2I!2 !< ------------------------------!F R1A1R2A22800!P HF(N1)HF(N1)O1!Z VF(N1)VF(N1)O2 "d HF(N2)HF(N2)O3"n VF(N2)VF(N2)O4G"x PXP(T)X1XP(T)DR(A(1))S1:2730o" PXP(T)X1XP(T)DR(A(1))S1:2730" PXP(T)X1XP(T)Y1YP(T)QYP(T)DR(A(1))S1:2730" PXP(T)X1XP(T)Y1YP(T)QYP(T)DR(A(1))S1:2730" TR(A(1))S1# XSXP(T)X2XP(T)DR(A(2))S2:2780C# XSXP(T)X2XP(T)DR(A(2))S2:2780~# XSXP(T)X2XP(T)YSYP(T)Y1YP(T)DR(A(2))S2:2780# XSXP(T)X2XP(T)YSYP(T)Y1YP(T)DR(A(2))S2:2780# TR(A(2))S2# 2950# ------------------------------ $ HF(N1)HF(N1)O3"$ VF(N1)VF(N1)O47$ HF(N2)HF(N2)O1L$ VF(N2)VF(N2)O2t$ PXP(T)X2XP(T)DR(A(2))S1:2890$" PXP(T)X2XP(T)DR(A(2))S1:2890$, PXP(T)X1XP(T)Y1YP(T)QYP(T)DR(A(2))S1:2890%6 PXP(T)X1XP(T)Y1YP(T)QYP(T)DR(A(2))S1:2890%@ TR(A(2))S1G%J XSXP(T)X1XP(T)DR(A(1))S2:2950p%T XSXP(T)X1XP(T)DR(A(1))S2:2950%^ XSXP(T)X1XP(T)YSYP(T)Y1YP(T)DR(A(1))S2:2950%h XSXP(T)X1XP(T)YSYP(T)Y1YP(T)DR(A(1))S2:2950%r TR(A(1))S2&| -------------------------------& V(N1)V(N1)1?& V(N2)V(N2)1N& KL(A(1))1]& KL(A(2))1m& V(T)V(T)2u& T2& I1AS& KL(I)03050& I& 3150& T1AP& XP(T)X1(I)YP(T)Y1(I)3080& T& X1(I)X2(I)S03120' A(Y2(I)Y1(I))(X2(I)X1(I)) ' A(A)B'& S((HF(T)(A)100.5)100)c'0 HF(T)0X20DR(I)S:3150': HF(T)0X20DR(I)S:3150'D TR(I)S'N "-------------------------------------"'X "UITVOER :"'b "-------------------------------------"(l (v 4( "ST NR DRUK TREK X1 Y1 X2 Y2"a( "-------------------------------------"m( I1AS( A$((DR(I)100.5)100)( B$((TR(I)100.5)100)( (A$)0(B$)03280( (A$)0A$"-"( (B$)0B$"-"( C$(I)) E$(X1(I))) F$(Y1(I))') G$(X2(I))7) H$(Y2(I))K) D$" "Y) A6(A$)g) B6(B$)u) C5(C$))* E5(E$))4 F5(F$))> G5(G$))H H5(H$))R A$(D$,A)A$)\ B$(D$,B)B$)f C$(D$,C)C$)p E$(D$,E)E$*z F$(D$,F)F$* G$(D$,G)G$+* H$(D$,H)H$E* C$;A$;B$;E$;F$;G$;H$L* I