ZXTape!Soczewki   4: 3,12 ;"SOCZEWKI":10 ,2;"JANUSZ KUCZYNSKI Z S M E 1985";20,0;"Nacisnij klawisz":0: (0,5;"Soczewka skupiajaca" #0,80P:255,0:80P,20:-2,5:4,0:-2,-5:0,120x:2,-5:-4,0:2,5 $ 502 (n=080P * 1 -2n,40(:n,60<:n,100d:n,120x .n 2m=80P255 4m,.4L*(m-80P)+40(:m,.2~L*(m-80P)+60<:m,-.2~L*(m-80P)+100d:m,-.4L*(m-80P)+120x 7m 84180,80P,1:13 ,23;"F" 980P,15:3,1:0,-2:-3,1:100d,0:-3,-1:0,2:3,-1:0,557 :"18,11 ;"f-ogniskowa" ;121,2;"Nacisnij klawisz":0: <+0,5;"Soczewka rozpraszajaca" >0,80P:255,0:150,30:2,-5:-4,0:2,5:0,100d:2,5:-4,0:2,-5 Fn=0150 H;1:n,40(:n,60<:n,100d:n,120x Jn Lm=150250 Nm,.4L*(m-150)+120x:m,.2~L*(m-150)+100d:m,-.2~L*(m-150)+60<:m,-.4L*(m-150)+40( Om Pa=150502-4 Ra,.4L*(a-150)+120x:a,.2~L*(a-150)+100d:a,-.2~L*(a-150)+60<:a,-.4L*(a-150)+40( Ua V2502,80P,1:13 ,5;"F" W502,70F:0,-557:3,1:0,-2:-3,1:100d,0:-3,-1:0,2:3,-1 Y!19,7;"f-ogniskowa" Z121,2;"Nacisnij klawisz":0: dQ10 ,7;"Obrazy w soczewkach";20,10 ;"Czekaj!":300, e fp3,0;"Wybierz rodzaj soczewki(r-rozpraszajaca,s-skupiajaca),ogniskowa f i polozenie przedmiotu x." g"Rodzaj soczewki? ";a$ ha$"r"a$"s"103g i"10 ,5;"soczewka ";a$ ja$="r"1500 k;"Ogniskowa?(8 do 20) ";f:f<8f>20107k l11 ,5;"f=";f:"Polozenie przedmiotu? (4 do f-3 lub f+6 do 90)";x:x<4x>90Zx>f-3xf Rysowanie obrazu rzeczywistego od lewej"  5000 A20,80P:0,20:20,100d,2 R20+2*(x-f),80P,1:20+2*(x+f),80P,1 20+2*x,0:-2,5:4,0:-2,-5:0,160:2,-5:-4,0:2,5 n=2020+2*x 6n,100d:n,100d-10 *(n-20)/(x-f) &n 0 m=20+2*x255 5@100d-10 *(m-20-2*x)/f<1580D :Mm,100d-20*x/(x-f):m,100d-10 *(m-20-2*x)/f Dm Ny2=2*f*x/(x-f) X}y2+2*x+20,80P:0,20-20*x/(x-f):y2+2*x+20,100d-20*x/(x-f),2 T1,2;"f=";f:2,2;"x=";x:3,2;"y=";y2/2  6000p ,"x1741070. ,%o,(1200-5*o)/x+80P .o Ly1=2*f*x/(f-x) Va240-y1,80P:0,10 *f/(f-x):240-y1,10 *f/(f-x)+80P,2 `W12 ,2;"f=";f:13 ,2;"x=";x:14,2;"y=";y1/2  6000p ""Socz.r.Obraz pozorny od prawej" ?"Ogniskowa?(15 do 100)";f:f<15f>100d1501 11 ,5;"f=";f J"Polozenie przedmiotu?(10 do 100)";x:x<10 x>100d1503 712 ,5;"x=";x;20,10 ;"Czekaj!"  300,:  5000 220,30:2,-5:-4,0:2,5:0,100d:2,5:-4,0:2,-5 &220-2*f,80P,1 W220-2*x,80P:0,40(:220-2*x,120x,2 !a=220-2*x220 3a,120x:a,80P+(44000-20*a)/x a b=220255 Mb,80P+(44000-20*b)/x:b,120x+(20*b-44000)/f b *c=220220-2*f-3 'c,120x+(20*c-44000)/f c y=2*f*x/(f+x) ,220-y,80P:0,20*y/x "+220-y,80P+20*y/x,2 @S0,3;"f=";f:1,3;"x=";x:2,3;"y=";y/2  6000p :255,0:-255,0:0,175 %0,80P:255,0 n=016020 0,n:3,0 n m=024020 m,0:0,3 m /20,0;"0":20,2;"10"  p""Rysujemy jeszcze raz? (t/n)";b$ ub$"t"b$"n"6000p zb$="t"101e :10 ,12 ;"Koniec" fxIH0-UUUBtAs1