0(C ********************************************************gC * Programnev : Sodrodas *C * Szerzo : Harmathy Zoltan,Sandor Antal *C( * Szlavi Peter,Zsako Laszlo *$D2 * *cD< * ELTE azonosito : HT-14/4.1 *DF * Datum : 1983.Oktober *DP ********************************************************EZ SODRODAS (POPULACIOGENETIKA)Ed : : 10004En 400 : TAJEKOZTATOSEx 670 : KEZDETI ERTEKEKnE 720 : PARAMETEREKE 980 : KEZDOABRAE 1090 : AKTUALIS ABRAEQ5%Q5%1%EA$ : A$ "A" A$ "a" A$ "V" A$ "v" 210"F A$"A" A$"a" 1600 : 1720 : ALLJGF A$"V" A$"v" 340 : VEGEhF S4%0 1660 : TOVABBxF I%1% N%F J%1% 2%FK% (M%)FL% (2%)FU$(I%,J%)R$(K%,L%)F J%F I%F I%1% N%F"R$(I%,1%)U$(I%,1%)G,R$(I%,2%)U$(I%,2%)G6 I%9G@ P$ "I" P$ "i" M%N%CGJ 150fGT : "Kezdjuk elolrol (I/N)?"G^A$ : A$"" 350Gh A$"I" A$ "i" : 110Gr A$"N" A$"n" 340G| @704,"Viszontlatasra!"GH : 10);"GENETIKAI SODRODAS" : TAJEKOZTATOaH: " A programmal egy panmiktikus mendeli populaciot vizsgalunk ,"H "szurke es feher egereket. A populacio egyedszamat allando szin-"H "ten tartjuk , de mivel egy egerparnak tobb utodja is lehet ,"9I "ezert tegyuk fel , hogy csak egy reszuk tud szaporodni. Figyel-"I "juk meg a keletkezo fenotipusok ( szurke , feher ) , illetve a"I "genotipusok ( SS,SF,FF ) eloszlasat ! ('S' a dominans allel.)"IJ " Megfigyelhetjuk , hogy ha csak az egerek nagyon kis resze"^J "kepes szaporodni ( es az egyedszam kicsi ), akkor a geneloszlas"J "nagymertekben es veletlenszeruen fog ingadozni. Ez kis letszam"J "eseten vegzetes lehet !"J @896,"Ha elolvasta , nyomjon le egy billentyut !"KA$ : A$"" 530K:?K& 10);"KEZELESI UTMUTATO"IK0 : K: "Ha lenyomja a 'V' betut, akkor befejezzuk a szimulaciot, ha az"KD "'A' betut, akkor leall a szimulacio es a 'T' betu lenyomasara"KN "indul ujra."KX7Lb "A program a vezerlo billentyuk lenyomasara nem reagal azonnal."~Ll "Ennek oka az , hogy a vezerles figyelese az egyes generaciok"Lv "szimulaciojanak vegeztevel tortenik."L @896,"Ha elolvasta , nyomjon le egy billentyut !"LA$ : A$"" 650MM KEZDETI ERTEKEK$MN%100%BM R$(100%,2%),U$(100%,2%)MMS4%0%SMeM PARAMETEREKpMQ5%0%yMH93M : "Egyedszam ( min. 2 , max. 100)? ";(30); : 1810M 1900 : JO% 740 : N%BEM N%2% N%100% 750M H96oN@128, "Mekkora legyen az 'S' gen relativ gyakorisaga (0-1)? ";(30); : 1810N  1900 : JO% 780 : PBEN* P0 P 1 780N4 I%1% N%N> J%1% 2%NH (0)P R$(I%,J%)"S" : R$(I%,J%)"F"NR J%O\ I%OfH96HOp @320,"Az egerek hany szazaleka kepes szaporodni"Oz "egy nemzedek alatt ( min.";200N%;")? ";(30); : 1810O 1900 : JO% 870 : BE100 870OM%(BEN%)100%O M%2% M%N% 880OH94*P @512,"Folyamatos sodrodas legyen (I/N)? ";(30); : 1810LP BE$"" 930 : P$(BE$,1)P P$ "I" P$ "i" P$ "N" P$"n" 930PP KEZDO ABRAPP P$"I" P$"i" @5,"FOLYAMATOS"; : @5,"EGYSZERI";P " SODRODAS";_Q@128,"Szurke eger:"; : @144," SS-genotipus:" ;: @160," SF-genotipus:" ; : @176," FF-genotipus:";}Q 1300 : GRAFIKON INIC.Q@970,"A(LL)";:@988,"V(EG)";:@1006,"T(OV)";QU%3%Q$B%1%Q. 1740 : "TOV" UZEMMOD JELZESEQ8RB AKTUALIS ABRARL I%1% 4%#RVS9%(I%)0%,R` I%HRj@30,Q5%;". generacio";YRt I9%1% N%cR~Z%2%R R$(I9%,1%)"F" Z%Z%1%R R$(I9%,2%)"F" Z%Z%1%RS9%(Z%)S9%(Z%)1%R Z%4% S9%(1%)S9%(1%)1%R I9%R I%1% 4%S 1500 : GRAFIKONS I%+SUR$" "KS@198,UR$; : @198,S9%(1%);kS@214,UR$; : @214,S9%(2%);S@230,UR$; : @230,S9%(3%);S@246,UR$; : @246,S9%(4%);S S GRAFIKON INICIALIZALASS U9%(4%),E9%(4%),O9%(4%)T(A9%42 : ALSO SORT2F9%12 : FELSO SOR.T< I%1% 4%VTFU9%(I%)I%32%1%: UTOLSO OSZLOPTPE9%(I%)32%(I%1%)9%: ELSO OSZLOPTZO9%(I%)E9%(I%)1%: AKTUALIS OSZLOPTdM9%A9%F9%: ERTEKTARTOMANYTn I%Tx SKALARAJZOLAS BEOSZTASSALU I%1% 4%'U I9%A9% F9% (M9%2%)>U (E9%(I%)1%,I9%)HU I9%_U TENGELY RAJZOLASU I9%F9%A9%:(E9%(I%),I9%): I9%U I9%F9% A9% (M9%2%):B9(A9%I9%)(A9%F9%):@(I9%3%)64%(E9%(I%)9%)2%,B9;: I9%U I%UV GRAFIKONRA 1 PONT RAJZOLASCV I9%A9% A9%(S9%(I%)(100M9%)) 1%VV(O9%(I%),I9%)`V I9%wVO9%(I%)O9%(I%)1%V O9%(I%)U9%(I%) O9%(I%)E9%(I%)1%V I9%A9% F9% 1%V" (O9%(I%),I9%)V, I9%V6V@ TOVABB ---> ALLWJ S4%1% 8WTU%3%: B%0%: 1740 : TOVABB JELZO TORLESEkW^U%1%: B%1%: 1740 : ALL JELZO BEALLITASAvWhS4%1%|WrW| ALL ---> TOVABBW S4%0% WU%1%:B%0%: 1740 : ALL JELZO TORLESEXU%3%:B%1%: 1740 : TOVABB JELZO BEALLITASAXS4%0%X7X ALL ---> TOV ATVALTASRA VAR~XA$ : A$"T" A$"t" 200 : A$"V" A$"v" 340 : 1730X UZEMMOD KIJELZES ES BEALLITASX U% 1760,1770,1780XC%968%: 1790 : ALLXC%986%: 1790 : VEGYC%1004%DY B%1% @C%,"*"; : @C%8%,"*"; : @C%," "; : @ C%8%," ";JYeY BEOLVASAS ELLENORZESuYI90:BE$""Y&ZZ$:ZZ$""1830Y0ZZ$(13)ʒY:(ZZ$)8(ZZ$)321830YDZZ$(8)1870:1880YNI911830:I9I91:BE$(BE$,I9):1890$ZXI9H91830:I9I91:BE$BE$ZZ$4ZbZZ$;:1830FZlTP%1 : BE0QZvJO%1_ZBE$""ʒtZ BE%1 (BE$)Z JO% Z B0$(BE$,BE%,1%)Z BE%1% B0$"+" 2000Z B0$"0" B0$"9" B0$" " 2000[ B0$"." TP% TP%0 : 2000%[ JO%0 : ;[ : BE(BE$) :