1(C ********************************************************gC * Programnev : Meiotikus sodrodas *C * Szerzo : Harmathy Zoltan,Sandor Antal *C( * Szlavi Peter,Zsako Laszlo *$D2 * *cD< * ELTE azonosito : HT-14/5.1 *DF * Datum : 1983. szeptember *DP ********************************************************EZ Meiotikus sodrodas (POPULACIOGENETIKA)Ed : 1000:En 400 : TAJEKOZTATOYEx 670 : KEZDETI ERTEKEKtE 720 : PARAMETEREKE 940 : KEZDOABRAE 1050 : AKTUALIS ABRAEQ5%Q5%1% FA$ : A$ "A" A$ "V" A$ "P" A$ "a" A$ "v" A$ "p" 220?F A$"A" A$"a" 1560 : 1690 : ALLJeF A$"V" A$"v" 340 : VEGEF A$"P" A$"p" 1790 : PARAMETEREKF S4%0 1620 : TOVABBF I%1% N%F J%1% 2%F K%(N%)*G R$(K%,1%)R$(K%,2%) U$(I%,J%)R$(K%,1%) : 270^G (0)P U$(I%,J%)"S" : U$(I%,J%)"F"jG J%sG I%G" I%1% N%G, R$(I%,1%)U$(I%,1%)G6 R$(I%,2%)U$(I%,2%)G@ I%GJ 150GT : "Kezdjuk elolrol (I/N)?"H^A$ : A$"" 350+Hh A$"I" A$ "i" : 110IHr A$"N" A$"n" 340fH| @704,"Viszontlatasra!"lHH : @25,"MEIOTIKUS SODRODAS" : TAJEKOZTATOH @128, " A programmal egy panmiktikus populaciot vizsgalunk, ";*I "szurke esfeher egereket. Veletlenszeruen parositunk adott ";oI "szamu egeret, svizsgaljuk a keletkezo fenotipusok (szurke, ";I "feher eger) es geno-tipusok (SS,SF,FF) eloszlasat. ('S' a dominans allel.)" J : " A heterozigotak alleljeiket nem azonos valoszinuseggel ";NJ "adjaktovabb utodjaiknak. Meiotikus sodrodasrol beszelunk,";J "ha ez a mei-ozis mechanikajanak tulajdonithato, ill. ezt a ";J "jelenseget okozzaaz ivarsejtszelekcio is.";J 1990 : LAPVEGE K " Adjuk meg, hogy a heterozigotak milyen valoszinuseggel ";^K "kepesektovabbadni az egyes alleleket, es vizsgaljuk ";K "meg azt, hogy ettolhogyan fuggenek a gengyakorisagok!"K : 25);"KEZELESI UTMUTATO"K : " Ha lenyomja a 'V' betut, akkor befejezzuk a szi";?L& "mulaciot, ha az'A' betut, akkor leall a szimulacio es";L0 " a 'T' betu lenyomasaraindul ujra. A 'P' betuvel megvaltoztathatja";L: " a mutacios paramete-reket."LD 1990 : LAPVEGEMN " Ha egy modositasi kerdesre a valasz , ";9MX "akkor a para-meter erteke valtozatlan marad."?MbMl " A program a vezerlo billentyuk lenyomasara nem reagal azonnal.";Mv "Ennek oka az , hogy a vezerles figyelese az egyes generaciok"M "szimulaciojanak vegeztevel tortenik."N 1990 : LAPVEGEN1N KEZDETI ERTEKEKvNN%100 : H96 : populacio merete, beolvasando karakterek szamaN R$(N%,2%),U$(N%,2%)NS4%0%: TOVABB UZEMMODNN PARAMETEREKNQ5%0%N @192,(31);&O @192,"Mekkora legyen az 'S' gen relativ gyakorisaga (0-1)?";?O 2040 : beolvasaskO BE$"" 790 : 2130 : ellenorzesO  JO% 740 : PBEO P0 P1 740O  I%1% N%O* J%1% 2%O4 (0) P R$(I%,J%)"S" : R$(I%,J%)"F"P> J%/PH (127%,0%) (127%,0%) : (127%,0%)8PR I%KP\ @764,(31);Pf @764,"'S' tovabb adasanak valoszinusege a heterozigotaknal?";Pp 2040 : beolvasasPz BE$"" 920P 2130 : ellenorzesP JO% 860 : PBEQ P0 P1 860 QQ KEZDO ABRA"Q;Q 1960 : CIMKIIRASQ @128,"Szurke eger:"; : @144," SS-genotipus:" ; : @160," SF-genotipus:"; : @176," FF-genotipus:";Q 1260 : GRAFIKON INIC.R @990,"A(LL)";: @998,"V(EG)";: @1006,"T(OV)";: @1014,"P(AR)";4R @962,"P('S' tov.adas)=";P;>RU%3%HRB%1%oR 1710 : "TOV" UZEMMOD JELZESEuRR AKTUALIS ABRAR$ I%1% 4%R. S9%(I%)0%R8 I%RB I9%1% N%RL Z%2%RV R$(I9%,1%)"F" Z%Z%1%S` R$(I9%,2%)"F" Z%Z%1%6Sj S9%(Z%)S9%(Z%)1%YSt Z%4% S9%(1%)S9%(1%)1%cS~ I9%sS I%1% 4%S 1460 : GRAFIKONS I%SUR$" "S@198,UR$; : @198,S9%(1%);S@214,UR$; : @214,S9%(2%); T@230,UR$; : @230,S9%(3%);)T@246,UR$; : @246,S9%(4%);UT @40,(30); : @40,Q5%;". generacio";[TxT GRAFIKON INICIALIZALAST U9%(4%),E9%(4%),O9%(4%)TA9%42 : ALSO SORT F9%12 : FELSO SORT I%1% 4%UU9%(I%)I%32%1%: UTOLSO OSZLOP+U(E9%(I%)32%(I%1%)9%: ELSO OSZLOPVU2O9%(I%)E9%(I%)1%: AKTUALIS OSZLOPxU<M9%A9%F9%: ERTEKTARTOMANYUF I%UP SKALARAJZOLAS BEOSZTASSALUZ I%1% 4%Ud I9%A9% F9% (M9%2%)Un (E9%(I%)1%,I9%)Ux I9% V TENGELY RAJZOLAS0V 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%!WO9%(I%)O9%(I%)1%LW O9%(I%)U9%(I%) O9%(I%)E9%(I%)1%eW I9%A9% F9% 1%yW (O9%(I%),I9%)W I9%WW TOVABB ---> ALLW" S4%1% W,U%3%: B%0%: 1710 : TOVABB JELZO TORLESEX6U%1%: B%1%: 1710 : ALL JELZO BEALLITASA X@S4%1%&XJSXT ALL ---> TOVABB ILL. PAR ---> TOVABBhX^ S4%1% U%1%}Xh S4%2% U%4%XrB%0%: 1710 : 'ALL' V. 'PAR' JELZO TORLESEX|U%3%:B%1%: 1710 : TOVABB JELZO BEALLITASAXS4%0%XY ALL ---> TOV ATVALTASRA VAR_YA$ : A$"T" A$"t" 210 : A$"V" A$"v" 340 : 1700Y UZEMMOD KIJELZES ES BEALLITASY U% 1730,1740,1750,1760YC%989%: 1770 : ALLYC%997%: 1770 : VEGYC%1005%: 1770 : TOV ZC%1013%: PARNZ B%1% @C%,"*"; : @C%6%,"*"; : @C%," "; : @ C%6%," ";TZjZ TOVABB ---> PARzZ S4%2% ZU%3%:B%0%: 1710 : TOVABB JELZO TORLESEZU%4%:B%1%: 1710 : PAR JELZO BEALLITASAZ&S4%2%[0 @0,(30); : PARAMETERSOR TORLESEQ[: @0,"'S' tovabb adasanak valoszinusege a heterozigotknal?";j[D 2040 : beolvasas~[N BE$"" 1900[X 2130 : ellenorzes[b JO% 1840 : PBE[l P0 P1 1840[v @960,(30,32); : @962,"P('S' tov.adas)=";P;%\@0,(30); : PARAMETERSOR TORLESE@\ 1960 : CIMKIIRATASu\ @40,Q5%1%;". generacio"; : GENERACIO KIIRAS{\\ CIMKIIRAS\ @10,"MEIOTIKUS SODRODAS";(30);\\ LAPVEGE] @896,(9,191);" Ha elolvasta, nyomjon le egy billentyut! ";(9,191);&] "" 2010V] : @25, "MEIOTIKUS SODRODAS" : @128, ;\]w] BEOLVASAS ELLENORZES]I90:BE$""] ZZ$:ZZ$""2060]ZZ$(13)ʒ] (ZZ$)8(ZZ$)322060]*ZZ$(8)2100:2110^4I912060:I9I91:BE$(BE$,I9):21206^>I9H92060:I9I91:BE$BE$ZZ$F^HZZ$;:2060X^RTP%1 : BE0c^\JO%1x^f BE%1 (BE$)^p JO% ^z B0$(BE$,BE%,1%)^ BE%1% B0$"+" 2220^ B0$"0" B0$"9" B0$" " 2220_ B0$"." TP% TP%0 : 2220)_ JO%0 : ?_ : BE(BE$) : O