i A200:20: 2 rechte lijnen F(100) "Das Programm gibt die" "Formeln von zwei Geraden an"!"und berechnet ihren "!"Schnittpunkt."::1500'!$100B!.:"Noch mal ? (J/N)";W!8210:IN78 950a!B::!"Gib die Koordinaten vom"!"Anfangs- und Endpunkt der"!"beiden Strecken an."!!A0:B0:C0!"erste Gerade x1 ";X1:X1(X1)"" y1 ";Y1:Y1(Y1)A""" x2 ";X2:X2(X2)f"," y2 ";Y2:Y2(Y2)"6"zweite Gerade x3 ";X3:X3(X3)"@" y3 ";Y3:Y3(Y3)"J" x4 ";X4:X4(X4)"T" y4 ";Y4:Y4(Y4) #^--- 1e lijn--)#hXAX1:YAY1:XBX2:YBY2I#r3020:A1A:B1B:C1C:F1$F$\#|--- 2e lijn--x#XAX3:YAY3:XBX4:YBY4#3020:A2A:B2B:C2C:F2$F$#---snijpunt---#3520#---snijden de lijnstukken?---#4020$"die Strecken schneiden sich ";$SN0 "nicht""$6$---tekenen ---Y$:"Druecke eine Taste ";:210}$---uiterste waarden bepalen---$LI0:X1LI LIX1$X2LI LIX2$X3LI LIX3$ X4LI LIX4$RE0:X1RE REX1$ X2RE REX2%*X3RE REX3%4X4RE REX4-%>BE0:Y10 BEY1?%HY2BE BEY2Q%RY3BE BEY3c%\Y4BE BEY4z%fBO0:Y1BO BOY1%pY2BO BOY2%zY3BO BOY3%Y4BO BOY4%---schaalbasis---%LILI:BEBE:HRELI:VBOBE&SBV:H.75V SBH&SB0 SB1*&SV.999SB:SHSV.75<&RR.9995VSVM& ---assen---[& 600:CN0u& HO0:VERRBOSV:620& HO.999:630& HOLISH:VE0:620& VE.999:630& ---schaalverdeling---& CN1:VERRSVBO& N0 .999SH' HONSH:620:N'( HOSHLI#'2 N0 .999SV<'< VENSV:620:N:CN0O'F ---1e lijn---w'P HOSH(LIX1):VERRSV(BOY1):620'Z HOSH(LIX2):VERRSV(BOY2):630'd ---2e lijn---'n HOSH(LIX3):VERRSV(BOY3):620(x HOSH(LIX4):VERRSV(BOY4):630( HO.02:VE.02:110*( SR$F1$:650:( VE.06:110K( SR$F2$:650Z( VE.1:110k( SR$SN$:650( HO.82:VE.95:110( SR$"Taste>":650( 210( 1060( ( ---subr. lijnvergelijking---( C0( XAXB 3090) ---lijn vertikaal---#) A999999:C1:" X =";XA2) SRXA:300G) F$" X = "SR$:f) ---lijn niet vertikaal---) F$" Y = ":PYAYB:QXAXB) XZP:YZQ:4540:ZZ$"1" ZZ$"")& ZZ$"-1" ZZ$"-")0 ZZ$"?" F$F$ZZ$): APQ)D BYAAXA*N XZXBYAXAYB:YZXBXA:4540:B$ZZ$=*X A0 3190:---horizontaal-->X*b F$F$" X ":B0 3200m*l B0 F$F$" +"z*v F$F$B$* F$* * * ---subr.snijpunt---* SN$"kein Schnittpunkt"* (C11)(C21)SN$:* A1A2 SN$:* SN$"" + C11 3590+ C21 3620%+ 3650;+XSX1:YSA2XSB2R+SRXS:300:XS$SR$o+SRYS:300:YS$SR$:3710+$XSX3:YSA1XSB1+.SRXS:300:XS$SR$+8SRYS:300:YS$SR$:3710+BXS(B1B2)(A1A2)+LSRXS:300:XS$SR$,V(XS$)6 XS$(XS$,6)!,`YS(A1B2A2B1)(A1A2)8,jSRYS:300:YS$SR$T,t(YS$)6 YS$(YS$,6)q,~SN$" ("XS$","YS$")","Schnittpunkt in";SN$,,,---snijpunt op de lijnstukken?---,SN0:(C11)(C21),A1A2 ,(XSX1)(XSX2)-(XSX1)(XSX2),-(XSX3)(XSX4)C-(XSX3)(XSX4)N-SN1:T-y----breuken -- maakt breuk XZ/YZ----input XZ,YZ -> output ZZ$ ---- F() bewaart de factoren bij ontbinding-UZ1:ZZ$"":XZYZ0 ZZ$"-".XZ((XZ)):XZ0 ZZ$"?":0.YZ((YZ)):YZ0 ZZ$"?":T.--- heel getal afsplitsen? ---p.HL0:HL$"":AZXZ:BZYZ.XZYZ XZXZYZ:HLHL1:4590.HL0 SRHL:300:HL$SR$.BRXZYZ:BR0 4640. HL0 ZZ$ZZ$HL$: alleen helen./ SRXZ:300:XZ$SR$%/*SRYZ:300:YZ$SR$;/4EZXZ:5020:TZUZK/>EZYZ:5020U/H6020u/RZZ$ZZ$HL$" "XZ$"/"YZ${/\// --- ontbind in factoren ( opslaan in F() )--/EZ1 /EZ2 F(UZ)2:UZUZ1:/VZ1:DZ2:PZ(EZ)/55100DZ2 DZ3:5080!0DZDZ230DZPZ 5050O0EZ1 F(UZ)EZ:UZUZ1U0k0|---subroutine---0PZEZDZ:PZ(PZ)0VZ0:F(UZ)DZ:UZUZ10EZ(EZDZ):PZ(EZ)055100p1z --- vereenvoudigen (gelijke factoren =1 maken) --1TZ1 6100!1NZ1 TZ1+1MZTZL1F(NZ)F(MZ)F(MZ)1:F(NZ)1e1MZMZ1:MZUZ 6050m1NZ1XZ1:NZ1 TZ1:XZXZF(NZ):NZ1YZ1:NZTZ UZ1:YZYZF(NZ):NZ1YZBZ 1SRXZ:300:XZ$SR$1SRYZ:300:YZ$SR$120u----------------------------02:u MSX computerR2Du----------------------------g2} Ch.W.Brederode2 } Von Bonninghausenlaan 332} 2161 ES LISSE2}2(} TROS-RADIO dd 89112222} DS-KULTUR, REM-spezial 911002ode2 } Von Bonnin