ZXTape!D-016 h ?XX: D\: D\: D\: D\: D\:yD\DXX?zzzzzzzzzxxxxxxzzzzzzzzz\!l@$  !lX> =  >JbRJFBpP pv$Mr0P|((DD<~~<  6UU6<<ԑԑ?@`px|~xHM>2^KC!$!ʹͭ~w#~w#BV#~#( 7ݦw}<(~w $x>xͲ"W!> >8H(w88#~0wx#w:0 M:V!$Kʹͭ~w#~w# 8>> >>>~ ~@HP`@~0 JbRJFB,2"""8DDD8?2]t]}8-,:]`o:]O :]OB0 }2]}2]|8%$x?2]t]|8%$:]`o:]O :]OB0 }2]}2]}8-,"]ELͪ"G?(/w*][](??0ax&hX8$?"]S]\Ð  |;; *=\s#r;;͎{ ::\(!((<2\6!Z"B\2D\}33>GM>2^>!Xj  G6x# !t w#  *x\˼˴ˬt Ð !"D-016"23560\,20000 N  6 p0=950:z8=8:z7=7:z6=6:z5=5:z4=4:z3=3:z2=2:z1=1:z0=0:lin=23762\:xp=lin+198:yp=xp-z1 Um(z6,z3):z8:i=z1z6:j=z1z3:m(i,j):j:i:a$=" " xz1,z5,100d,z2,z8,111o,z2,11 ,200,z2,14,300,,z1,16,400,z1,18,13 23659k\,2 =dsk=252:z6:z6::(dsk+23835]):ug=23676|\ }z10=10 :w1=255:w2=252:sq=9700%:mz=200:sp=9800H&:b$="--------------------------------" \bre1=(dsk+23814]):bre2=(dsk+23815]):bre1,13 :bre2,z0:(dsk+23762\) n z0:z6:z0:z6:br1=(23850*]+dsk):xst=65025:yst=65026:zal=65090B:wyl=65310: T65244,24:65245,z7:65264,126~:65265,128 7z0,11 ;"F I Z Y K A";z2,z8;"Zaamanie wiata" jj=z1:po=z5:q=7:tr=z3:z6,z6;"Lekcja";z10,z6;"Uwagi dla ucznia";z10+z4,z6;"Uwagi dla nauczyciela";z10+z8,z6;"Koniec" br1+0,08:br1+jj,0:br1+po,po:br1+q,0:br1+tr,0:br1:0(,0:0,0:0,-0:-0,0:0,0:0(,0h:0,0:0(,0H:0,0:0(,0(:0,0:0 ,0:0,0:0,-0:-0,0:0,0:0!,0:0,0:0,-0:-0,0:0,0 i#z0;z1,z0;"ruch strzaki";:ug,w2:#z0;z1,14;" ";:ug,w1:#z0;z1,20;"wybr-SPACJA" ""30 xst,212:yst,58: $-zal:br1+z1,z4:br1+z5,z5:br1+z7,23 & ys=yst (Rys>38&ys<70Fy1=z8:m=1490:yd=38&:yg=70F:502 *Zys>70Fys<102fy1=12 :m=21004:yd=70F:yg=102f:502 ,\ys>102fys<134y1=16:m=2150f:yd=102f:yg=134:502 .\ys>134ys<166y1=20:m=6500d:yd=134:yg=166:502 0 38& 2)br1+25,120x:br1+z3,y1:br1 6 ys=yst 8=" "Ŧ="0"wyl:m :ydn=z0z5:n,z0;n+z1;a$:lin:n:n=z120:lin:z6:n z0,z0;"Widzimy tu szczeglny przypadek przebiegu promienia wiata. Promie zaamany znajduje si nagranicy orodkw. Kt zaamaniajest ktem prostym - 90 stopni.";a$ 3#z0;z1,z0;"  C - kontynuacja tematu  " %lin:z6:lin:z5:""168 %lin:z6:lin:z5:=""169 /#z0;z1,z0;" " >n=z0z5:n,z0;n+z1;a$:lin:n:n=z120:lin:z6:n z0,z0;" Minimalne zwikszenie gstoci orodka nr 1 powoduje powstanie nowego zjawiska. Jest nim stan cakowitego wewntrznego odbiciana ktrym opiera si na przykad technika wiatowodowa. " 3#z0;z1,z0;"  C - kontynuacja tematu  " %lin:z6:lin:z5:""174 %lin:z6:lin:z5:=""175 /#z0;z1,z0;" " #z1:128,25:39',39',1.57H:z0:yd=127:xp1=256-i:kp=z3:1120`:17,18;"wewntrznego";18,21;"odbicia";16,17;" ";11 ,17;"":128,25:128,103g:33!,-17,-z1 3p0:n=z0z5:n,z0;n+z1;a$:n:n=z0100d:n z0,z0;a$;" Dalsze zwikszanie gstoci orodka nr 1 nie prowadzi ju dojakichkolwiek zmian w przebiegu promienia wietlnego ";a$ p0:kp=z2:1120` p0:kp=z1:1120` p0:1500 _:"Przyjrzyjmy si teraz przejciu promienia wietlnego przez pytk rwnoleg" z6,z0;z6;a$;a$;a$;a$;a$;a$; z3;a$;a$;a$;a$; z6;a$;a$;a$;a$;a$;a$; 2116t,z5:n=z115:z0,z6:z1;z0,z2:n 12 ,480:z1,z2:-z2,z0:z1,-z2:z0,31:z1,-z2:-z2,z0:z1,z2:z7,15;"N";11 ,15;"O";14,z1;"d":n=z0z6:18543oH+n*256,(z2*(18799oI+n*256)):n:z1;11 ,15;" " wz0,z0:255,z0:z0,127:-255,z0:z0,-127:z0,80P:255,z0:z0,47/:255,z0 sio=208:n12=.4L:ik=24:yg=126~:yd=47/:ys=80P:xs=116t:st=-z2:1200 [97a,90Z:19,11 ,-1.1 :116t,502:17,z5,.6 0z10,13 ;"";14,15;"" n=z0z5:n,z0;n+z1;a$:n z0,z0;:t$="Umieszczenie pytki rwnolegej na drodze promienia wietlnego powoduje jego przesunicie o sin(-) odcinek rwny AB = d -------- cos " n=63?254:(n>115sn-z8*((n-.1}L)/z8)<2.3333):n,137.5 -n/z2:z0:t$(n-62>);:n:xp1,yd:z8,16 315,18;"A";13 ,19;"B" +p0:1500 ,Z:" Zobaczmy jak wyglda przejcie promienia wietlnego przez pryzmat" .3106:324D 6z6,16;"o";21,z7;"A";21,24;"B";z1;z6;z6,z0;a$;a$;a$;a$;a$;a$;a$;a$;a$;a$;a$;a$;a$;a$;a$;a$:255,z0:z0,127:-255,z0:z0,-127 8S128,100d:z0,z5:z1,z1:z1,-z1:z0,-z1:-z1,-z1:-z2,z0:-z1,z1:z0,z2 < (xp+z8) >5z1;117u,98b:z1;23,z0,.66(: DKio=125}:n12=.8L:ys=64@:xs=100d:st=-z3:1400x F30,99c:70F,-35#:z1:502,-25:xp2-30,yp2-15:30,15:z0:70F,35# H70F,79O:z0,-33!,z1:13 ,9 ;"";9 ,25;"":xp2+60<,yp2+30:z4,-14,-.4L J&n=z0z5:n,z0;n+z1;a$:n:20 Lz0,z0;:t$="Umieszczenie pryzmatu na drodze wizki wietlnej powoduje jej odchylenie o kt rwny = + - " On=41)200:(n>100dn-z8*((n-.1}L)/z8)<2.3333):n,a*n+1.36.z:(n*(*(.1}L+ws*n)):lin:p0:n n=z0z5:n,z0;n+z1;a$:n:n=z0100d:n:z0,z0;" Tylko w wyjtkowych wypadkach mamy do czynienia ze wiatem monochromatycznym. Zwykle wizkawietlna jest mieszanin rnych barw. Promie wiata biaego zawiera w sobie wszystkie barwy." p0:n=z1z5:xg=20*(n+z2):xp,xg:xs=20*n+102f:xp+z2,xs:yg=126~:yp,yg:yd=z1:xd=20*n+102f+62>*(*(.1}L+ws*n)) i=xg-n40(+n-n clin:xp,xd:yp,yd:lin:xg=xg-n:xs=xs-n:xd=xd-n:xp,xd:xp+z2,xs:lin:xp,xg:yp,yg:lin:i =lin:xp,xd:yp,yd:lin:xs-n,64@:xd-xs,-63?:n n=z0z5:n,z0;n+z1;a$:n:n=z0100d:n:z0,z0;" Zaamanie promienia wiata biaego zawierajcego w sobie wszystkie barwy prowadzi do nowego zjawiska - rozszczepieniawiata. Wspczynnik zaamaniajest rny dla rnych barw." p0: z0,z0;" Rozszczepienie w pryzmacie  Naciskajc klawisze oznaczone pierwszymi literami nazw barw ( X=ta ), zobaczysz ich przebieg po zaamaniu"  3106 5p(z6,z3):430:n=z1z6:j=z1z3:p(n,j):j:n 156,66B,579,156,65A,546,157,64@,502,157,64@,47/,157,63?,43+,157,63?,40( z1,47/:99c,17:n=z1z6:100d,64@:z1;(p(n,z1)-100d),(p(n,z2)-64@):(254-p(n,z1)),(p(n,z3)-p(n,z2)):n 0#z0;z1,z0;"  Wyjcie - SPACJA  " 5,z0;a$:n=z0  ="c"n=z1  ="p"n=z2  ="x"n=z3  ="z"n=z4  ="n"n=z5  ="f"n=z6 =" "1500 n=z0450 fxp+z2,p(n,z1):xp+z1,p(n,z2):z5,z0;" Zaamanie barwy ";z4;t$(13 *(z6-n)+z113 *(z7-n)) =""445 Axp,100d:yp,64@:lin:xp,254:yp,p(n,z3):lin Axp,100d:yp,64@:lin:xp,254:yp,p(n,z3):lin  465  U171,136:z0,z5:z1,z1:z1,-z1:z0,-z1:-z1,-z1:-z2,z0:-z1,z1:z0,z2: 3#z0;z1,z0;"  C - kontynuacja tematu  " ""954 =""956 /#z0;z1,z0;" " ""960  xp+z1,ys:xp+z2,xs i=io:xp,i:yp,yg:lin 3k=(i-xs)*(i-xs):k=k/(k+(yg-ys)*(yg-ys)):k=k*n12 :yp,yd:xp,(xs+(k*(yd-ys)*(yd-ys)/(z1-k))*(xs-i)):lin Fp0:#z0;z1,z0;" Zatrzymanie dowolnym klawiszem ":i=io+stikst 3k=(i-xs)*(i-xs):k=k/(k+(yg-ys)*(yg-ys)):k=k*n12 6yp1=yd:xp1=(xs+(k*(yd-ys)*(yd-ys)/(z1-k))*(xs-i)) Nlin:yp,yd:xp,xp1:lin:xp,(i-st):yp,yg:lin:xp,i:lin:yp,yd:xp,xp1 ""1050 stz0i:p0 $ L/z1:14,z0;kp;a$;a$;a$;a$;a$;a$;a$;a$; Vz0:1020 `)z1:z6,z0;kp;a$;a$;a$;a$;a$;a$;a$;a$; j!z0:1020+20*(kpz4) xp+z1,ys:xp+z2,xs i=io:xp,i:yp,yg:lin 3k=(i-xs)*(i-xs):k=k/(k+(yg-ys)*(yg-ys)):k=k*n12 :yp,yd:xp,(xs+(k*(yd-ys)*(yd-ys)/(z1-k))*(xs-i)):lin $xp+z1,z1:xp+z2,((xp)+xs-i):lin Fp0:#z0;z1,z0;" Zatrzymanie dowolnym klawiszem ":i=io+stikst 3k=(i-xs)*(i-xs):k=k/(k+(yg-ys)*(yg-ys)):k=k*n12 6yp1=yd:xp1=(xs+(k*(yd-ys)*(yd-ys)/(z1-k))*(xs-i)) ؤxp2=xp:lin:xp+z2,(xp1+xs-i):xp,xp1:lin:xp+z1,ys:xp+z2,xs:lin:xp,xp2:lin:xp,(i-st):yp,yg:lin:xp,i:lin:yp,yd:xp,xp1:xp+z1,z1:xp+z2,xp1+xs-i ""1250 "stz0i:115s,80P:p0  x1xp1=z1:xp+z2,xs:xp+z1,ys:xp,xp1:yp,io:lin za=(io-ys)/(xp1-xs):b=(((n12*((a)+.46364761mc84)))-.46364761mc84):xp2=(xs*b-ys+377y)/(z2+b):yp,-z2*xp2+377y:xp,xp2:lin |Nyp3=z1:c=(-b+z2*.5):xp3=(z1-yp)/c+xp2:xp+z2,xp3:xp+z1,z1:lin ~oz3,z0;" Pokazany tu promie wietlny ulega cakowitemu wewntrznemu odbiciu od paszczyzny OB " 3#z0;z1,z0;"  C - kontynuacja tematu  " lin:lin:""1408 &z8:lin:z8:lin:=""1409 B#z0;z1,z0;" Zatrzymanie dowolnym klawiszem ":i=io+stz2st a=(i-ys)/(xp1-xs):b=(((n12*((a)+.46364761mc84)))-.46364761mc84):xp2=(xs*b-ys+377y)/(z2+b):yp2=-z2*xp2+377y Li>113qc=(-b+z2*.5):xp3=(z1-yp)/c+xp2:yp3=z1:1420 i=113qz3,z0;a$;a$;a$ cc=(((((b)-.46364761mc84)/n12))+.46364761mc84):xp3=(z1-yp2)/c+xp2:i>82R1420 2yp3=yp2*(xp3-254)/(xp3-xp2):xp3=254 xg=xp:yg=yp:lin:xp+z2,xp3:xp+z1,yp3:xp,xp2:yp,yp2:lin:xp+z1,ys:xp+z2,xs:lin:xp,xg:yp,yg:lin:xp,z1:yp,(i-st):lin:yp,i:lin:yp,yp2:xp,xp2:xp+z1,yp3:xp+z2,xp3 ""1440  i:p0: =m0=z1:bre2,z5:bre1,220:xst,240:yst,40( 9960:z0:z7:z7::"  Czci lekcji " $''''" Prawa zaamania wiata" <'" Zaamanie wiata na granicy dwch orodkw" A'"Zaamanie wiata przy przejciu przez pytk rwnoleg" <'"Zaamanie wiata przy przejciu przez pryzmat" $'" Rozszczepienie wiata biaego" '" Koniec lekcji" s#z0;z1,z0;"ruch strzaki ";:ug,w2:#z0;z1,14;" ";:ug,w1:#z0;z1,19;" wybr-SPACJA" zal br1+z5,z0:br1+z7,32 Mm0z0m036$)+(ys>524)+(ys>76L)+(ys>100d)+(ys>124|)+(ys>140)+(ys>156) m=m01538 Imz0m16xs<88Xxf=z2:m=6900:xd=16:xg=88X:6700, Zxs>96`xs<168xf=12 :m=14:xd=96`:xg=168:6700, Yxs>176xs<248xf=dd :m=6950&:xd=176:xg=248:6700,  6640 0d5=25:br1+d5,120x:br1+z5,xf:br1  xs=xst =" "Ŧ="0"wyl:m xd