This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
Atari 8-bit Source code
|
Listing 1
10 DIM P$(5),G$(5),S$(5),A(15) 20 ? "":?:? "Ve fotografii se zpravidla resi jedna":?:? "ze tri uloh:" 30 ?:?:?:? "1.Kam zaostrit a jakou clonu nastavit, znam-li hloubku predmetu;" 40 ?:? "2.Jak roste hloubka ostrosti s nasta- venou vzdalenosti;" 50 ?:? "3.Jak roste hloubka ostrosti s nasta- venou clonou;":?:? "(0=KONEC)" 60 ?:?:?:? "";:INPUT P 70 IF P=1 THEN GOTO 150 80 IF P=2 THEN GOTO 650 90 IF P=3 THEN GOTO 1100 100 IF P=0 THEN GOTO 1520 150 ?:?:? 160 GRAPHICS 2+16 170 POSITION 2,3 180 ? #6;"HLOUBKA OSTROSTI pro " 190 SOUND 0,108,10,8:SOUND 1,85,10,8:SOUND 2,72,10,8 200 FOR T=0 TO 800:NEXT T 210 SOUND 0,0,0,0:SOUND 1,0,0,0:SOUND 2,0,0,0 220 ? "" 230 ? "" 240 ? "" 250 ? "" 260 ? "" 270 ?:?:? "Zadej ohniskovou vzdalenost objektivu v milimetrech":? 280 ? "f'= ";:INPUT F:? 290 ? "Zadej nejvetsi clonove cislo objektivu":? 300 ? "Cmax= ";:INPUT Z:? 310 ?:? "Zadej blizky bod v metrech":? 320 INPUT B:? 330 ? "Zadej vzdaleny bod v metrech":? 340 INPUT V:? 350 GOTO 380 360 ? 370 REM *program pise potrebnou clonu C a vzdalenost zaostreni A 380 LET A1=2*B*V/(B+V) 390 LET A=INT(A1*10)/10 400 LET C1=F^2*(V-B)/(40*V*B) 410 LET C=INT(C1*10)/10 420 IF C>Z THEN 510 430 ?:? "*************************************":? 440 ? " Zaostri na ";A;" m a zaclon na ";C:? 450 ? "*************************************":?:? 460 ? "Chces pokracovat pro tentyz objektiv?" 470 INPUT P$ 480 IF P$="ANO" THEN 310 490 ?:? "Chces dale pokracovat ?":INPUT P$:IF P$="ANO" THEN 270 500 GOTO 630 510 ? "":FOR P=0 TO 200:NEXT P:? " ":?:?:FOR P=0 TO 400:NEXT P 520 ? " ZZ E":? 530 ? "N N EEEE M M OOOO ZZZZ N N EEEE ":? "NN N E MM MM O O Z NN N E" 540 ? "N NN EEE M M M O O Z N NN EEE":? "N N E M M O O Z N N E" 550 ? "N N EEEE M M OOOO ZZZZ N N EEEE":?:?:?:?:? 560 SOUND 0,243,10,8:SOUND 1,182,10,8 570 FOR P=0 TO 800:NEXT P 580 SOUND 0,0,0,0:SOUND 1,0,0,0 590 ?:?:?:? 600 GOTO 460 610 GOTO 160 620 ? "" 630 FOR T=1 TO 300:NEXT T 640 GOTO 20 650 GRAPHICS 2+16:POSITION 2,3 660 GRAPHICS 2+16:POSITION 2,3 670 ? #6;"TABULKA HLOUBKY";:POSITION 5,5:? #6;"OSTROSTI";:POSITION 3,7:? #6;"pro kinofilm"; 680 SOUND O,45,10,8:SOUND 1,60,10,8:SOUND 2,72,10,8:SOUND 3,91,10,8 690 FOR D=0 TO 800:NEXT D 700 SOUND 0,0,0,0:SOUND 1,0,0,0:SOUND 2,0,0,0:SOUND 3,0,0,0 710 ? "":?:? "" 720 ? " >>Tabulka se pocita pro 6 radku<<" 730 ?:?:? "Zadej zaostrene vzdalenosti v metrech:" 740 FOR I=1 TO 6 750 ?:? I;".vzdalenost ";:INPUT A:A(I)=A:NEXT I 760 ?:?:? "Zadej ohniskovou vzdalenost v mm" 770 INPUT F 780 ?:? "Zadej nastavenou clonu " 790 INPUT C 800 ? "" 810 ?:? "TABULKA HLOUBKY OSTROSTI pro objektiv" 820 ? " = ";F;"mm,zacloneny na ";C;" :" 830 ? "" 840 ? "|Nast.vzd.|ostre od |do(metru)|" 850 ? "" 860 FOR I=1 TO 6 870 G=(0.05*F^2)/C 880 G1=INT((G*A(I))/(G+A(I))*100)/100 890 G2=INT((G*A(I))/(G-A(I))*100)/100 900 IF G2>=0 THEN 920 910 IF G2<0 THEN 940 920 ? "|";A(I),"|";G1,"|";G2,"|" 930 ? "":GOTO 960 940 ? "|";A(I),"|";G1,"|";"INF |" 950 ? "":GOTO 960 960 NEXT I 970 ? "*****" 980 ?:? "Chces pokracovat pro dalsi clonu ?" 990 INPUT P$ 1000 IF P$="ANO" THEN GOTO 780 1010 IF P$="NE" THEN 1020 1020 ?:? "Chces pokracovat ve vypoctu pro jinou ohniskovou vzdalenost ?" 1030 INPUT G$ 1040 IF G$="ANO" THEN 760 1050 ?:? "Chces novou tabulku ?" 1060 INPUT G$ 1070 IF G$="ANO" THEN 710 1080 IF G$="NE" THEN 1090 1090 GOTO 620 1100 CONT 1110 GRAPHICS 2+16:POSITION 2,3 1120 ? #6;"TABULKA HLOUBKY";:POSITION 5,5:? #6;"OSTROSTI";:POSITION 3,7:? #6;"pro kinofilm"; 1130 SOUND O,45,10,8:SOUND 1,60,10,8:SOUND 2,72,10,8:SOUND 3,91,10,8 1140 FOR D=0 TO 800:NEXT D 1150 SOUND 0,0,0,0:SOUND 1,0,0,0:SOUND 2,0,0,0:SOUND 3,0,0,0 1160 ? "":GRAPHICS 2+16 1170 POSITION 1,1:? #6;"Tabulka se pocita";:POSITION 1,3:? #6;"pro clony 2 - 22" 1180 POSITION 1,5:? #6;"a pro tebou zadane";:POSITION 1,7:? #6;"VZDALENOSTI :" 1190 POSITION 1,9:? #6;"- ohniskovou ":POSITION 1,11:? #6;"- zaostrenou " 1200 DATA 2,2.8,4,5.6,8,11,16,22 1210 FOR T=0 TO 800:NEXT T 1220 ? "":?:?:? "Zadej ohniskovou vzdalenost v mm" 1230 INPUT F 1240 ?:? "Zadej nastavenou vzdalenost [m]" 1250 INPUT I 1260 ? "" 1270 ?:? "TABULKA HLOUBKY OSTROSTI pro objektiv" 1280 ? " = ";F;"mm,nastaveny na ";I;" m" 1290 ? "" 1300 ? "|clona |ostre od |do(metru)|" 1310 ? "" 1320 RESTORE 1200 1330 FOR X=1 TO 8:READ C 1340 G=(0.05*F^2)/C 1350 G1=INT(G*I/(G+I)*100)/100 1360 G2=INT(G*I/(G-I)*100)/100 1370 IF G2>=0 THEN 1390 1380 IF G2<0 THEN 1410 1390 ? "|";C,"|";G1,"|";G2,"|" 1400 ? "":GOTO 1430 1410 ? "|";C,"|";G1,"|";"INF |" 1420 ? "":GOTO 1430 1430 NEXT X 1440 ? "*****" 1450 ? "-Chces pokracovat pro jinou vzd.";:INPUT P$ 1460 IF P$="NE" THEN 1480 1470 ? "-pro jakou vzdalenost ";:GOTO 1250 1480 ?:? "Chces pokracovat ve vypoctu pro jinou ohniskovou vzdalenost ?" 1490 INPUT G$ 1500 IF G$="ANO" THEN 1220 1510 IF G$="NE" THEN 20 1520 GRAPHICS 2+16:POSITION 2,3 1530 ? #6;"HLOUBKA OSTROSTI pro ":POSITION 6,10:? #6;"*KONEC*" 1540 SOUND 0,121,10,10:SOUND 1,91,10,10:SOUND 2,72,10,10:SOUND 3,60,10,10 1550 FOR T=0 TO 800:NEXT T 1560 ? "" 1570 END
References
Listing downloads
Copyright holder