2"C **************************************************[C * Programnev: EINSTEIN-kristaly *C * Szerzok: Zsako Laszlo, Ban Peter *C( * ELTE azonosito: HT-12/4.1 *D2 * Datum: 1983. oktober *?D< **************************************************JDF 1000rDP A,T,O,M,O,K,A,T,O,M,O,K,S,Z,A,M,ADZQ0%0%:Q1%0%:Q2%2%:Q3%8%:Q4%15%:Q5%3% EdW3%((Q1%Q5%Q2%2%)3%)3%:W6%5%:W9%6%:W4%3%((W3%W9%W6%2%)3%):W5%Q0%12%:W7%10%:W8%10%EnS%16%7ExW2%S%1%:W1%W2%1%:W0%W1%pEW0$" E(gyszeru) O(sszegzo) T(ovabb) A(llj) V(ege) "zEF%1%E I%1% (W0$)E (W0$,I%,1%)" " F%(F%)I%:F%F%1%E I%EEE1%501%:E%1%:B3%1%:N9%30%E 2070F S%(E1%),A%(N9%),E%(E1%),S1%(E1%)#F.F 26704FCF 1930zF@64%W0%,(30%);"Atomok szama(2-";(N9%);")";:N$FN%(N$)F (N%2%) (N%N9%) 1930 : 1020F"S%(0%)N%:S1%(0%)N%F, 360F6K$"Akar mas atomnak energiat adni"G@I%W0%:J%(Q0%2%)GJ 1550*GT 1350:G^ V% 660IGh 1400Gr@64%W0%,(30%);"Melyik atomnak ad energiat(1-";((N%),2%,((N%))1%);")";:S$G| ((W5%1%,W4%)) 1660 : S%(S$):S$""G (S%1%) (S%N%) 1400GS%S%1%H 1450FH E1%E%W7%W8%A%(S%) B1%W7%W8%A%(S%) : B1%E1%E%H B1%1% 1500 : @64%W1%37%,(30%);"Hany adagot(1...";((B1%),2%,((B1%))1%);")";:A$H ((W5%1%,W4%)) 1660 : A%(A$):A$""H (A%0%) (A%B1%) 1450I (E%A%)E1% 1990+IS%(A%(S%))S%(A%(S%))1%?IR%A%(S%):C%0%II 900^IA%(S%)A%(S%)A%{IS%(A%(S%))S%(A%(S%))1%IC%1%I R%A%(S%)A%1% A%(S%)IS1%(R%)S1%(R%)1%I& 940I0 R%:R%A%(S%)I: 900IDX%S%JN J%E% E%A%1%JXE%(J%)X%Jb J%&JlE%E%A%0Jv 830;J 1350J E%E1% ʍ 310 : @64%W2%,(30);"A KRISTALYNAK NEM ADHATO TOBB ENERGIA, ELKEZDJUK A KISERLETET";: 1290J E%1% 2330J J%0% N%1%: A%(J%)W7%W8% 690J J%: 2000nK@64%W0%,(30%);"Osszes energia:";E%1%;"adag";33);"Atlagos energia:";(100((E%1%)N%0.005))100%;"adag/atom";K@64%W2%,(30%);W0$;:F%B3%K 2750K X%69% F%1%K X%79% F%2%K X%65% F%4%K X%86% F%5%K X%84% F%B3%L@64%W2%F%(F%)1%,"*";1L  X%86% 2030FL X%69% 2390[L  X%79% 2470qL* X%65% 1700L4@64%W2%F%(F%)1%," ";: 710L>LHS1%(X%Q4%)LRS2%X%Q4%S1%L\S9%1%2%S1%LfO9%3%7%S2%$Mp@64%((S1%Q5%Q1%)3%)((Q0%S2%Q3%)2%),(Q3%2%," ");aMu@64%((S1%Q5%Q1%)3%)((Q0%S2%Q3%)2%),(A%(X%));gMzmMM R%(W7%W8%) B3%2% M C% (W5%R%1%,W4%S%(R%)) : (W5%R%1%,W4%1%S%(R%))MMM R%(W7%W8%) B3%1% 7N C% (W5%R%1%,W4%S1%(R%)) : (W5%R%1%,W4%S1%(R%)1%)=NCNINiN@64%10%,"VISZONTLATASRA!"oNuNNJ%W6%:J1%N9%:J2%0%:J3%12%N I%W3% W4%O (J%W6%) ((J1%10%)10%J1%) @64%(I%3%)Q0%2%2%,((J1%),2%,((J1%))1%);GO$(W5%,I%): J%W6% (W5%1%,I%):J1%J1%5%:J%1%: J%J%1%O. ((J2%3%)3%J2%) (J3%0%) M9$:@64%((W3%J2%)3%),M9$;:J3%J3%1%O8J2%J2%1%OB I%OLOV@64%(W4%3%2%)(W5%W8%W7%)2%1%,"ENERGIA";!P`@64%(W4%3%1%)(W5%W8%W7%)2%1%," ADAGOK";SPj@64%(W4%3%)(W5%W8%W7%)2%1%," SZAMA";YPtkP~T%W1%: 1320wPJ1%W7%PJ%0%P I%W5%1%W5%1%W8%W7%Q(I%,W4%): J1%W7% (I%,W4%1%):@64%(W4%3%1%)(I%2%),((J%),((J%))1%);:J%J%10%:J1%1%: J1%J1%1%Q I%.Q I%1% N%CQ(W5%1%,W4%I%)LQ I%_Q X%0% N%1%iQ 830rQ X%xQ~QQ Q Z90 300: Z9QQ(Q2@64%T%,(30%);Q<QFQP T%W0% W1%QZ 1320Qd T%QnRxT%W2%: 13200R@64%W2%,"NINCS ILYEN SORSZAMU ATOM";;R 1290MRT%W2%: 1320fR 0% 360 : 370xRT%W2%: 13:0R@64%W2%,"NINCS ILYEN ENERGIAADAG";R 1290RT%W2%: 1320R 0% 410 : 420RT%W2%: 1320$S@64%W2%,"ENNEK AZ ATOMNAK NEM ADHATO TOBB ENERGIA!";/S 1290AST%W2%: 1320KS 310QSlS@64%I%J%,(30%);K$;uS" V$S, (V$)13 1550S6V$(V$,1%)S@ V$"I" V$"i" V$"N" V$"n" 1640SJ 1350: I%13% T%I%: 1320 TT ((W5%1%,W4%)) 1660T^ 1550,ThV%V$"I" V$"i"2Tr8T|>TwT@64%8%,"HIBAS KEZELESSEL ELRONTOTTA A KISERLETET!"T 2030TTU%(E%)TX%E%(U%)T A%(X%)0% 1700TS%(A%(X%))S%(A%(X%))1%TC%0%:R%A%(X%)US1%(A%(X%))S1%(A%(X%))1%: 940U 900:8303UA%(X%)A%(X%)1%PUS%(A%(X%))S%(A%(X%))1%eUC%1%:R%A%(X%)tU 900:830UX%(N%)1%U&E%(U%)X%U0S%(A%(X%))S%(A%(X%))1%U:C%0%:R%A%(X%)UD 900: 830UNA%(X%)A%(X%)1%VXS%(A%(X%))S%(A%(X%))1%VbC%1%:R%A%(X%)?VlS1%(A%(X%))S1%(A%(X%))1%: 940OVv 900: 830UV[VmVT%W2%: 1320V@64%W2%,"HIBAS AZ ATOMOK SZAMA";V 1290VT%W2%: 1320V 0% 250 : 260VV#W@64%8%,"ENNYI ENERGIA HATASARA A KRISTALY ELOLVAD, EZERT A KISERLETET"@W"NEM TUDJUK ELVEGEZNI!"FWmWK$"AKAR UJABB KISERLETET VEGEZNI"WI%W0%:J%0%: 1550W  V% 980 : 10WW :" ******* EINSTEIN-KRISTALY ******".X*@64%4%,"Ebben a kiserletben Einstein otletebol kiindulva egy kristalyt"X4"fogunk modellezni. A kristalyban legyen N atom. Barmelyik atom egy E0 nagysagu energiaadag tobbszorosevel rendelkezhet."X>"(Az atomok rezeghetnek, es rezgesukkel tarolhatjak az energiat)"-T!";Zz "" 2170-T!";F] "" 2310L] R] ]$ K$"ENERGIA NELKUL A KISERLET NEM VEGEZHETO EL, FOLYTASSUK"]. I%W1%:J%0%: 1550]8 1350]B ]L V% 310 : 980]V ]` 0]j B3%1% : B3%1%^t I%0% W7%W8%3^~ J%W4%1% W4%S1%(I%) 1%m^ J%W4%S%(I%) (I%W5%1%,J%) : (I%W5%1%,J%){^ J%: I%^ ^ ^ 0^ B3%2% : B3%2%^ I%0% W7%W8%^ S1%(I%)0% 2550^ J%W4%1% W4%S1%(I%) 1%_ (I%W5%1%,J%)_ J%: I%#_ )_ C_ I%Q0% Q3%Q4%Q0%c_ J%Q1%Q1%Q5%Q2%1%Q5%p_ (I%,J%)y_( J%_2 I%_< I%Q1% Q1%Q2%Q5%_F J%Q0% Q0%Q3%Q4% Q3%_P (J%,I%)_Z J%_d I%_n _x I%0% 5%_ M9$#` @(Q1%3%)64%I%Q3%2%Q4%2%,M9$;,` I%2` E` ""2730:m` X$: X$"" 2740: X%(X$)95%:` X$: X$"" X%(X$) 95%` ` W$: W$""2770 : (W$):2770