1(C ********************************************************iC * Programnev : sSzimpatia *C * Szerzo : Harmathy Zoltan,Sandor Antal *C( * Szlavi Peter,Zsako Laszlo *&D2 * *eD< * ELTE azonosito : HT-14/7.1 *DF * Datum : 1983. oktober *DP ********************************************************EZ Szimpatia (POPULACIOGENETIKA)Ed : 10003En 460 : TAJEKOZTATOREx 830 : KEZDETI ERTEKEKmE 890 : PARAMETEREKE 1230 : KEZDOABRAE 1340 : AKTUALIS ABRAEQ5%Q5%1%FA$ : A$ "A" A$ "V" A$ "P" A$ "a" A$ "v" A$ "p" 2209F A$"A" A$"a" 1950 : 2080 : ALLJ_F A$"V" A$"v" 400 : VEGEF A$"P" A$"p" 2180 : PARAMETEREKF S4%0 2010 : TOVABBF I%1% N%F K%(N%)F P%(N%)F P%K% 240;G R$(K%,1%)R$(K%,2%) U%2 : R$(K%,1%)"S" U%1 : U%3G R$(P%,1%)R$(P%,2%) V%2 : R$(P%,1%)"S" V%1 : V%3G (0)S(U%,V%) 230G" L%(2) : U$(I%,1%)R$(K%,L%)G, L%(2) : U$(I%,2%)R$(P%,L%)G6 I%H@ I%1% N%HJ R$(I%,1%)U$(I%,1%)9HT R$(I%,2%)U$(I%,2%)BH^ I%LHh 150uHr vege , nemfolytathato a szimulacioH|@0,"A kovetkezo generaciora kihalnak! A fennmaradas feltetele, hogy legyenekegymasnak szimpatikusak is!";I X1 1000: X$I : "Kezdjuk elolrol (I/N)?"=IA$ : A$"" 410`I A$"I" A$ "i" : 110~I A$"N" A$"n" 400I @704,"Viszontlatasra!"II : @25,"SZIMPATIA" : TAJEKOZTATOJ @128, " A programmal egy mendeli populaciot vizsgalunk, ";VJ "szurke es fe-her egereket. Veletlenszeruen parositunk adott ";J "szamu egeret, svizsgaljuk a keletkezo fenotipusok (szurke, ";J "feher eger) es geno-tipusok (SS,SF,FF) eloszlasat. ('S' a dominans allel.)"/K " A populaciora nem teljesul a panmixia feltetele, a ";zK " parosodasnem teljesen veletlenszeru, azaz az egyes genotipusok ";K "kulonbozomertekben 'szimpatizalnak' egymassal. Ha teljes dominancia ";L "van,akkor az 'SS' es az 'SF' genotipus kozott nem lehet kulonbseg,";aL& "a szimpatia fenotipuson alaputo tulajdonsag. A szimpatia annak";L0 "valoszinusege, hogy ha ket egyed talalkozik, akkor szimpatikus-nak talaljak egymast."L: 2330 : LAPVEGEMD : " Ha a hasonlo tipusok elonyben reszesitik egymast, ";gMN "akkor azallelek gyakorisaganak allandosaga mellett a homozigotak ";MX " aranyanovekedni fog ; ha kulonbozoek, akkor a heterozigotak ";Mb "aranya fognovekedni, s megvaltozhatnak az allelgyakorisagok is.";QNl " Ha vala-melyik homozigotanak senki sem szimpatikus, akkor az hamarosankihal."Nv : " Figyeljuk meg, hogy a szimpatiatol hogyan fuggnek a gengyako-risagok!"N 2330 : LAPVEGEN " A szimpatia matrix kiirasanak formaja:"?O : 20);"SS-SS SS-SF SS-FF" : 28);"SF-SF SF-FF" : 36);"FF-FF"O : " A fel nem tuntetett matrixelemek megegyeznek szimmetrikus par-jaikkal a 'szimpatia' kolcsonossege miatt!"O 2330 : LAPVEGEO 20);"KEZELESI UTMUTATO"4P : " Ha lenyomja a 'V' betut, akkor befejezzuk a szimulaciot,";iP " ha az'A' betut akkor leall a szimulacio es";P " a 'T' betu lenyomasara in-dul ujra. A 'P' betuvel megvaltoztathatja";P " a mutacios paramete-reket.";P:GOSUB 2300 : REM LAPVEGE;Q " Ha egy modositasi kerdesre a valasz , ";nQ "akkor aparameter erteke valtozatlan marad."tQQ  " A program a vezerlo billentyuk lenyomasara nem reagal azonnal.";R "Ennek oka az , hogy a vezerles figyelese az egyes generaciok"3R  "szimulaciojanak vegeztevel tortenik."JR* 2330 : LAPVEGEPR4fR> KEZDETI ERTEKEKRHN%100%: H96 : populacio merete, beolvasando karakterek szamaRR R$(N%,2%),U$(N%,2%),S(3%,3%),S$(3%)S\S$(1%)"SS" : S$(2%)"SF" : S$(3%)"FF"SfS4%0%: TOVABB UZEMMOD$Sp6Sz PARAMETEREKASQ5%0%SS @192,(31);S @192, "Mekkora legyen az 'S' relativ gyakorisaga (0-1)? "; : 2410 : beolvasasS BE$"" 950 : 2500 : beolvasas ellenorzesS JO% 910 : PBET P0 P1 910T I%1% N%3T J%1% 2%iT (0) P R$(I%,J%)"S" : R$(I%,J%)"F"T (127,0) (127,0) : (127,0)T J%T I%TP4%1 : P%4TQ4%P4%: Q%P%T I%1 3T J%I% 3 U$ P%P%P4% : P$""XU. @P%64%,(30%); : @P%64%15,S$(I%);"-";S$(J%);" szimpatia? ";wU8 2410 : beolvasasUB BE$"" 1110 : 2500 : beolvasas ellenorzesUL JO% P4%Q4% : P%Q% : 1200 : PBEUV PBE'V` P0 P1 P4%Q4% : P%Q% : 1200IVj S(I%,J%)P : S(J%,I%)PRVt XV~V 1380 : szimpatia ellenorzes, genotipus szamolasV SS10 *W @(P%P4%)64%,"A kovetkezo generaciora kihalnak! A fennmaradas feltetele, hogy legyenek egymasnak szimpatikusak is!";IW I1 2000 : I : P%Q%|W I%1 8 : @P%64%,(30%); : P%P%P4% : W P4%0 @(1%P%)64%,(30%); : @P%64%,(30%); WP%Q% : 1030W KEZDO ABRAWW 2300 : CIMKIIRASnX @128,"Szurke eger:"; : @144," SS-genotipus:" ; : @160," SF-genotipus:"; : @176," FF-genotipus:";X 1650 : GRAFIKON INIC.X @965,"Szimpatia matrix";X  @990,"A(LL)";: @998,"V(EG)";: @1006,"T(OV)";: @1014,"P(AR)";Y 2380 : Szimpatia matrix kiirasa)YU%3 : B%1PY( 2100 : "TOV" UZEMMOD JELZESEVY2jY< AKTUALIS ABRAYF 1380 : SS10 370 : nem mehet tovabbYP 1540: grafikon rajzolasYZYd szimpatia ellenorzes, genotipus szamolasYn I%1% 4%Zx S9%(I%)0%Z I%+Z I9%1% N%8Z Z%2%]Z R$(I9%,1%)"F" Z%Z%1%Z R$(I9%,2%)"F" Z%Z%1%Z S9%(Z%)S9%(Z%)1%Z Z%4% S9%(1%)S9%(1%)1%Z I9%ZSS0Z SI1 3 : SJ1 3[ SSSSS(SI,SJ)S9%(SI1)S9%(SJ1)#[ SJ,SI)[A[ grafikon rajzolasQ[ I%1% 4%m[ 1850 : GRAFIKONv[" I%[,UR$" "[6@198,UR$; : @198,S9%(1%);[@@214,UR$; : @214,S9%(2%);[J@230,UR$; : @230,S9%(3%);\T@246,UR$; : @246,S9%(4%);3\^ @40,(30); : @40,Q5%;". generacio";9\hV\r GRAFIKON INICIALIZALASt\| U9%(4%),E9%(4%),O9%(4%)\A9%39 : ALSO SOR\F9%13 : FELSO SOR\ I%1% 4%\U9%(I%)I%32%1%: UTOLSO OSZLOP ]E9%(I%)32%(I%1%)9%: ELSO OSZLOP4]O9%(I%)E9%(I%)1%: AKTUALIS OSZLOPV]M9%A9%F9%: ERTEKTARTOMANY_] I%] SKALARAJZOLAS BEOSZTASSAL] I%1% 4%] I9%A9% F9% (M9%2%)] (E9%(I%)1%,I9%)] I9%] TENGELY RAJZOLAS^ I9%F9%A9%:(E9%(I%),I9%): I9%m^ I9%F9% A9% (M9%2%):B9(A9%I9%)(A9%F9%):@(I9%3%)64%(E9%(I%)9%)2%,B9;: I9%v^& I%|^0^: GRAFIKONRA 1 PONT RAJZOLAS^D I9%A9% A9%(S9%(I%)(100M9%)) 1%^N(O9%(I%),I9%)^X I9%^bO9%(I%)O9%(I%)1%*_l O9%(I%)U9%(I%) O9%(I%)E9%(I%)1%C_v I9%A9% F9% 1%W_ (O9%(I%),I9%)a_ I9%g_}_ TOVABB ---> ALL_ S4%1% _U%3%: B%0%: 2100 : TOVABB JELZO TORLESE_U%1%: B%1%: 2100 : ALL JELZO BEALLITASA_S4%1%`1` ALL ---> TOVABB ILL. PAR ---> TOVABBF` S4%1% U%1%[` 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$ : A$"T" A$"t" 210 : A$"V" A$"v" 400 : 2090aa4 UZEMMOD KIJELZES ES BEALLITASa> U% 2120,2130,2140,2150aHC%989%: 2160 : ALLaRC%997%: 2160 : VEGa\C%1005%: 2160 : TOVafC%1013%: PAR,bp B%1% @C%,"*"; : @C%6%,"*"; : @C%," "; : @ C%6%," ";2bzHb TOVABB ---> PARXb S4%2% bU%3%:B%0%: 2100 : TOVABB JELZO TORLESEbU%4%:B%1%: 2100 : PAR JELZO BEALLITASAbS4%2%b @0,(30); : PARAMETERSOR TORLESEcP4%0 : P%0 : 1030/c 2380 : Szimpatia matrix kiirasWc@0,(30); : PARAMETERSOR TORLESErc 2300 : CIMKIIRATASc @40,Q5%1%;". generacio"; : GENERACIO KIIRAScc CIMKIIRASc @10,"MEIOTIKUS SODRODAS";(30);c c LAPVEGEFd$ @896,(9,191);" Ha elolvasta, nyomjon le egy billentyut! ";(9,191);Xd. "" 2350d8 : @25, "SZIMPATIA" : @128, ;dB dL Szimpatia matrix kiiraseV @896,(S(1,1)100)100;(S(1,2)100)100;(S(1,3)100)100;(S(2,2)100)100;(S(2,3)100)100;(S(3,3)100)100;!e`