1(C ********************************************************gC * Programnev : MUTACIO + Szelekcio *C * Szerzo : Harmathy Zoltan,Sandor Antal *C( * Szlavi Peter,Zsako Laszlo *$D2 * *cD< * ELTE azonosito : HT-14/8.1 *DF * Datum : 1983. szeptember *DP ********************************************************DZ470: TAJEKOZTATOEd900: KEZDETI ERTEKEK-En940: PARAMETEREKDEx1400: KEZDOABRA_E1510: AKTUALIS ABRAmEQ5%Q5%1EA$:A$"A"A$"a"A$"V"A$"v"A$"P"A$"p"190EA$"V"A$"v"410: VEGEEA$"A"A$"a"ʑ2020:2150: ALLJFA$"P"A$"p"ʑ2250: 150: PARAMETEREK;FS4%0ʑ2080: TOVABBHFI%1N%UFJ%12%bFK%(N%)FR$(K%,1)R$(K%,2)270: HETEROZIGOTAFR$(K%,1)"S"280: DOMINANS HOMOZIGOTAF RECESSZIV HOMOZIGOTAF(0)W3290:220G(0)W2290:220G(0)W1290:220$G"L%(2);G,R$(K%,L%)"S"320`G6(0)P1U$(I%,J%)"S":340:330G@(0)P2U$(I%,J%)"F":340GJU$(I%,J%)R$(K%,L%)GTJ%G^I%GhI%1N%GrR$(I%,1)U$(I%,1)G|R$(I%,2)U$(I%,2)GI%G130G VEGEH:"Kezdjuk elolrol(I/N)?";1HA$:A$""430JHA$"I"A$"i"ʸ:90iH@1064,"Viszontlatasra !"oHH:@20,"MUTACIO + SZELEKCIO"H:" A programmal egy panmiktikus mendeli populaciot vizsgalunk,"I"szurke es feher egereket . Veletlenszeruen parositunk adott"^I"szamu egeret, s vizsgaljuk a keletkezo fenotipusok ( szurke,"I"feher eger ) es genotipusok ( SS,SF,FF ) eloszlasat. ( 'S' a"I"dominans allel. )"J:" A szaporodas folyaman mutaciok kovetkezhetnek be , az 'S'"EJ"allel adott valoszinuseggel 'F' allelle alakulhat , ill . az"J&"'F' allel adott -mas- valoszinuseggel 'S' allelle. Mindharom"J0"genotipusra hat szelekcios ero, amely a relativ ratermettse-"K:"guktol fugg (az egy 0 es 1 kozotti szam, 1 jellemzi a legal-" gombot uti le, akkor"kO  "a korabban beadott adat marad ervenyben."qO*O4 "A program a vezerlo billentyuk lenyomasara nem reagal azonnal."O> "Ennek oka az , hogy a vezerles figyelese az egyes generaciok"FPH "szimulaciojanak vegeztevel tortenik . A vegrehajtas sebessege"PR"nagyobb relativ ratermettsegi ertekeknel kismertekben no."P\ @960,"Ha elolvasta, usson le egy billentyut !";Pf""870PpPz KEZDETI ERTEKEKPN%100% Q R$(N%,2%),U$(N%,2%)*QS4%0%: TOVABB UZEMMOD0QBQ PARAMETEREKKQH96Q : "Mekkora legyen az 'S' gen relativ gyakorisaga (0-1)? "; : 2470Q BE$""1000:2560QJO%960:PBEQ P0 P1 960Q I%1% N%R J%1% 2%0R (0) P R$(I%,J%)"S" : R$(I%,J%)"F"9R J%BR I%fRQ7%4:Q2%6:Q4%8:Q6%10:Q8%12}R$ PAR. VALTOZASOK!R.@Q7%64,(30);R8"Mennyi legyen az 'F-->S' iranyu mutacio valoszinusege? ";: 2470RBBE$""1120:2560SLJO%1070:W9BE"SVW90W911070:P1W93S`Q7%0ʑ2410GSj@Q2%64,(30);St"Mennyi legyen az 'S-->F' iranyu mutacio valoszinusege? "; : 2470S~BE$""1180:2560SJO%1130:W9BESW90W911160:P2W9SQ7%0ʑ2420S@Q4%64,(30);$T"'SS' r. ratermettsege? ";:2470 ALLp\ S4%1% \U%3%: B%0%: 2170 : TOVABB JELZO TORLESE\U%1%: B%1%: 2170 : ALL JELZO BEALLITASA\ S4%1%\]  ALL ---> TOVABB ILL. PAR ---> TOVABB)]* S4%1% U%1%>]4 S4%2% U%4%r]>B%0%: 2170 : 'ALL' V. 'PAR' JELZO TORLESE]HU%3%:B%1%: 2170 : TOVABB JELZO BEALLITASA]RS4%0%]\]f ALL ---> TOV ATVALTASRA VAR ^pA$ : A$"T" 190 : A$"V" 410 : 21601^z UZEMMOD KIJELZES ES BEALLITASP^ U% 2190,2200,2210,2220k^C%993: 2230 : ALL^C%1001: 2230 : VEG^C%1008: 2230 : TOV^C%1016: PAR^ B%1% @C%,"*"; : @C%6%,"*"; : @C%," "; : @ C%6%," ";^_ TOVABB ---> PAR$_ S4%2% U_U%3%:B%0%: 2170 : TOVABB JELZO TORLESE_U%4%:B%1%: 2170 : PAR JELZO BEALLITASA_S4%2%_@0,(30); : PARAMETERSOR TORLESE_ Q7%0%:Q6%0:Q8%0:Q4%0:Q2%0: VISSZAALLITAS` 1060 : PARAMETER BEOLVASAS9` @0,(30); : PARAMETERSOR TORLESET`$ 2370 : CIMKIIRATAS`. @30,Q5%1%;". generacio"; : GENERACIO KIIRAS`8 `B CIMKIIRAS`L 6);"MUTACIO + SZELEKCIO";`V `` ALSO SOR IRASA!!!`j @896,"P(F->S):";"#.##";P1;at @911,"P(S->F):";"#.##";P2;=a~ @960,"R(SS):";"#.##";W1;\a @971,"R(SF):";"#.##";W2;{a @982,"R(FF):";"#.##";W3;a a BEOLVASAS ELLENORZESa I90:BE$""a ZZ$:ZZ$""2490a ZZ$(13)ʒa (ZZ$)8(ZZ$)322490 b ZZ$(8)2530:25406b I912490:I9I91:BE$(BE$,I9):2550[b I9H92490:I9I91:BE$BE$ZZ$kb ZZ$;:2490}b TP%1 : BE0b JO%1b BE$""ʒb BE%1 (BE$)b( B0$(BE$,BE%,1%)b2 BE%1% B0$"+" 2650c< B0$"0" B0$"9" B0$" " 2650:cF B0$"." TP% TP%0 : 2650KcP JO%0 : acZ : BE(BE$) : c