|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC759 "Piccoline" |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC759 "Piccoline" Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 3456 (0xd80)
Types: TextFile
Names: »DNA.SCL«
└─⟦216f59cd8⟧ Bits:30002641 SCANLOG - Piccoline vers. nov. 87
└─⟦this⟧ »DNA.SCL«
; Kurt Fleckner 6. juli 1985
;
; PROTEINSYNTESE
; ==============
;
; Det er reglen med navnet syntese, der skal bruges.
;
; første del af kodningen
kod(<>,<>).
kod(<Hoved..Hale>,<Hoved_kodet..Hale_kodet>) hvis
kodning(Hoved,Hoved_kodet) og
kod(Hale,Hale_kodet).
; kodning fra DNA til RNA
kodning('a','u').
kodning('t','a').
kodning('g','c').
kodning('c','g').
; anden del af kodningen
kod1(<>,<>).
kod1(<Hoved..Hale>,<Hoved_kodet..Hale_kodet>) hvis
kodning1(Hoved,Hoved_kodet) og
kod1(Hale,Hale_kodet).
vælg_een find_codon
find_codon(<>,<>).
;
find_codon(<S1,S2,S3..Rest>,<S..Rest_samlet>) hvor
streng(S1),
streng(S2) og
streng(S3) hvis
sammensæt(S1,S2,S_res),
sammensæt(S_res,S3,S) og
find_codon(Rest,Rest_samlet).
find_codon(<S1,S2,S3..Rest>,<S..Rest_samlet>) hvor
streng(S) hvis
sammensæt(S1,S_res,S),
længde(S1,1),
sammensæt(S2,S3,S_res),
længde(S2,1) og
find_codon(Rest,Rest_samlet).
slut.
omform('',<>).
omform(St,<S1..T>) hvor
streng(St) hvis
sammensæt(S1,S2,St),
længde(S1,1) og
omform(S2,T).
omform(St,<H..T>) hvor
ikke(streng(St)) hvis
omform(S2,T) og
sammensæt(H,S2,St).
vælg_een syntese
syntese(DNA_kode,Aminosyrer) hvor
streng(DNA_kode) hvis
omform(DNA_kode,Tmp),
kod(Tmp,RNA_kode),
find_codon(RNA_kode,Codon_kode) og
kod1(Codon_kode,Aminosyrer).
syntese(DNA_kode,Aminosyrer) hvor
liste(Aminosyrer) hvis
kod1(Codon_kode,Aminosyrer),
find_codon(RNA_kode,Codon_kode),
kod(Tmp,RNA_kode) og
omform(DNA_kode,Tmp).
slut.
; kodning fra codoner til aminosyrer
kodning1('gcg',alanin).
kodning1('gca',alanin).
kodning1('gcc',alanin).
kodning1('gcu',alanin).
kodning1('cgg',arginin).
kodning1('cga',arginin).
kodning1('cgc',arginin).
kodning1('cgu',arginin).
kodning1('agg',arginin).
kodning1('aga',arginin).
kodning1('aac',aspargin).
kodning1('aau',aspargin).
kodning1('gac',asparginsyre).
kodning1('gau',asparginsyre).
kodning1('ugc',cystein).
kodning1('ugu',cystein).
kodning1('gag',glutaminsyre).
kodning1('gaa',glutaminsyre).
kodning1('cag',glutamin).
kodning1('caa',glutamin).
kodning1('ggg',glysin).
kodning1('gga',glysin).
kodning1('ggc',glysin).
kodning1('ggu',glysin).
kodning1('cac',histidin).
kodning1('cau',histidin).
kodning1('aua',isoleucin).
kodning1('auc',isoleucin).
kodning1('auu',isoleucin).
kodning1('cug',leucin).
kodning1('cua',leucin).
kodning1('cuc',leucin).
kodning1('cuu',leucin).
kodning1('uug',leucin).
kodning1('uua',leucin).
kodning1('aag',lysin).
kodning1('aaa',lysin).
kodning1('aug',methonin).
kodning1('uuc',phenylalanin).
kodning1('uuu',phenylalanin).
kodning1('ccg',prolin).
kodning1('cca',prolin).
kodning1('ccc',prolin).
kodning1('ccu',prolin).
kodning1('agc',serin).
kodning1('agu',serin).
kodning1('ucg',serin).
kodning1('uca',serin).
kodning1('ucc',serin).
kodning1('ucu',serin).
kodning1('acg',threonin).
kodning1('aca',threonin).
kodning1('acc',threonin).
kodning1('acu',threonin).
kodning1('ugg',tryptophan).
kodning1('uac',tyrosin).
kodning1('uau',tyrosin).
kodning1('gug',valin).
kodning1('gua',valin).
kodning1('guc',valin).
kodning1('guu',valin).
«eof»