0(C ********************************************************gC * Programnev : Mutacio *C * Szerzo : Harmathy Zoltan,Sandor Antal *C( * Szlavi Peter,Zsako Laszlo *$D2 * *cD< * ELTE azonosito : HT-14/2.1 *DF * Datum : 1983. szeptember *DP ********************************************************DZ440: TAJEKOZTATOEd840: KEZDETI ERTEKEK-En880: PARAMETEREKDEx1210: KEZDOABRA_E1320: AKTUALIS ABRAmEQ5%Q5%1EA$:A$"A"A$"a"A$"V"A$"v"A$"P"A$"p"190EA$"V"A$"v"360: VEGEEA$"A"A$"a"ʑ1830:1960: ALLJFA$"P"A$"p"ʑ2060: 150: PARAMETEREK;FS4%0ʑ1890: TOVABBHFI%1N%UFJ%12%bFK%(N%)nFL%(2)FR$(K%,L%)"S"260F(0)P1U$(I%,J%)"S":280:270F(0)P2U$(I%,J%)"F":280FU$(I%,J%)R$(K%,L%)FJ%F"I%G,Q4%P10:P20: EGYSZERI MUTACIO!!(G6I%1N%>G@R$(I%,1)U$(I%,1)TGJR$(I%,2)U$(I%,2)\GTI%eG^130pGh VEGEGr:"Kezdjuk elolrol(I/N)?";G|A$:A$""380GA$"I"A$"i"ʸ:90G:G:G@1064,"Viszontlatasra !"GH:20);"MUTACIOS NYOMAS"XH::" A programmal egy panmiktikus mendeli populaciot vizsgalunk,"H"szurke es feher egereket . Veletlenszeruen parositunk adott"H"szamu egeret, s vizsgaljuk a keletkezo fenotipusok ( szurke,"$I"feher eger ) es genotipusok ( SS,SF,FF ) eloszlasat. ( 'S' a"=I"dominans allel. )"I:" A szaporodas folyaman mutaciok kovetkezhetnek be , az 'S'"I"allel adott valoszinuseggel 'F' allelle alakulhat , ill . az" J"'F' allel adott -mas- valoszinuseggel 'S' allelle . Kerheto"OJ"egyszeri (egy generaciora hato) , ill . folyamatos mutacio."J:"Ha elolvasta usson le egy billentyut !";J&""550J0:20);"MUTACIOS NYOMAS"J:JD" Figyeljuk meg a mutacio hatasat a gengyakorisagok erte-"8KN"keire , es a valtozas sebessegenek fuggeset a mutaciosrata-"{KX"tol . Ha egyik valoszinuseg sem nulla , akkor un. mutacios"Kb"egyensuly fog kialakulni ; Ha valamelyik nulla , akkor a"Ll"folyamat vegen a populacio csak az egyik allelt fogja tar-"DLv"talmazni . Ekkor dominans iranyu mutacio eseten a fenotipu-"L"sokban a mutacio gyorsabban fog megjelenni , mint recessziv"L"iranyu mutacio eseten ."L@960,"Ha elolvasta usson le egy billentyut !";L""670 M : 20);"KEZELESI UTMUTATO"MVM" Ha lenyomja a 'V' betut, akkor befejezzuk a szimulaciot , ha"M"az 'A' betut , akkor leall a szimulacio es a 'T' betu lenyo-"M"masara indul ujra. A 'P' betuvel megvaltoztathatja a mutacios"M"parametereket." gombot uti le, akkor"mN "a korabban beadott adat marad ervenyben."sNN "A program a vezerlo billentyuk lenyomasara nem reagal azonnal."O  "Ennek oka az , hogy a vezerles figyelese az egyes generaciok".O "szimulaciojanak vegeztevel tortenik."cO  @896,"Ha elolvasta, usson le egy billentyut !"qO*""810wO4O> KEZDETI ERTEKEKOHN%100%OR R$(N%,2%),U$(N%,2%)O\S4%0%: TOVABB UZEMMODOfOp PARAMETEREKOzH96>P : "Mekkora legyen az 'S' gen relativ gyakorisaga (0-1)? "; :2270UPBE$""940:2360jP JO%900:PBEP P0 P1 900P I%1% N%P J%1% 2%P (0) P R$(I%,J%)"S" : R$(I%,J%)"F"P J%P I%PQ7%4%:Q6%6:Q8%8Q PAR. VALTOZO RESZ!.QH94:@Q7%64,(30);_Q"Folyamatos mutacio legyen (I/N)? ";: 2270~QBE$""1000:W9$(BE$,1)QW9$"I"W9$"i"W9$"N"W9$"n"1010QQ4%W9$"N" W9$"n"Q$H96Q.@Q6%64,(30);,R8"Mennyi legyen az 'F-->S' iranyu mutacio valoszinusege ? ";: 2270HRBBE$"" 1120 : 2360bRL JO% 1070 : W9BE}RVW90W911060:P1W9R`Q7%0ʑ2240Rj@Q8%64,(30);Rt"Mennyi legyen az 'S-->F' iranyu mutacio valoszinusege ? "; : 2270 S~ BE$"" 1180 : 2360%S JO% 1130 : W9BE@SW90W911130:P2W9QSQ7%0ʑ2250mSP8P1:P9P2 : MENTES!sSS KEZDO ABRASS 2180 : CIMKIIRAST@128,"Szurke eger:"; : @144," SS-genotipus:" ;: @160," SF-genotipus:" ; : @176," FF-genotipus:" ;1T 1530 : GRAFIKON INIC.;T2230~T@994,"A(ll)";:@1002,"V(eg)";:@1009,"T(ov)";:@1017,"P(ar)";TU%3%T B%1%T 1980 : "TOV" UZEMMOD JELZESETT( AKTUALIS ABRAT2 I%1% 4%T<S9%(I%)0%TF I% UP I9%1% N%UZZ%2%8Ud R$(I9%,1%)"F" Z%Z%1%ZUn R$(I9%,2%)"F" Z%Z%1%qUxS9%(Z%)S9%(Z%)1%U Z%4% S9%(1%)S9%(1%)1%U I9%U I%1% 4%U 1730 : GRAFIKONU I%UUR$" "U@198,UR$; : @198,S9%(1%);V@214,UR$; : @214,S9%(2%);>V@230,UR$; : @230,S9%(3%);^V@246,UR$; : @246,S9%(4%);V@30,(33," "); : @30,Q5%;". generacio";VV GRAFIKON INICIALIZALASV U9%(4%),E9%(4%),O9%(4%)VA9%42 : ALSO SORVF9%12 : FELSO SORW" I%1% 4%7W,U9%(I%)I%32%1%: UTOLSO OSZLOPbW6E9%(I%)32%(I%1%)9%: ELSO OSZLOPW@O9%(I%)E9%(I%)1%: AKTUALIS OSZLOPWJM9%A9%F9%: ERTEKTARTOMANYWT I%W^ SKALARAJZOLAS BEOSZTASSALWh I%1% 4%Xr I9%A9% F9% (M9%2%)X| (E9%(I%)1%,I9%))X I9%@X TENGELY RAJZOLASgX I9%F9%A9%:(E9%(I%),I9%): I9%X I9%F9% A9% (M9%2%):B9(A9%I9%)(A9%F9%):@(I9%3%)64%(E9%(I%)9%)2%,B9;: I9%X I%XX GRAFIKONRA 1 PONT RAJZOLAS$Y I9%A9% A9%(S9%(I%)(100M9%)) 1%7Y(O9%(I%),I9%)AY I9%XYO9%(I%)O9%(I%)1%Y O9%(I%)U9%(I%) O9%(I%)E9%(I%)1%Y I9%A9% F9% 1%Y (O9%(I%),I9%)Y I9%YY& TOVABB ---> ALLY0 S4%1% Z:U%3%: B%0%: 1980 : TOVABB JELZO TORLESELZDU%1%: B%1%: 1980 : ALL JELZO BEALLITASAWZNS4%1%]ZXZb ALL ---> TOVABB ILL. PAR ---> TOVABBZl S4%1% U%1%Zv S4%2% U%4%ZB%0%: 1980 : 'ALL' V. 'PAR' JELZO TORLESE[U%3%:B%1%: 1980 : TOVABB JELZO BEALLITASA&[S4%0%,[N[ ALL ---> TOV ATVALTASRA VAR[A$ : A$"T" 190 : A$"V" 360 : 1970[ UZEMMOD KIJELZES ES BEALLITAS[ U% 2000,2010,2020,2030[C%993: 2040 : ALL[C%1001: 2040 : VEG\C%1008: 2040 : TOV+\C%1016: PARn\ B%1% @C%,"*"; : @C%6%,"*"; : @C%," "; : @ C%6%," ";t\\  TOVABB ---> PAR\ S4%2% \ U%3%:B%0%: 1980 : TOVABB JELZO TORLESE\*U%4%:B%1%: 1980 : PAR JELZO BEALLITASA]4S4%2%/]>@0,(30); : PARAMETERSOR TORLESEc]HQ7%0%:Q6%0:Q8%0: P1P8:P2P9: VISSZAALLITAS]R 1000 : PARAMETER BEOLVASAS]\@0,(30); : PARAMETERSOR TORLESE]f 2180 : CIMKIIRATAS]p@30,Q5%1%;". generacio"; : GENERACIO KIIRAS^z^ CIMKIIRAS^10);E^Q4%ʲ"EGYSZERI";:"FOLYAMATOS";U^" MUTACIO"[^s^ ALSO SOR IRASA!!!^@960,"P(F->S):";"#.##";P1;^@96015,"P(S->F):";"#.##";P2;^^ BEOLVASAS ELLENORZES^I90:BE$""_ZZ$:ZZ$""2290_ZZ$(13)ʒ._ (ZZ$)8(ZZ$)322290G_ ZZ$(8)2330:2340s_ I912290:I9I91:BE$(BE$,I9):2350_$ I9H92290:I9I91:BE$BE$ZZ$_. ZZ$;:2290_8 TP%1 : BE0_B JO%1_L BE$""ʒ_V BE%1 (BE$)`` B0$(BE$,BE%,1%)!`j BE%1% B0$"+" 2450P`t B0$"0" B0$"9" B0$" " 2450w`~ B0$"." TP% TP%0 : 2450` JO%0 : ` : BE(BE$) :