1(C ********************************************************gC * Programnev : Szelekcio *C * Szerzo : Harmathy Zoltan,Sandor Antal *C( * Szlavi Peter,Zsako Laszlo *$D2 * *cD< * ELTE azonosito : HT-14/6.1 *DF * Datum : 1983. szeptember *DP ********************************************************DZ460: TAJEKOZTATOEd940: KEZDETI ERTEKEK-En980: PARAMETEREKDEx1330: KEZDOABRA_E1440: AKTUALIS ABRAmEQ5%Q5%1EA$:A$"A"A$"a"A$"V"A$"v"A$"P"A$"p"190EA$"V"A$"v"400: VEGEEA$"A"A$"a"ʑ1950:2080: ALLJFA$"P"A$"p"ʑ2180: 150: PARAMETEREK;FS4%0ʑ2010: TOVABBHFI%1N%UFJ%12%bFK%(N%)~FR$(K%,1)R$(K%,2)290FR$(K%,1)"S"270F RECESSZIV HOMOZIGOTAF(0)W3310:220F DOMINANS HOMOZIGOTAF (0)W1310:220 G" HETEROZIGOTAG,(0)W2310:220+G6L%(2)CG@U$(I%,J%)R$(K%,L%)KGJJ%SGTI%`G^I%1N%vGhR$(I%,1)U$(I%,1)GrR$(I%,2)U$(I%,2)G|I%G130G VEGEG:"Kezdjuk elolrol(I/N)?";GA$:A$""420GA$"I"A$"i"ʸ:90H@1064,"Viszontlatasra !"H;H:20);"IRANYITO SZELEKCIO"H::" A programmal egy panmiktikus mendeli populaciot vizsgalunk,"H"szurke es feher egereket . Veletlenszeruen parositunk adott" I"szamu egeret, s vizsgaljuk a keletkezo fenotipusok ( szurke,"OI"feher eger ) es genotipusok ( SS,SF,FF ) eloszlasat. ( 'S' a"hI"dominans allel. )"I:" Az egyes genotipusokhoz hozzarendelunk egy relativ rater-"I"mettseget , ( egy 0 es 1 koze eso szamot ) ahol az 1 ertek"6J"jellemzi a legratermettebbet , a 0 az eletkeptelent . Terme-"zJ&"szetesen a nagyobb ratermettsegi ertekkel rendelkezok gyor-"J0"sabban kepesek szaporodni."J::"Ha elolvasta usson le egy billentyut !";JD""580JN:20);"IRANYITO SZELEKCIO"KXEKb"Teljes dominancia eseten a dominans homozigota es a hetero-"Kl"zigota relativ ratermettsege azonos , a szelekcios ero a"Kv"fenotipusokra hat."K" Figyeljuk meg az egyes genotipusok aranyanak valtozasat"L"kulonbozo relativ ratermettsegi ertekeknel:""LT%16?LT%);"SS SF FF"\LT%);" 1 1 0"yLT%);" 1 1 1-s"LT%);" 1 1-ks 1-s"LT%1);"1-r 1 1-s"LT%1);"1-s 1-s 1"LT%);"1 0 1"MT%);"0 1 0"DM@960,"Ha elolvasta usson le egy billentyut !";RM""760uM : 20);"KEZELESI UTMUTATO"{M M" Ha lenyomja a 'V' betut, akkor befejezzuk a szimulaciot , ha"N "az 'A' betut, akkor leall a szimulacio es a 'T' betu lenyo-"JN*"masara indul ujra. A 'P' betuvel megvaltoztathatja a szelek-"eN4"cios parametereket."N> " Ha adatmodositaskor csak a gombot uti le, akkor"NH "a korabban beadott adat marad ervenyben."NR)O\ "A program a vezerlo billentyuk lenyomasara nem reagal azonnal."pOf "Ennek oka az , hogy a vezerles figyelese az egyes generaciok"Op "szimulaciojanak vegeztevel tortenik . A vegrehajtas sebessege"Oz"nagyobb relativ ratermettsegi ertekeknel novekszik."'P @896,"Ha elolvasta, usson le egy billentyut !"5P""910;PQP KEZDETI ERTEKEK]PN%100%wP R$(N%,2%),U$(N%,2%)PS4%0%: TOVABB UZEMMODPP PARAMETEREKPH96Q : "Mekkora legyen az 'S' gen relativ gyakorisaga (0-1)? ";: 2380:2470QJO%1000 QPBE6Q P0 P1 990GQ I%1% N%XQ J%1% 2%Q$ (0) P R$(I%,J%)"S" : R$(I%,J%)"F"Q. J%Q8 I%QBQ7%4%:Q6%6:Q8%8QL PAR. VALTOZO RESZ!QV@Q7%64,(30);R`"'SS' genotipus r. ratermettsege (0-1)? ";:2380 : 2470+RjJO%1110CRtBE$""1160:W9BE^R~W90W911110:W1W9oRQ7%0ʑ2330R@Q6%64,(30);R"'SF' genotipus r. ratermettsege (0-1)? "; : 2380 : 2470R JO%1170RBE$""1220:W9BESW90W911090:W2W9SQ7%0ʑ2350-S@Q8%64,(30);mS"'FF' genotipus r. ratermettsege (0-1)? "; : 2380 : 2470}S JO%1230SBE$""1280:W9BESW90W911160:W3W9SQ7%0ʑ2360S W1W2W30ʒS:5);(23);"MINDEGYIK KIHALT !" TI911000:I9T(410&T2 KEZDO ABRA,T<ETF 2300 : CIMKIIRASTP@128,"Szurke eger:"; : @144," SS-genotipus:" ;: @160," SF-genotipus:" ; : @176," FF-genotipus:" ;TZ 1650 : GRAFIKON INIC.Td2330 Un@994,"A(ll)";:@1002,"V(eg)";:@1009,"T(ov)";:@1017,"P(ar)";*UxU%3%4UB%1%[U 2100 : "TOV" UZEMMOD JELZESEaUuU AKTUALIS ABRAU I%1% 4%US9%(I%)0%U I%U I9%1% N%UZ%2%U R$(I9%,1%)"F" Z%Z%1%U R$(I9%,2%)"F" Z%Z%1%VS9%(Z%)S9%(Z%)1%3V Z%4% S9%(1%)S9%(1%)1%=V I9%MV I%1% 4%fV 1850 : GRAFIKONoV" I%V,UR$" "V6@198,UR$; : @198,S9%(1%);V@@214,UR$; : @214,S9%(2%);VJ@230,UR$; : @230,S9%(3%);WT@246,UR$; : @246,S9%(4%);.W^@30,(33," "); : @30,Q5%;". generacio";4WhQWr GRAFIKON INICIALIZALASoW| U9%(4%),E9%(4%),O9%(4%)WA9%42 : ALSO SORWF9%12 : FELSO SORW I%1% 4%WU9%(I%)I%32%1%: UTOLSO OSZLOPXE9%(I%)32%(I%1%)9%: ELSO OSZLOP/XO9%(I%)E9%(I%)1%: AKTUALIS OSZLOPQXM9%A9%F9%: ERTEKTARTOMANYZX I%zX SKALARAJZOLAS BEOSZTASSALX I%1% 4%X I9%A9% F9% (M9%2%)X (E9%(I%)1%,I9%)X I9%X TENGELY RAJZOLAS Y I9%F9%A9%:(E9%(I%),I9%): I9%hY I9%F9% A9% (M9%2%):B9(A9%I9%)(A9%F9%):@(I9%3%)64%(E9%(I%)9%)2%,B9;: I9%qY& I%wY0Y: GRAFIKONRA 1 PONT RAJZOLASYD I9%A9% A9%(S9%(I%)(100M9%)) 1%YN(O9%(I%),I9%)YX I9%YbO9%(I%)O9%(I%)1%%Zl O9%(I%)U9%(I%) O9%(I%)E9%(I%)1%>Zv I9%A9% F9% 1%RZ (O9%(I%),I9%)\Z I9%bZxZ TOVABB ---> ALLZ S4%1% ZU%3%: B%0%: 2100 : TOVABB JELZO TORLESEZU%1%: B%1%: 2100 : ALL JELZO BEALLITASAZS4%1%Z,[ ALL ---> TOVABB ILL. PAR ---> TOVABBA[ S4%1% U%1%V[ S4%2% U%4%[B%0%: 2100 : 'ALL' V. 'PAR' JELZO TORLESE[U%3%:B%1%: 2100 : TOVABB JELZO BEALLITASA[ S4%0%[[  ALL ---> TOV ATVALTASRA VAR%\*A$ : A$"T" 190 : A$"V" 400 : 2090I\4 UZEMMOD KIJELZES ES BEALLITASh\> U% 2120,2130,2140,2150\HC%993: 2160 : ALL\RC%1001: 2160 : VEG\\C%1008: 2160 : TOV\fC%1016: PAR]p B%1% @C%,"*"; : @C%6%,"*"; : @C%," "; : @ C%6%," ";]z,] TOVABB ---> PAR<] S4%2% m]U%3%:B%0%: 2100 : TOVABB JELZO TORLESE]U%4%:B%1%: 2100 : PAR JELZO BEALLITASA]S4%2%]@0,(30); : PARAMETERSOR TORLESE]Q7%0%:Q6%0:Q8%0: VISSZAALLITAS^ 1100 : PARAMETER BEOLVASASE^@0,(30); : PARAMETERSOR TORLESE`^ 2300 : CIMKIIRATAS^@30,Q5%1%;". generacio"; : GENERACIO KIIRAS^^ CIMKIIRAS^ 10);"SZELEKCIO"^ ^ ALSO SOR IRASA!!!^$ @960,"R(SS):";"#.##";W1;_. @971,"R(SF):";"#.##";W2;;_8 @982,"R(FF):";"#.##";W3;A_B \_L BEOLVASAS ELLENORZESl_V I90:BE$""_` ZZ$:ZZ$""2400_j ZZ$(13)ʒ_t (ZZ$)8(ZZ$)322400_~ ZZ$(8)2440:2450_ I912400:I9I91:BE$(BE$,I9):2460` I9H92400:I9I91:BE$BE$ZZ$+` ZZ$;:2400=` TP%1 : BE0H` JO%1V` BE$""ʒk` BE%1 (BE$)` B0$(BE$,BE%,1%)` BE%1% B0$"+" 2560` B0$"0" B0$"9" B0$" " 2560` B0$"." TP% TP%0 : 2560 a JO%0 : !a : BE(BE$) : y