Regisztráció Blogot indítok
Adatok
Hypno (törölt)

0 bejegyzést írt és 3 hozzászólása volt az általa látogatott blogokban.

Admin Szerkesztő Tag Vendég
Az elmúlt héten többen szóvá tették, hogy Ők nem olvasták a labor posztját, ezért nem tudták, hogy pontosan milyen olvasmányélményekkel kell, hogy a laborra rendelkezzenek. A hallgatói laborkártya kezdeményezés kb. olyan, mint amikor a magyar tanárod rákérdezett, hogy "a…..
Hypno (törölt) 2012.03.14 13:54:25
#include <stdio.h>
#include <unistd.h>

char *amino_sav[] = {
"Stop",
"Phe",
"Leu",
"Ile",
"Met",
"Val",
"Ser",
"Pro",
"Thr",
"Ala",
"Tyr",
"His",
"Gln",
"Asn",
"Lys",
"Asp",
"Glu",
"Cys",
"Trp",
"Arg",
"Gly"
};

int genetikai_kod (int triplet)
{
int index = 0;

switch (triplet)
{
case 0:
case 1:
index = 1;
break;
case 2:
case 3:
case 16:
case 17:
case 18:
case 19:
index = 2;
break;
case 32:
case 33:
case 34:
index = 3;
break;
case 35:
index = 4;
break;
case 48:
case 49:
case 50:
case 51:
index = 5;
break;
case 4:
case 5:
case 6:
case 7:
index = 6;
break;
case 20:
case 21:
case 22:
case 23:
index = 7;
break;
case 36:
case 37:
case 38:
case 39:
index = 8;
break;
case 52:
case 53:
case 54:
case 55:
index = 9;
break;
case 8:
case 9:
index = 10;
break;
case 10:
case 11:
index = 0;
break;
case 24:
case 25:
index = 11;
break;
case 26:
case 27:
index = 12;
break;
case 40:
case 41:
index = 13;
break;
case 42:
case 43:
index = 14;
break;
case 56:
case 57:
index = 15;
break;
case 58:
case 59:
index = 16;
break;
case 12:
case 13:
index = 17;
break;
case 14:
index = 0;
break;
case 15:
index = 18;
break;
case 28:
case 29:
case 30:
case 31:
index = 19;
break;
case 44:
case 45:
index = 6;
break;
case 46:
case 47:
index = 19;
break;
case 60:
case 61:
case 62:
case 63:
index = 20;
break;

default:

printf ("Zavar az eroben %d-nel\n", triplet);
index = 0;
break;
}

return index;
}

int
main (void)
{

int l, A[20];

for (l = 0; l < 20; l++)
A[l] = 0;

int hanyadik_betu = -1;

int elso = 0, masodik = 0, harmadik = 0, i = 0, jegy = 0;

while ((i = getchar ()) != EOF)
{

switch (i)
{

case 'T':
jegy = 0;
break;
case 'C':
jegy = 1;
break;
case 'A':
jegy = 2;
break;
case 'G':
jegy = 3;
break;
}

hanyadik_betu = (hanyadik_betu + 1) % 3;

if (!hanyadik_betu)
elso = jegy;
else if (!(hanyadik_betu - 1))
masodik = jegy;
else
{
harmadik = jegy;
++A[genetikai_kod ( elso * 16 + masodik * 4 + harmadik )];
}
}

for (l = 0; l < 20; l++)
printf("%s\t%d\n", amino_sav[l], A[l]);
}

Stop: 267838
Phe: 463183
Leu: 494987
Ile: 365167
Met: 78173
Val: 243485
Ser: 447363
Pro: 194184
Thr: 243451
Ala: 175955
Tyr: 151660
His: 131102
Gln: 183783
Asn: 281030
Lys: 415900
Asp: 123341
Glu: 201059
Cys: 140234
Trp: 68346
Arg: 304556
Gly: 191070
Ez a poszt a ott folytatódik, ahol a feb. 29-i előadást befejeztük, őse a tavalyi Gyönyör a tömör poszt. Aktuális, hogy a "elit képzést" felvevő hallgatók soraiban immár felütötte a fejét a kétségbeesés. Olyan jelekben nyilvánul ez meg, mint például: "nem…..