0(C ********************************************************gC * Programnev : Borsok *C * Szerzo : Harmathy Zoltan,Sandor Antal *C( * Szlavi Peter,Zsako Laszlo *$D2 * *cD< * ELTE azonosito : HT-14/1.1 *DF * Datum : 1983.Oktober *DP ********************************************************EZ BORSOK (POPULACIOGENETIKA)Ed : : 10000En 390 : TAJEKOZTATOOEx 770 : KEZDETI ERTEKEKjE 810 : PARAMETEREKE 980 : KEZDOABRAE 1080 : AKTUALIS ABRAEQ5%Q5%1%EA$ : A$ "A" A$ "V" 210E A$"A" 1590 : 1700 : ALLJF A$"V" 330 : VEGEH96OH : "Mekkora legyen a GG-genotipus relativ gyakorisaga (0-1)? ";(30); : 1790OR 1880 : JO% 810 : PBE P\ P0 P1 810#Pf P1 P10 : 920,PpH96Pz@192, "Mekkora legyen a GS-genotipus relativ gyakorisaga (0-1)? ";(30); : 1790P 1880 : JO% 880 : P1BEP P10 P1 1 880P I%1% N%PP3(0)*Q P3P R$(I%,1%)"G" : R$(I%,2%)"G" : 960iQR$(I%,1%)"S" : P3PP1 R$(I%,2%)"G" : R$(I%,2%)"S"rQ I%xQQ KEZDO ABRAQQ@5,"GENKEVEREDES"R@128,"Gombolyu borso:"; : @144," GG-genotipus:" ;: @160," SG-genotipus:" ; : @176," SS-genotipus:" ;7R 1290 : GRAFIKON INIC.iR@970,"A(LL)";:@988,"V(EG)";:@1006,"T(OV)";sRU%3%}RB%1%R$ 1720 : "TOV" UZEMMOD JELZESER.R8 AKTUALIS ABRARB I%1% 4%RLS9%(I%)0%RV I%S`@25,Q5%;". generacio";Sj I9%1% N%StZ%2%?S~ R$(I9%,1%)"S" Z%Z%1%aS R$(I9%,2%)"S" Z%Z%1%xSS9%(Z%)S9%(Z%)1%S Z%4% S9%(1%)S9%(1%)1%S I9%S I%1% 4%S 1490 : GRAFIKONS I%SUR$" "T@198,UR$; : @198,S9%(1%);%T@214,UR$; : @214,S9%(2%);ET@230,UR$; : @230,S9%(3%);eT@246,UR$; : @246,S9%(4%);kTT  GRAFIKON INICIALIZALAST U9%(4%),E9%(4%),O9%(4%)TA9%42 : ALSO SORT(F9%12 : FELSO SORT2 I%1% 4%U<U9%(I%)I%32%1%: UTOLSO OSZLOP;UFE9%(I%)32%(I%1%)9%: ELSO OSZLOPfUPO9%(I%)E9%(I%)1%: AKTUALIS OSZLOPUZM9%A9%F9%: ERTEKTARTOMANYUd I%Un SKALARAJZOLAS BEOSZTASSALUx I%1% 4%U I9%A9% F9% (M9%2%)U (E9%(I%)1%,I9%)V I9%V TENGELY RAJZOLAS@V I9%F9%A9%:(E9%(I%),I9%): I9%V I9%F9% A9% (M9%2%):B9(A9%I9%)(A9%F9%):@(I9%3%)64%(E9%(I%)9%)2%,B9;: I9%V I%VV GRAFIKONRA 1 PONT RAJZOLASV I9%A9% A9%(S9%(I%)(100M9%)) 1%W(O9%(I%),I9%)W I9%1WO9%(I%)O9%(I%)1%\W O9%(I%)U9%(I%) O9%(I%)E9%(I%)1%uW I9%A9% F9% 1%W (O9%(I%),I9%)W" I9%W,W6 TOVABB ---> ALLW@ S4%1 WJU%3 : B%0 : 1720 : TOVABB JELZO TORLESE%XTU%1 : B%1 : 1720 : ALL JELZO BEALLITASA0X^S4%1%6XhMXr ALL ---> TOVABB{X|U%1%:B%0%: 1720 : ALL JELZO TORLESEXU%3%:B%1%: 1720 : TOVABB JELZO BEALLITASAXS4%0%XX ALL ---> TOV ATVALTASRA VARYA$ : A$"T" 200 : A$"V" 330 : 1710:Y UZEMMOD KIJELZES ES BEALLITASTY U% 1740,1750,1760pYC%968%: 1770 : ALLYC%986%: 1770 : VEGYC%1004%Y B%1% @C%,"*"; : @C%8%,"*"; : @C%," "; : @ C%8%," ";YY BEOLVASAS ELLENORZES ZI90:BE$""$ZZZ$:ZZ$""18105ZZZ$(13)ʒRZ&(ZZ$)8(ZZ$)321810kZ0ZZ$(8)1850:1860Z:I911810:I9I91:BE$(BE$,I9):1870ZDI9H91810:I9I91:BE$BE$ZZ$ZNZZ$;:1810ZXTP%1 : BE0ZbJO%1ZlBE$""ʒ [v BE%1 (BE$)[ JO% 6[ B0$(BE$,BE%,1%)V[ BE%1% B0$"+" 1980[ B0$"0" B0$"9" B0$" " 1980[ B0$"." TP% TP%0 : 1980[ JO%0 : [ : BE(BE$) :