[83] Ribosome TI
4 participants
Page 1 sur 1
![[83] Ribosome TI Empty](https://2img.net/i/empty.gif)
[83] Ribosome TI
par persalteas Mar 6 Déc - 10:15
Salut bande de geeks.
Je vous présente mon dernier programme, qui convertit les séquences d'ADN en ARNmessager puis, tel un virtuose ribosome, vous donne la séquence peptidique qui sera traduite.
En gros, il fait le code génétique, mais avec un max d'options:
________________________________________________________________________________
- Une présentation graphique inégalaaaable (avec "seulement" 3000 octets)
- Le choix de l'affichage des acides aminés en 1 lettre ou en 3 lettres.
- La possibilité de choisir la polarité de l'ADN, ou de partir d'un brin d'ARN directement.
- Il gère les codons-STOP.
________________________________________________________________________________
[Vous devez être inscrit et connecté pour voir cette image]
_________________________________________________________________________________
téléchargez donc ! [Vous devez être inscrit et connecté pour voir ce lien]
________________________________________________________________________________
Ah oui, et pour ceux qui n'ont pas de cable, voilà le code du programme.
Je pense qu'il n'y a plus grand chose à dire question optimisation, mais on peut toujours regarder.
- Je rappelle que les lettres minuscules sont trouvables soit en faisant [2nde]+une touche soit dans le menu [vars][5] et en fouillant.
- LADN est la liste ADN, le premier L se trouvant dans le catalogue.
- [xhat] et [yhat] sont les x-barre et y-barre servant a représenter des moyennes d'habitude.
Je vous présente mon dernier programme, qui convertit les séquences d'ADN en ARNmessager puis, tel un virtuose ribosome, vous donne la séquence peptidique qui sera traduite.
En gros, il fait le code génétique, mais avec un max d'options:
________________________________________________________________________________
- Une présentation graphique inégalaaaable (avec "seulement" 3000 octets)
- Le choix de l'affichage des acides aminés en 1 lettre ou en 3 lettres.
- La possibilité de choisir la polarité de l'ADN, ou de partir d'un brin d'ARN directement.
- Il gère les codons-STOP.
________________________________________________________________________________
[Vous devez être inscrit et connecté pour voir cette image]
_________________________________________________________________________________
téléchargez donc ! [Vous devez être inscrit et connecté pour voir ce lien]
________________________________________________________________________________
Ah oui, et pour ceux qui n'ont pas de cable, voilà le code du programme.
Je pense qu'il n'y a plus grand chose à dire question optimisation, mais on peut toujours regarder.
- Je rappelle que les lettres minuscules sont trouvables soit en faisant [2nde]+une touche soit dans le menu [vars][5] et en fouillant.
- LADN est la liste ADN, le premier L se trouvant dans le catalogue.
- [xhat] et [yhat] sont les x-barre et y-barre servant a représenter des moyennes d'habitude.
- "code source":
- BASIC Code a écrit::4→dim(∟ADN
:Lbl 0
:ClrHome
:FnOff :AxesOff:Split:ClrDraw
:Simul
:‾19→Xmin:2→Xmax:‾3→Ymin:3→Ymax
:If ∟ADN(1:Then
:¦ RecallPic 6
:¦ Else
:¦ DrawInv 2sin(X-π.5)-1
:¦ DrawInv 2cos(X)-1
:¦ DrawInv 2cos(X
:¦ DrawInv 2sin(X-π.5
:¦ Horizontal 3
:¦ Vertical ‾19
:¦ Vertical 2
:¦ Vertical ‾18
:¦ {‾17.8,2,‾17.4,2,‾17.8,.8,‾17.4,.8,‾17.8,‾2.2,‾17.4,‾2.2,‾1.8,‾2.8,.4,‾2.6,0,‾2.2,‾1,‾2.2,‾1.1,‾.8,.9,
¦ ‾.6,‾1.8,‾.4,1.3,.2,‾1.5,.4,.2,.8,‾1.1,2.2,.6,2.6,‾1.5,2.6,.2,3→L1
:¦ For(A,1,40,4
:¦ ¦ Line(L1(A),L1(A+1),L1(A+2),L1(A+3
:¦ End
:¦ StorePic 6
:¦ {1,1,0→∟ADN
:End
:Text(2,9,"ADN cOnverter
:Text(9,9,"(c)2011 Persa1teas
:Text(23,9,"Quitter
:1→C
:Repeat K=105
:¦ getKey→K
:¦ C+(K=34 and C<3)-(K=25 and C>1)→C
:¦ Line(‾18.5,2.1,‾17.4,2.1,(C=1
:¦ Line(‾18.5,.9,‾17.4,.9,(C=2
:¦ Line(‾18.5,‾2.1,‾17.4,‾2.1,(C=3
:End
:If C=3:Goto Z
:If C=2:Then
:¦ ClrDraw
:¦ RecallPic 6
:¦ Text(2,9,"par Persa1teas
:¦ Text(8,9,"reMercieMents a A1e[xhat]
:¦ Text(14,9,"FerrarO.
:¦ Text(22,9,"Espace TI:FOruM
:¦ Pause
:End
:If C=1:Then
:¦ ClrDraw
:¦ RecallPic 6
:¦ Text(2,9,"entrer seQ (ADN)
:¦ Text(9,9,"entrer seQ (ARN)
:¦ Text(22,9,"OptiOns
:¦ 1→C
:¦ Repeat K=105
:¦ ¦ getKey→K
:¦ ¦ C+(K=34 and C<3)-(K=25 and C>1)→C
:¦ ¦ Line(‾18.5,2.1,‾17.4,2.1,(C=1
:¦ ¦ Line(‾18.5,.9,‾17.4,.9,(C=2
:¦ ¦ Line(‾18.5,‾2.1,‾17.4,‾2.1,(C=3
:¦ End
:¦ If C=3:Then
:¦ ¦ ClrDraw
:¦ ¦ RecallPic 6
:¦ ¦ Text(2,9,"NOMS:
:¦ ¦ Text(9,9,"POLARITE ADN-ARN:
:¦ ¦ 1→C
:¦ ¦ Lbl 8
:¦ ¦ If ∟ADN(2:Then
:¦ ¦ ¦ Text(2,30,"3 Lettres
:¦ ¦ ¦ Else
:¦ ¦ ¦ Text(2,30,"1 Lettre
:¦ ¦ End
:¦ ¦ If ∟ADN(3:Then
:¦ ¦ ¦ Text(15,9,"NeGatiF
:¦ ¦ ¦ Else
:¦ ¦ ¦ Text(15,9,"POsitiF
:¦ ¦ End
:¦ ¦ Text(22,9,"RETOUR
:¦ ¦ Repeat K=105
:¦ ¦ ¦ getKey→K
:¦ ¦ ¦ C+(K=34 and C<3)-(K=25 and C>1)→C
:¦ ¦ ¦ Line(‾18.5,2.1,‾17.4,2.1,(C=1
:¦ ¦ ¦ Line(‾18.5,.9,‾17.4,.9,(C=2
:¦ ¦ ¦ Line(‾18.5,‾2.1,‾17.4,‾2.1,(C=3
:¦ ¦ End
:¦ ¦ If C=1:not(∟ADN(2→∟ADN(2
:¦ ¦ If C=2:not(∟ADN(3→∟ADN(3
:¦ ¦ If C=3:Goto 0
:¦ ¦ Goto 8
:¦ End
:¦ (C=1)→∟ADN(4
:¦ Input "SeQuence ? ",Str0
:¦ 3iPart(length(Str0)/3
:¦ sub(Str0,1,Ans→Str0
:¦ ClrHome:ClrDraw:RecallPic 6
:¦ If ∟ADN(3) or ∟ADN(4:Disp "TranscriptiOn...
:¦ length(Str0→L
:¦ If ∟ADN(4)∟ADN(3:Then
:¦ ¦ " →Str7
:¦ ¦ Output(4,6,"/
:¦ ¦ Output(4,7,L
:¦ ¦ For(A,1,L
:¦ ¦ ¦ Output(4,2,A
:¦ ¦ ¦ sub(Str0,A,1→Str9
:¦ ¦ ¦ If Str9="T
:¦ ¦ ¦ "U→Str9
:¦ ¦ ¦ Str7+Str9→Str7
:¦ ¦ End
:¦ ¦ sub(Str7,2,L→Str0
:¦ End
:¦ If ∟ADN(4) xor ∟ADN(3:Then
:¦ ¦ " →Str7
:¦ ¦ Output(4,1," /
:¦ ¦ Output(4,7,L
:¦ ¦ For(A,1,L
:¦ ¦ ¦ Output(4,1,A
:¦ ¦ ¦ sub(Str0,A,1→Str9
:¦ ¦ ¦ If Str9="A":"U→Str8
:¦ ¦ ¦ If Str9="T" or Str9="U":"A→Str8
:¦ ¦ ¦ If Str9="C":"G→Str8
:¦ ¦ ¦ If Str9="G":"C→Str8
:¦ ¦ ¦ Str7+Str8→Str7
:¦ ¦ End
:¦ ¦ sub(Str7,2,L→Str0
:¦ End
:¦ ClrHome
:¦ Disp "Press [enter]...
:¦ Text(2,9,"ARNn cOdant:
:¦ Text(2,23,"n
:¦ 1→A
:¦ Line(‾17.4,.8,‾3.6,.8
:¦ Line(‾18.1,‾2.2,‾3.6,‾2.2
:¦ Line(‾3.6,.8,‾3.6,‾2.2
:¦ Pt-On(‾17.8,.5
:¦ Pt-On(‾17.8,‾2
:¦ Pt-On(‾3.8,‾2
:¦ Pt-On(‾3.8,.5
:¦ Str0→Str9
:¦ Repeat 13
:¦ End
:¦ Repeat K=105
:¦ ¦ getKey→K
:¦ ¦ Text(14,9,sub(Str9,A,14
:¦ ¦ A+(K=26 and A
:¦ ¦ If A>1:Then
:¦ ¦ ¦ Text(13,5,"..
:¦ ¦ ¦ Else
:¦ ¦ ¦ Text(13,5,"
:¦ ¦ End
:¦ ¦ If A
:¦ ¦ ¦ Else
:¦ ¦ ¦ Text(13,65,"
:¦ ¦ End
:¦ ¦ Line(‾15.5,‾1.6,‾17.2,‾1.6,(A>1
:¦ ¦ Line(‾17,‾1.4,‾17,‾1.8,(A>1
:¦ ¦ Line(‾6.2,‾1.6,‾4.4,‾1.6,(A
:¦ ClrHome
:¦ Str9→Str0
:¦ "H2N-→Str1
:¦ ∟ADN(2→J
:¦ Output(4,6,"/"
:¦ Output(4,7,L
:¦ For(A,1,L,3
:¦ ¦ Output(4,2,A
:¦ ¦ sub(Str0,A,1→Str7
:¦ ¦ sub(Str0,A+1,1→Str8
:¦ ¦ sub(Str0,A+2,1→Str9
:¦ ¦ 0→K
:¦ ¦ If Str9="A" or Str9="G
:¦ ¦ 1→K
:¦ ¦ Str7+Str8→Str5
:¦ ¦ If Str5="AA
:¦ ¦ Then
:¦ ¦ ¦ If K:Then
:¦ ¦ ¦ ¦ "K
:¦ ¦ ¦ ¦ If J:"L[yhat]s
:¦ ¦ ¦ ¦ Else
:¦ ¦ ¦ ¦ "N
:¦ ¦ ¦ ¦ If J:"Asn
:¦ ¦ ¦ End:End
:¦ ¦ If Str5="CA
:¦ ¦ Then
:¦ ¦ ¦ If K:Then
:¦ ¦ ¦ ¦ "Q
:¦ ¦ ¦ ¦ If J:"G1n
:¦ ¦ ¦ ¦ Else
:¦ ¦ ¦ ¦ "H
:¦ ¦ ¦ ¦ If J:"His
:¦ ¦ ¦ End:End
:¦ ¦ If Str5="CG" or Str5="AG" and K:Then
:¦ ¦ ¦ "R
:¦ ¦ ¦ If J:"ArG
:¦ ¦ End
:¦ ¦ If Str5="CU" or Str5="UU" and K:Then
:¦ ¦ ¦ "L
:¦ ¦ ¦ If J:"Leu
:¦ ¦ End
:¦ ¦ If Str5="CC
:¦ ¦ Then
:¦ ¦ ¦ "P
:¦ ¦ ¦ If J:"PrO
:¦ ¦ End
:¦ ¦ If Str5="GC
:¦ ¦ Then
:¦ ¦ ¦ "A
:¦ ¦ ¦ If J:"A1a
:¦ ¦ End
:¦ ¦ If Str5="GA
:¦ ¦ Then
:¦ ¦ ¦ If K:Then
:¦ ¦ ¦ ¦ "E
:¦ ¦ ¦ ¦ If J:"G1u
:¦ ¦ ¦ ¦ Else
:¦ ¦ ¦ ¦ "D
:¦ ¦ ¦ ¦ If J:"Asp
:¦ ¦ ¦ End:End
:¦ ¦ If Str5="GG
:¦ ¦ Then
:¦ ¦ ¦ "G
:¦ ¦ ¦ If J:"G1[yhat]
:¦ ¦ End
:¦ ¦ If Str5="GU
:¦ ¦ Then
:¦ ¦ ¦ "V
:¦ ¦ ¦ If J:"Va1
:¦ ¦ End
:¦ ¦ If Str5="UC" or Str5="AG" and not(K:Then
:¦ ¦ ¦ "S
:¦ ¦ ¦ If J:"Ser
:¦ ¦ End
:¦ ¦ If Str5+Str9="UGG
:¦ ¦ Then
:¦ ¦ ¦ "W
:¦ ¦ ¦ If J:"Trp
:¦ ¦ End
:¦ ¦ If Str5="UG" and not(K:Then
:¦ ¦ ¦ "C
:¦ ¦ ¦ If J:"C[yhat]s
:¦ ¦ End
:¦ ¦ If Str5="UU" and not(K
:¦ ¦ Then
:¦ ¦ ¦ "F
:¦ ¦ ¦ If J:"PHe
:¦ ¦ End
:¦ ¦ If Str5="UA" and not(K:Then
:¦ ¦ ¦ "Y
:¦ ¦ ¦ If J:"T[yhat]r
:¦ ¦ End
:¦ ¦ If Str5="UA" and K or Str5+Str9="UGA
:¦ ¦ "COOH H2N
:¦ ¦ If Str5+Str9="AUG
:¦ ¦ Then
:¦ ¦ ¦ "M
:¦ ¦ ¦ If J:"Met
:¦ ¦ End
:¦ ¦ If Str5="AU" and Str9≠"G
:¦ ¦ Then
:¦ ¦ ¦ "I
:¦ ¦ ¦ If J:"I1e
:¦ ¦ End
:¦ ¦ If Str5="AC
:¦ ¦ Then
:¦ ¦ ¦ "T
:¦ ¦ ¦ If J:"THr
:¦ ¦ End
:¦ ¦ Str1+Ans+"-→Str1
:¦ End:ClrHome
:¦ Str1+"COOH→Str1
:¦ Output(3,1,"<-- -->
:¦ Pause Str1
:End
:Goto 0
:Lbl Z
:DelVar L1DelVar Str9DelVar Str8DelVar Str7DelVar Str0DelVar Str5
:Full:ZStandard:AxesOn
:Output(1,1,"ADN cOnverter b[yhat]Persa1teas.
:Output(4,1,"Resu1tats sauvesdans Str1.
Generated by SourceCoder,
2005-2011 Cemetech
persalteas- Platinum 2
- Sexe :
Age : 28
Messages : 2068
Date d'inscription : 30/06/2010
Etudes : PACES (médecine)
Points Forum : 114
Points Concours : 10
Langages :- - TI-Basic Z80
- - xLib
- - Grammer
- - TI-Basic Nspire
- - TI-82 Stats.fr
- - TI-83
- - TI-83+
- - TI-84+ SE
- - TI-86
- - TI-Nspire
- - TI-Nspire CX
- - Casio Collège
- - Casio Graph
-
Re: [83] Ribosome TI
par noelthebest Mar 6 Déc - 12:12
Oh noooon ! J'en ai maaaare des transcriptions traductions ! T'as pas autre chose à faire ? 
noelthebest- Platinum 1
- Sexe :
Age : 26
Messages : 1971
Date d'inscription : 12/03/2011
Etudes : ENS Cachan
Points Forum : 20
Points Concours : 9
Langages :- - TI-Basic Z80
- - ASM TI-83+ / TI-84+
- - Axe Parser
- - TI-83+.fr
- - TI-Nspire CX
- - Casio Collège
- - Casio Graph
Re: [83] Ribosome TI
par persalteas Mar 6 Déc - 14:35
Ce processus gère la vie depuis qu'elle existe...
Sans lui tu ne serais pas en train de te plaindre :P
De plus, ce programme est fait pour t'éviter d'avoir à le faire toi même
Sans lui tu ne serais pas en train de te plaindre :P
De plus, ce programme est fait pour t'éviter d'avoir à le faire toi même
persalteas- Platinum 2
- Sexe :
Age : 28
Messages : 2068
Date d'inscription : 30/06/2010
Etudes : PACES (médecine)
Points Forum : 114
Points Concours : 10
Langages :- - TI-Basic Z80
- - xLib
- - Grammer
- - TI-Basic Nspire
- - TI-82 Stats.fr
- - TI-83
- - TI-83+
- - TI-84+ SE
- - TI-86
- - TI-Nspire
- - TI-Nspire CX
- - Casio Collège
- - Casio Graph
-
noelthebest- Platinum 1
- Sexe :
Age : 26
Messages : 1971
Date d'inscription : 12/03/2011
Etudes : ENS Cachan
Points Forum : 20
Points Concours : 9
Langages :- - TI-Basic Z80
- - ASM TI-83+ / TI-84+
- - Axe Parser
- - TI-83+.fr
- - TI-Nspire CX
- - Casio Collège
- - Casio Graph
Alexis- Platinum 2
- Sexe :
Age : 30
Messages : 2321
Date d'inscription : 28/06/2010
Etudes : DUT Informatique
Points Forum : 40
Points Concours : 3
Langages :- - TI-Basic Z80
- - ASM TI-82 Stats / TI-83
- - Axe Parser
- - TI-Collège
- - TI-82 Stats.fr
- - TI-84+
-
Re: [83] Ribosome TI
par persalteas Mar 6 Déc - 22:35
rhalala il est rabat-joie le noelthebest...
Merci, Alexis !
Merci, Alexis !
persalteas- Platinum 2
- Sexe :
Age : 28
Messages : 2068
Date d'inscription : 30/06/2010
Etudes : PACES (médecine)
Points Forum : 114
Points Concours : 10
Langages :- - TI-Basic Z80
- - xLib
- - Grammer
- - TI-Basic Nspire
- - TI-82 Stats.fr
- - TI-83
- - TI-83+
- - TI-84+ SE
- - TI-86
- - TI-Nspire
- - TI-Nspire CX
- - Casio Collège
- - Casio Graph
-
Re: [83] Ribosome TI
par linkakro Mar 6 Déc - 22:56
Même appréciation que sur tout82 : je trouve la présentation de ton programme exceptionnelle et je suis curieux du code à l'intérieur. 
linkakro- Or 4
- Sexe :
Age : 30
Messages : 768
Date d'inscription : 01/07/2010
Etudes : dut geii (elec/info)
Points Forum : 51
Points Concours : 8
Langages :- - TI-Basic Z80
- - ASM TI-82 Stats / TI-83
- - ASM TI-83+ / TI-84+
- - TI-82 Stats.fr
- - TI-84 Pocket.fr
Re: [83] Ribosome TI
par persalteas Mer 7 Déc - 9:00
pourquoi curieux ? 
je l'ai posté le code.
Tu veux que je t'explique un passage ???
je l'ai posté le code.
Tu veux que je t'explique un passage ???
persalteas- Platinum 2
- Sexe :
Age : 28
Messages : 2068
Date d'inscription : 30/06/2010
Etudes : PACES (médecine)
Points Forum : 114
Points Concours : 10
Langages :- - TI-Basic Z80
- - xLib
- - Grammer
- - TI-Basic Nspire
- - TI-82 Stats.fr
- - TI-83
- - TI-83+
- - TI-84+ SE
- - TI-86
- - TI-Nspire
- - TI-Nspire CX
- - Casio Collège
- - Casio Graph
-
Re: [83] Ribosome TI
par linkakro Mer 7 Déc - 11:26
Je veux dire que je m'y intéresse.
Ce que je ne comprends pas relève de notions de biologie et non de programmation.
J'aime bien manipuler les chaînes alors j'ai l'intention de le potasser un de ces jours.
Ce que je ne comprends pas relève de notions de biologie et non de programmation.
J'aime bien manipuler les chaînes alors j'ai l'intention de le potasser un de ces jours.
linkakro- Or 4
- Sexe :
Age : 30
Messages : 768
Date d'inscription : 01/07/2010
Etudes : dut geii (elec/info)
Points Forum : 51
Points Concours : 8
Langages :- - TI-Basic Z80
- - ASM TI-82 Stats / TI-83
- - ASM TI-83+ / TI-84+
- - TI-82 Stats.fr
- - TI-84 Pocket.fr
Re: [83] Ribosome TI
par noelthebest Mer 7 Déc - 12:31
Rabat-joie moi ? Il est bien ton prog', juste je suis allergique aux SVT depuis que je suis rentré en seconde (depuis longtemps donc ).
).
noelthebest- Platinum 1
- Sexe :
Age : 26
Messages : 1971
Date d'inscription : 12/03/2011
Etudes : ENS Cachan
Points Forum : 20
Points Concours : 9
Langages :- - TI-Basic Z80
- - ASM TI-83+ / TI-84+
- - Axe Parser
- - TI-83+.fr
- - TI-Nspire CX
- - Casio Collège
- - Casio Graph
Re: [83] Ribosome TI
par persalteas Mer 7 Déc - 13:07
je ne suis pas un SVT :D
Persalteas 1 / Noelthebest 0
Persalteas 1 / Noelthebest 0
persalteas- Platinum 2
- Sexe :
Age : 28
Messages : 2068
Date d'inscription : 30/06/2010
Etudes : PACES (médecine)
Points Forum : 114
Points Concours : 10
Langages :- - TI-Basic Z80
- - xLib
- - Grammer
- - TI-Basic Nspire
- - TI-82 Stats.fr
- - TI-83
- - TI-83+
- - TI-84+ SE
- - TI-86
- - TI-Nspire
- - TI-Nspire CX
- - Casio Collège
- - Casio Graph
-
noelthebest- Platinum 1
- Sexe :
Age : 26
Messages : 1971
Date d'inscription : 12/03/2011
Etudes : ENS Cachan
Points Forum : 20
Points Concours : 9
Langages :- - TI-Basic Z80
- - ASM TI-83+ / TI-84+
- - Axe Parser
- - TI-83+.fr
- - TI-Nspire CX
- - Casio Collège
- - Casio Graph
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum|
|
|