The MathPowa Project

Page 2 sur 4 Précédent  1, 2, 3, 4  Suivant

Voir le sujet précédent Voir le sujet suivant Aller en bas

Re: The MathPowa Project

Message par persalteas le Ven 31 Aoû - 11:49

La, dans l'urgence, quelqu'un a-t-il un programme d'algorithme d'Euclide ?

J'ai celui de critor mais il est vraiment trop long...

PS: Linkakro, c'est une manie d'utiliser des End en trop ? Parce que en fait.... ça rend tes programmes inutilisables a l'intérieur d'un "Then:code:End"...
Ainsi, ton décomposeur en facteurs premiers fonctionne a merveille, mais... reboote a l'infini en inscrivant des 1 et des 1 après la pause.
Idem pour les approximations d'Euler.

_________________
[Vous devez être inscrit et connecté pour voir cette image]

persalteas
Platinum 2
Platinum 2

Sexe : Masculin
Age : 21
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
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83
  • - TI-83+
  • - TI-84+ SE
  • - TI-86
  • - TI-Nspire
  • - TI-Nspire CX
  • - Casio Collège
  • - Casio Graph

TI-84 Pocket.fr


http://tiemulation.kegtux.org

Revenir en haut Aller en bas

Re: The MathPowa Project

Message par linkakro le Ven 31 Aoû - 13:36

Je vais réécrire ces quelques programmes sans utiliser de bug de End afin de les rendre adaptés à ta façon de les intégrer dans d'autres programmes.

Le programme dont je t'ai fourni un pdf (concernant Bézout/Diophante) est justement un algorithme d'Euclide. (avec des calculs annexes pour résoudre l'équation)
D'ailleurs mon prog Bézout utilise l'algorithme d'Euclide en première partie, la seconde partie étant son exploitation.

J'uploaderai un programme de simple algorithme d'Euclide et une version "Bis" de mes deux autres programmes.

linkakro
Or 4
Or 4

Sexe : Masculin
Age : 22
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+
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-84 Pocket.fr

TI-84+ SE


Revenir en haut Aller en bas

Re: The MathPowa Project

Message par nikitouzz le Ven 31 Aoû - 16:47

non je n'ai pas ce type d’algorithme malheureusement....

au pire donne le code de critor je peut essayer de l'optimiser...

_________________
[Vous devez être inscrit et connecté pour voir cette image]
Invité née le 0 a aujord'huis 0 ans et a posté 11 messages... je suis derrière vous

2x2x2 : 2.18 secondes / 2x2x2 une main : 21.15 secondes / 2x2x2 yeux bandés : 47.59
3x3x3 : 5.97 secondes / 3x3x3 une main : 49.86 secondes
4x4x4 : 1.49 minutes / 4x4x4 une main : 6.50 minutes
5x5x5 : 4.10 minutes / 5x5x5 une main : 18.02 minutes
6x6x6 : 8.10 minutes
7x7x7 : 16.03 minutes
9x9x9 : 58.26 minutes

3x3x1 : 0.73secondes / 3x3x2 : 30.55secondes / 3x3x3 : 5.97secondes / 3x3x4 : 1.09minutes / 3x3x5 : 1.46minutes / 3x3x6 : 2.06minutes

megaminx : 5.59 minutes / pyraminx : 7.91 secondes / square-one : 1.07

nikitouzz
Platinum 1
Platinum 1

Sexe : Masculin
Age : 21
Messages : 1834
Date d'inscription : 16/01/2011
Points Forum : 7
Points Concours : 6
Langages :
  • - TI-Basic Z80
  • - ASM TI-83+ / TI-84+
  • - Axe Parser
  • - TI-Basic 68K
  • - TI-Basic Nspire
Calculatrices :
  • - TI-73
  • - TI-76.fr
  • - TI-82 Stats.fr
  • - TI-83+
  • - TI-84+
  • - TI-92
  • - TI-Nspire
  • - TI-Nspire CX

TI-84+ SE


Revenir en haut Aller en bas

Re: The MathPowa Project

Message par linkakro le Ven 31 Aoû - 19:01

Algorithme d'Euclide léger : [Vous devez être inscrit et connecté pour voir ce lien]

Versions modifiées des quelques programmes qui t'ont posé problème : [Vous devez être inscrit et connecté pour voir ce lien]

linkakro
Or 4
Or 4

Sexe : Masculin
Age : 22
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+
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-84 Pocket.fr

TI-84+ SE


Revenir en haut Aller en bas

Re: The MathPowa Project

Message par persalteas le Sam 1 Sep - 7:49

Merci beaucoup linka... Ok

Simplement... tu dis que l'algo d'euclide c'est en rapport avec Bezout ?

Pourtant j'ai jamais étudié bezout en cours, alors que l'algo d'Euclide, je l'ai fait en 5e, je crois... Un truc concernant les pgcd, non ?

EDIT: Moui, en effet, vu ton lien... Mais ça ne sert a rien, j'abandonne l'idée...

Bien...

ALGEPOWA sort donc !!
Spoiler:

BASIC Code a écrit::21→O:1→dim(∟M
:FnOff :AxesOff:ClrDraw
:0→Xmin:1→ΔX
:0→Ymin:1→ΔY
:∟M(1→B
:If not(∟M(1:1→B
:For(A,56,62
:Horizontal A:End
:For(A,1,11
:For(I,0,1
:Text(‾1,3,6A+I,sub(" Math[phat]0wa!!",A,1
:End:End
:Horizontal 0
:Vertical 94
:Horizontal 49
:Vertical 0
:{2,2,2,28,92,28,92,2,2,2
:For(A,3,9,2
:Line(Ans(A-2),Ans(A-1),Ans(A),Ans(A+1
:End
:Line(88,2,88,28
:Text(35,68,"<<
:Text(10,10," Edition ALGEBRE
:Text(20,10,"Choisissez une tache:
:{5,56,6,59,0,62,72,59,73,56
:For(A,1,9,2
:Pt-Change(Ans(A),Ans(A+1
:End
:StorePic 7
:Lbl θ:FnOff
:"Div Euclidienne Simplif FractionValeur Exacte   Inequations     ResoudreEquationSolveur SystemesConvertir Bases PGCD et PPCM    Nombre Premier  DecompFacteurs1 Simplif. Racine²Integrales      Su
ites Arit/GeomTheoreme Bezout Congruences     Simplifier ln(  Int definiθ ln( Equ ln(N)=ln(M) Complexes       Identification  Approx. Euler                                                   
:ClrDraw:RecallPic 7
:For(A,0,3
:Text(35+6A,5,sub(Ans,16(B+A)-15,16
:End
:Pt-On(90,28-24B/O,2
:Repeat K
:getKey→K
:End
:If K=25 and B>1:B-1→B
:If K=34 and B:B→∟M(1
:If K=45 or K=22:Goto Z
:If K≠105:Goto θ
:1→P:ClrHome
:If B=1:Then
:Disp "A/B"
:Prompt A,B
:iPart(A/B→Q
:Disp "=",Q,"RESTE",A-QB
:1→B
:End
:If B=2:Then
:Input "►Frac=",A
:Disp A►Frac
:End
:If B=3:Then
:Input "",Str1
:real(13,Str1→Str1
:real(19,Str1
:DelVar P
:End
:If B=4:Then
:Menu("INEQUATIONS     ",">",I1,"<",I2,"≥",I3,"≤",I4
::Lbl I1:">→Str4:Goto I
:Lbl I2:"<→Str4:Goto I
:Lbl I3:"≥→Str4:Goto I
:Lbl I4:"≤→Str4
:Lbl I:ClrHome
::Input Str1
:ClrHome
:Input Str1+Str4,Str2
:0→θ
:Lbl L1
:DelVar XDelvar Vexpr(Str1→A
:expr(Str2→B
:1E9→X
:expr(Str1→C
:expr(Str2→D
:If A-B<0 and C-D<0:1→V
:If B-A<0 and C-D<0:1→V
:If θ≠1
:Disp "
:Str2+"-("+Str1+")→Str3
:String►Equ(Str3,Y1
:solve(Y1,X,1→E
:If B=A or V=1
:Then
:If Str4=">
:"< →Str4
:If Str4="<
:"> →Str4
:If Str4="≥
:"≤ →Str4
:If Str4="≤
:"≥ →Str4
:End
:If θ=1
:Goto L2
:If fPart(E
:Disp "","",E►Frac
:Output(5,1,"□X"+Str4
:Output(5,4,round(E,5
:4→B
:End
:If B=5:Then
:Input Str1
:ClrHome
:If 10≥length(Str1:Then
:Input Str1+"=",Str2
:Else:1→Z
:Disp Str1
:Input "=",Str2
:End
:Output(2,1," CALCUL ∙ ∙ ∙
:Disp "","
:Str2+"-("+Str1→Str3
:i→X
:If 0i=expr(Str3:Then
:Disp "□X=i
:Pause
:End
:‾i→X
:If expr(Str3)=0i
:Then
:Disp "□X=‾i
:Pause :Goto RE
:End
:0→θ:Lbl L3
:Str3→Y1
:Output(2,9,"□
:solve(Y1,X,99→X
:Output(2,11,"□
:solve(Y1,X,‾99→S
:Output(2,13,"□
:solve(Y1,X,0→T
:If θ=1:Goto L4
:Disp X►Frac
:Output(4+Z,1,"x1=
:If S≠X:Then
:Disp S►Frac
:Output(5+Z,1,"x2=
:End
:If T≠X and T≠S
:Then
:Disp X►Frac
:Output(6+Z,1,"x3=
:End
:End
:If B=6:Then
:"ABCDEFGHIJKLMNOPQRST→Str3
:Lbl SY
:Input "INCONNUS:",I
:If I≤1 or I≥21 or fPart(I
:Then:Pause "ENTRE 2 ET 20 !
:Goto SY
:End
:DelVar [ B ]
:{I,I+1}→dim([ B ]:For(C,1,I
:"→Str2
:For(L,1,I+1
:ClrHome
:Disp "LIGNE","COLONNE","
:Output(1,7,C
:Output(2,9,L
:sub(Str3,L,1→Str5
:If L≠I+1
:Output(6,1,"*"+Str5
:Input Str2,Str1
:If L=1
:Str1+Str5+"+→Str2
:If L≠1 and L≠I
:Str2+Str1+Str5+"+→Str2
:If L=I:Str2+Str1+Str5+"=→Str2
:expr(Str1→[ B ](C,L
:End:End
:rref([ B ]→[ B ]
:ClrHome
:DelVar A
:For(L,1,I
:1+A→A
:Disp [ B ](L,I+1)►Frac
:Output(A,1,"□"+sub(Str3,L,1)+"=
:If not(fPart(L/7:Then:Pause :DelVar AClrHome
:End
:End
:DelVar [ B ]
:DelVar Str3
:6→B
:End
:If B=7:Then
:"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZθ→Str1
:Input "BASE DEPART=",X
:Input "BASE ARRIV.=",Y
:Input "X=",Str2
:length(Str2→N
:DelVar P
:For(W,0,N-1
:inString(Str1,sub(Str2,N-W,1))-1
:AnsX^W+P→P
:End
:If not(P:Return
:Lbl R
:P→Z
:" →Str2
:Repeat not(Q
:iPart(Z/Y→Q
:Z-YQ→R
:Q→Z
:sub(Str1,R+1,1)+Str2→Str2
:End
:‾1+iPart(log(P-1
:1+iPart(log(10^(Ans)iPart((P-1)10^(‾Ans→T
:If T>13
:Disp "TROP GRAND
:Pause Str2
:Menu("RESTART","STOP",Q,"RECONVERTIR",S
:Lbl S
:Y→X
:Input "RECONV=",Y
:Goto R
:Lbl Q:7→B:DelVar P
:End
:If B=8:Then
:Input "N1:",A
:Input "N2:",J
:Disp "PGCD:",gcd(A,J),"PPCM:",lcm(A,J
:End
:If B=9:Then
:4→V:Prompt N
:For(A,2,N
:If A≠N and N/A=iPart(N/A:Then
:Output(3,1,"DIVISIBLE PAR:
:Output(V,9,"□
:Output(V,10,A
:V+1→V:If V>8:N→A
:End
:End
:If V=4:Output(3,1,"PREMIER!
:End
:If B=10:Then
:DelVar UPrompt A
:ClrList L1
:While not(fPart(.5A
:U+1→U
:2→L1(U
:.5A→A
:Disp 2
:End
:√(A→B
:3→W
:While A-1
:If W>B
:A→W
:While not(fPart(A/W
:U+1→U
:W→L1(U
:A/W→A
:Disp W
:√(A→B
:End
:W+2→W
:End
:Pause L1
:DelVar P
:End
:If B=11:Then
:Input "√(",E
:1→J:E→Q
:Repeat not(G
:DelVar G2→D
:While D²≤E and not(G
:E/D²→A
:If not(fPart(A
:Then
:A→E:JD→J:1→G
:End:D+1→D:End
:End:0→θ
:iPart(log(J→θ
:iPart(log(E→X
:Output(4,3+θ,"√(
:Output(4,2,J
:Output(4,5+θ,E
:Output(4,6+X+θ,")
:Output(6,2,√(Q
:End
:If B=12:Then
:ZStandard
:Split:Radian
:Horizontal 10
:Vertical ‾10
:Vertical ‾10
:Line(‾7.4,6,‾7.44,‾4
:Line(‾6.8,6,‾7.2,6.6
:Line(‾8,‾4,‾7.7,‾4.7
:Text(2,17,"b
:Text(18,17,"a
:Input "f(x)=",Str1
:Text(10,21,Str1+" dx
:ClrHome
:Input "Borne inf.=",J
:Text(18,17,J
:Input "Borne sup.=",A
:Text(2,17,A
:Str1→Y1
:FnInt(Y1,X,A,J→X
:ClrHome
:Disp "L'integrale est ",abs(X►Frac
:Pause :ClrHome
:Disp "Valeur Moy. :",abs(X)/(J-A
:Pause :ClrHome
:Input ".ABSCISSE:",A
:Input ".ORDONNEE:",J
:ClrHome
:Disp "> AIRE:",abs(ABJ
:Pause
:Degree:Full:ZPrevious
:DelVar P
:End
:If B=13:Then
:"Retour→Str8
:Lbl ST:13→B
:Menu("     Suites     ","Arithmetiques",AR,"Geometriques",GE,"Detecter...",TS,Str8,θ
:Lbl TS
:Disp "ENTRE 3 TERMES","CONNUS
:Prompt A,B,C
:Input "1er RANG:",X
:Disp "SUITE
:If AC=B²:Then
:Disp "GEOMETRIQUE","DE RAISON",B/A►Frac,"1er TERME Uo:",A^(X+1)*B^(‾X►Frac
:Else
:If B=(A+C).5:Then
:Disp "ARITHMETIQUE","DE RAISON",B-A►Frac,"1er TERME Uo:",A(X+1)-XB►Frac
:Else
:Disp "NON CONNUE.","DESOLE
:End:End
:Pause
:Goto ST
:Lbl AR
:Menu("","TERME DEFINI",TD,"SOMME",SO,Str8,ST
:Lbl GE
:Menu("","TERME DEFINI",Rθ,"SOMME",OS,Str8,ST
:Lbl Rθ
:Input "RAISON:",R
:Input "1er TERME:",U
:Input "TERME CHOISI:",N
:Disp "","","U",R^NU
:Output(6,2,N
:Pause :Goto GE
:Lbl OS
:Input "RAISON:",R
:Input "1er TERME:",A
:Input "NOMBRE DE TERMES:",N
:Disp "SOMME:",A(1-R^N)/(1-R
:Pause :Goto GE
:Lbl TD
:Input "RAISON:",R
:Input "1er TERME:",U
:Input "TERME CHOISI:",N
:Disp "U",RN+U
:Output(5,2,N
:Pause :Goto AR
:Lbl SO
:Input "NOMBRE TERMES:",N
:Input "1er TERME:",A
:Input "DERNIER TERME:",B
:Disp "SOMME:",N(A+B)/2
:Pause :Goto AR
:End
:If B=14:Then
:Func
:Disp "AU+BV=Z
:Prompt A,B,Z
:abs(A→S
:abs(B→T
:gcd(S,T→P
:If fPart(Z/P
:Then
:Disp "IMPOSSIBLE
:Goto 9C
:End
:{S,T→L1
:{0,0→L2
:2→W
:While P-L1(W
:W+1→W
:int(L1(W-2)/L1(W-1→L2(W
:L1(W-2)-AnsL1(W-1→L1(W
:End
:1→I
:{1,L2(W→L1
:For(N,1,W-3
:L1(I)+L1(3-I)L2(W-N→L1(I
:3-I→I
:End
:S/AL1(I)→U
:T/B‾L1(3-I→V
:Disp "PARTICULIERES :
:Disp "AU+BV=gcd(A,B)
:Disp U,V
:Disp "AU+BV=Z
:Disp UZ,VZ
:Pause
:Disp "GENERALES :
:Disp "AX+BY=Z
:Disp "X=Y1","Y=Y2
:AutoFillOn
:AutoCalcOn
:0→TblStart
:1→ΔTbl
:"UZ+XB→Y1
:"VZ-XA→Y2
:Pause
:DispTable:DelVar P
:Lbl 9C
:14→B
:End
:If B=15:Then
:Lbl D:15→B
:Menu("   CONGRUENCES  ","CONGRUENCES",RF,"NOMBRE CONGRU",C1,"PUISSANCES",C2,"TABLEAU",C3,Str8,θ
:Lbl RF
:Disp "CONGRUENCES"
:Prompt A,N
:A→X
:1→I
:While I:X-NiPart(X/N→X
:If X=1
:Then
:Disp I
:Pause :Goto D
:End
:AX→X
:I+1→I
:End
:Pause "PAS DE SOL 
:Goto D
:Lbl C1
:ClrHome
:Disp "A=B(mod M)
:Prompt A,M
:int(A→A
:int(abs(M→M
:If M and A<E10
:Then
:Disp A-Mint(A/M
:Else
:If not(M
:Then
:Disp "Erreur: M=0
:Else
:Disp "Nombre trop gros
:End
:End
:Pause
:Goto D
:Lbl C2
:ClrHome
:Disp "Solv congruences
:"Pas de resultats→Str1
:Disp "A^B=C (mod M)
:Prompt A,B,M
:For(E,2,B
:A^E→S
:If S≥E10
:Then
:ClrHome
:Pause Str1
:B→E:Goto D
:End
:S/M→C
:S-Mint(C→D
:ClrHome
:Disp "Reste:",D►Frac
:Disp "Puissance:",E
:If D≤1
:Then
:Pause "Valeur finale
:B→E:Goto D
:End
:If D≥M-1:Pause
:End
:ClrHome
:Pause Str1
:Goto D
:Lbl C3
:ClrHome
:Disp "Tableau de congr
:Input "Module:",Str1
:DelVar Klength(Str1→L
:int(abs(expr(Str1→M
:2+4L→D
:int(79/D→P
:Input "Function:",Str1
:String►Equ(Str1,Y1
:FnOff
:Horizontal 40
:Horizontal 31
:Horizontal 22
:Line(0,40,0,22
:Line(16,40,16,22
:Line(94,40,94,22
:Text(23,2,"x
:Text(32,2,"f(x)
:Text(42,0,"f(X)="+Str1
:Text(48,0,"Mod=",M
:StorePic 1
:For(A,0,M-1
:Text(23,18+AD-PKD,A
:Y1(A)-Mint(Y1(A)/M
:If Ans=int(Ans
:Then
:Text(32,18+AD-PKD,Ans
:Else
:Text(32,18+AD-PKD,"!
:End
:Line(16+AD-PKD+D,40,16+AD-PKD+D,22
:If not(fPart((A+1)/P
:Then
:K+1→K
:Pause
:If A≠M-1
:ClrDraw
:RecallPic 1
:End
:End
:If fPart(A/P
:Pause
:ClrHome
:ZStandard
:AxesOn
:FnOn
:DelVar Pic1
:Pause
:FnOff :AxesOff
:ZPrevious:DelVar P
:End
:If B=16:Then
:Input "ln(",Str1
:If sub(Str1,1,1)="√(
:Then
:".5ln("+sub(Str1,2,length(Str1)-1→Str2
:Goto Lθ
:End
:inString(Str1,"/"→A
:If A>0:Then
:"ln("+sub(Str1,1,A-1)+")-ln("+sub(Str1,A+1,length(Str1)-A→Str2
:If sub(Str2,1,3)="ln(1)
:sub(Str2,4,length(Str2)-3→Str2
:Goto Lθ
:End
:inString(Str1,"*"→A
:If A>0:Then
:"ln("+sub(Str1,1,A-1)+")+ln("+sub(Str1,A+1,length(Str1)-A→Str2
:Goto Lθ
:End
:inString(Str1,"^")→A
:If A>0:Then
:sub(Str1,A+1,length(Str1)-A)+"ln("+sub(Str1,1,A-1→Str2
:Goto Lθ
:End
:"ln("+Str1→Str2
:Lbl Lθ
:Disp "","EQUIVAUT A
:Output(5,1,Str2:16→B
:End
:If B=17:Then
:Input "ln(",Str1
:"("+Str1→Str1
:"0→Str2
:">→Str4
:1→θ
:Disp " EXISTE SI
:Goto L1
:Lbl L2
:Disp "X"+Str4,E,"
:Disp "L'ENSEMBLE DES","DEFINITIONS EST
:1E9→X
:If sub(Str4,1,1)=">
:Then
:Disp "]   ,+OO[
:Output(7,2,E
:Else
:Disp "]-OO,   [
:Output(7,6,E
:End:17→B
:End
:If B=18:Then
:Disp "ln(N)=ln(M)",""," DEF:]A,B[","
:Input "N=",Str1:Input "M=",Str2:Lbl L0
:Disp "A:Input "A=",A
:Input "B=",B
:If B≤A:Goto L0
:ClrHome
:Disp "ln STRICT CROISS","
:1→θ
:Goto L3
:Lbl L4
:Disp "X=",X►Frac,"
:If X≥B or X≤A:Disp "PAS DE SOLUTION
:Disp "X E ]A,B[","S={  }
:Output(7,4,X:18→B
:End
:If B=19:Then
:Lbl CS:19→B
:"ERREUR→Str1
:Str1→Str2:Z→X
:ClrHome
:Menu("   COMPLEXES    ","TrigoSolveur",AG,"Algebrique",AQ,"Polaire",PO,"Exponentiel",EX,"Transformation",TF,"Tracer a+bi",OO,Str8,θ
:Lbl TF:Radian
:ClrHome
:Menu(" SOUS LA FORME  ","f=z->z+a",CW,"f=z->e^(iθ)Z",CH,Str8,CS
:Lbl CW
:Input "f=z->z+",Z
:Disp "","LA TRANSFORMATI.","ASSOCIE A f EST","UNE TRANSLATION","DE VECTEUR u","ET D'AFFIXE
:Output(7,13,Z
:Pause :Goto TF
:Lbl CH
:Input "f=z->e^(i*",Z
:Disp "","LA TRANSFORMATI.","ASSOCIE A f EST","UNE ROTATION","DE CENTRE O ET","D'ANGLE
:Output(7,9,Z
:Pause :Goto TF
:Lbl EX
:DelVar F
:Disp "Z=rei
:Input "□r=",Str1
:Input "□θ=",Str2
:expr(Str1→A
:expr(Str2→B
:DelVar H
:Goto Wθ
:Lbl θW
:A(cos(B)+isin(B→C
:Disp "","Z=","","Z=["+Str1+","+Str2+"]
:Output(5,3,round(C,3
:Pause :Goto CS
:Lbl AQ
:Input "Z=",Z
:abs(Z→M
:Disp "","CONJUGUE",conj(Z),"","MODULE",M
:DelVar K
:If fPart(M) and non(fPart(round(M²,5:Then
:1→K
:Output(8,6,"√(
:Output(8,7,M²
:End:Pause
:ClrHome
:Degree
:Disp "ARGUMENT Degree",angle(Z),"ARGUMENT Radian
:Radian
:Disp angle(Z
:Output(5,11,round(angle(Z)/π,3
:Output(5,15,"∙π
:Output(7,1,"Z=[√( ,   ]
:Degree
:If K=1:Then
:Output(7,5,abs(Z)²
:Else
:Output(7,5," 
:Output(7,4,round(abs(Z),1
:End
:Output(7,8,round(angle(Z),1
:DelVar F
:Pause :rei
:ClrHome
:Disp "FORME EXPO DEG
:Pause Z
:Disp "","FORME EXPO RAD
:Radian
:Pause Z
:Real
:Goto CS
:Lbl PO
:DelVar F
:Disp "Z=[r,θ]
:Input "□r=",Z
:Input "□θ=",θ
:1→H:Lbl Wθ
:Menu(" AVEC θ EN      ","Radian",RD,"Degree",DG
:Lbl RD:Radian
:Goto P0
:Lbl DG:Degree
:Lbl P0
:If H=0:Goto θW
:Z(cos(θ)+isin(θ→A
:round(A,0→A
:Disp "","Z=","","Z=
:a+bi
:Output(5,3,A
:rei
:Output(7,3,A
:Real:Pause
:Goto CS
:Lbl AG
:Input "Z=",Z
:Z→X
:abs(Z→M
:real(Z)/M→R
:imag(Z)/M→I
:Disp "","CONJUGUE","","","MODULE
:Output(4,1,conj(Z
:DelVar A
:If fPart(M) and non(fPart(round(M²,5
:Then:1→A
:Output(7,1,"√(
:Output(7,2,M²
:Else
:Output(7,1,M
:End
:Pause :ClrHome
:Disp "Soit θ un arg(Z)"," □cos(θ)="," □sin(θ)=
:"ERREUR
:If R=1:"1
:If R=‾1
:"‾1
:If R=0:"0
:If R=.5
:"1/2
:If R=‾.5
:"‾1/2
:If R=.5√(2
:"√(2)/2
:If R=‾.5√(2
:"‾√(2)/2
:If R=.5√(3
:"√(3)/2
:If R=‾.5√(3
:"‾√(3)/2
:Ans→Str1
:"ERREUR
:If I=1
:"1
:If I=‾1
:"‾1
:If I=0
:"0
:If I=.5
:"1/2
:If I=‾.5
:"‾1/2
:If I=.5√(2
:"√(2)/2
:If I=‾.5√(2
:"‾√(2)/2
:If I=.5√(3
:"√(3)/2
:If I=‾.5√(3
:"‾√(3)/2
:Ans→Str2
:Output(2,10,Str1
:Output(3,10,Str2
:R→C:I→S:DelVar θ
:Lbl T1
:"ERREUR
:If C=1 and S=0
:"0
:If S=.5 and C=.5√(3
:"π/6
:If S=C and C=.5√(2
:"π/4
:If C=.5 and S=.5√(3
:"π/3
:If C=0 and S=1
:"π/2
:If C=‾1 and S=0:"π
:If S=.5 and C=‾.5√(3
:"5π/6
:If S=‾C and C=‾.5√(2
:"3π/4
:If C=‾.5 and S=.5√(3
:"2π/3
:If S=‾.5 and C=.5√(3
:"‾π/6
:If C=√(2)/2 and S=‾C
:"‾π/4
:If C=.5 and S=‾.5√(3
:"‾π/3
:If C=0 and S=‾1:"‾π/2
:If S=‾.5 and C=‾.5√(3
:"‾5π/6
:If S=C and C=‾.5√(2
:"‾3π/4
:If C=‾.5 and S=‾.5√(3
:"‾2π/3
:Ans→Str1
:Output(5,3,"θ="+Str1
:If sub(Str1,1,1)≠"E
:Output(5,11,"+2kπ
:If θ=.5
:Goto T2
:Output(7,1,"Z=[√( ,"+Str1+"]
:If A=1:Then
:Output(7,5,M²
:Else
:Output(7,4," 
:Output(7,5,M
:End
:Pause :ClrHome
:Output(1,1,"FORME TRIGO
:Output(3,1,"Z=√(∙(cos("+Str1+")+isin("+Str1+"))
:If A=1:Then
:Output(3,4,M²
:Else
:Output(3,3," 
:Output(3,4,M
:End
:Output(6,1,"FORME EXPO
:Output(8,1,"Z=√(∙e^(i"+Str1+")
:If A=1:Then
:Output(8,4,M²
:Else
:Output(8,3," 
:Output(8,4,M
:End
:Pause :Goto CS
:Lbl OO
:DelVar F
:Input " Z=",X
:ZoomSto
:5→Xmax:‾5→Xmin
:5→Ymax:‾5→Ymin
:If 5≤real(X
:2+real(X→Xmax
:If ‾5≥real(X
:real(X)-2→Xmin
:If 5≤imag(X
:2+imag(X→Ymax
:If ‾5≥imag(X
:imag(X)-2→Ymin
:AxesOn
:Pt-On(real(X),imag(X),3
:Pt-Off(real(X),imag(X
:Pause
:AxesOff:ZoomRcl
:Goto CS
:End
:If B=20:Then
::"AX³+BX²+CX+D→Str0
:DelVar F
:Disp "□f(X)=",Str0,"
:Input "A=",Str5:Input "B=",Str6:Input "C=",Str7:Input "D=",D
:expr(Str5→A
:expr(Str6→B
:expr(Str7→C
:ClrHome
:Str0→Y1
:solve(Y1,X,1→X
:Disp "□f(  )","=0
:Output(1,4,X
:Pause :ClrHome
:Disp "□f(X)=","(AX²+BX+C)(X-  )
:Output(2,14,X
:Pause :ClrHome
:Disp "□f(X)=(EX1)X³+(E","X2)X²+(EX3)X+EX4","
:Input "EX1=",Str1
:Input "EX2=",Str2
:Input "EX3=",Str3
:ClrHome
:Disp "IDENTIFICATION
:Str1+"-"+Str5→Y1
:solve(Y1,A,1→A
:Str2+"-"+Str6→Y1
:solve(Y1,B,1→B
:Str3+"-"+Str7→Y1
:solve(Y1,C,1→C
:Disp A►Frac,B►Frac,C►Frac
:Output(2,1,"∙A=
:Output(3,1,"∙B=
:Output(4,1,"∙C=
:20→B
:End
:If B=21:Then
:Lbl Y2:21→B
:Menu(" APPROX. EULER  ","Derivee connue",2Y,"equ dif connue",2Z,Str8,θ
:Lbl 2Y
:Input "DE:",P
:Input "A:",D
:Input "PAR:",H
:Input "F'(X)=",Str1
:Str1→Y1
:Input "F(P)=",F
:{P→L1
:{F→L2
:FnOff
:DelVar WWhile P:W+1→W
:Y1(P)H+L2(W→L2(W+1
:A+H→L1(W+1
:P+H→P
:End
:Plot1xyLine ,L1,L2,∙
:ZoomStat:DelVar P
:Pause
:ZPrevious
:Goto Y2
:Lbl 2Z
:Input "DE:",X
:Input "A:",D
:Input "PAR:",H
:Disp "Y'+AY=B
:Input "A(X)=",Str1
:Str1→Y1
:Input "B(X)=",Str1
:Str1→Y2
:Input "Y(X0)=",F
:{P→L1
:{F→L2
:FnOff
:0→W
:DelVar WWhile X:W+1→W
:HY2(X)+(1-HY1(X))L2(W→L2(W+1
:X+H→X
:X→L1(W+1
:End
:Plot1xyLine ,L1,L2,∙
:ZoomStat:DelVar P
:Pause :ZPrevious
:Goto Y2
:End
:If P:Pause
:Goto θ
:Lbl Z
:ClrDraw:ZStandard
:DelVar Pic7
:AxesOn:B→∟M(1
:ClrHome
:Disp "MathPowa-Edition","ALGEBRE.
:Output(4,1,"


Generated by SourceCoder, © 2005-2012 Cemetech

_________________
[Vous devez être inscrit et connecté pour voir cette image]

persalteas
Platinum 2
Platinum 2

Sexe : Masculin
Age : 21
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
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83
  • - TI-83+
  • - TI-84+ SE
  • - TI-86
  • - TI-Nspire
  • - TI-Nspire CX
  • - Casio Collège
  • - Casio Graph

TI-84 Pocket.fr


http://tiemulation.kegtux.org

Revenir en haut Aller en bas

Re: The MathPowa Project

Message par AlexRider38 le Sam 1 Sep - 9:44

Rien du tout comme programme au niveau du code ^^

AlexRider38
Or 4
Or 4

Sexe : Masculin
Age : 19
Messages : 579
Date d'inscription : 11/07/2010
Etudes : Lycéen
Points Forum : -10
Points Concours : 0
Langages :
  • - TI-Basic Z80
  • - Axe Parser
  • - TI-Basic Nspire
  • - Lua Nspire
  • - Ndless Nspire
Calculatrices :
  • - TI-Collège
  • - TI-80
  • - TI-82
  • - TI-82 Stats.fr
  • - TI-84 Pocket.fr
  • - TI-Nspire CAS
  • - TI-Nspire CX

TI-84 Pocket.fr


Revenir en haut Aller en bas

Re: The MathPowa Project

Message par nikitouzz le Sam 1 Sep - 11:15

hum tu est sur que ce n'est pas optimisable... :troll:

je suis pas super super fort en basic donc je ne pense pas pouvoir l'optimiser ^^

beau programme je l'essayerais plus tard Content

_________________
[Vous devez être inscrit et connecté pour voir cette image]
Invité née le 0 a aujord'huis 0 ans et a posté 11 messages... je suis derrière vous

2x2x2 : 2.18 secondes / 2x2x2 une main : 21.15 secondes / 2x2x2 yeux bandés : 47.59
3x3x3 : 5.97 secondes / 3x3x3 une main : 49.86 secondes
4x4x4 : 1.49 minutes / 4x4x4 une main : 6.50 minutes
5x5x5 : 4.10 minutes / 5x5x5 une main : 18.02 minutes
6x6x6 : 8.10 minutes
7x7x7 : 16.03 minutes
9x9x9 : 58.26 minutes

3x3x1 : 0.73secondes / 3x3x2 : 30.55secondes / 3x3x3 : 5.97secondes / 3x3x4 : 1.09minutes / 3x3x5 : 1.46minutes / 3x3x6 : 2.06minutes

megaminx : 5.59 minutes / pyraminx : 7.91 secondes / square-one : 1.07

nikitouzz
Platinum 1
Platinum 1

Sexe : Masculin
Age : 21
Messages : 1834
Date d'inscription : 16/01/2011
Points Forum : 7
Points Concours : 6
Langages :
  • - TI-Basic Z80
  • - ASM TI-83+ / TI-84+
  • - Axe Parser
  • - TI-Basic 68K
  • - TI-Basic Nspire
Calculatrices :
  • - TI-73
  • - TI-76.fr
  • - TI-82 Stats.fr
  • - TI-83+
  • - TI-84+
  • - TI-92
  • - TI-Nspire
  • - TI-Nspire CX

TI-84+ SE


Revenir en haut Aller en bas

Re: The MathPowa Project

Message par noelthebest le Sam 1 Sep - 13:39

Dans l'ensemble ça m'a l'air bien optimisé... non ?

_________________
[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]
[Vous devez être inscrit et connecté pour voir cette image]

noelthebest
Platinum 1
Platinum 1

Sexe : Masculin
Age : 19
Messages : 1969
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
Calculatrices :
  • - TI-83+.fr
  • - TI-Nspire CX
  • - Casio Collège
  • - Casio Graph

TI-84+ SE


Revenir en haut Aller en bas

Re: The MathPowa Project

Message par persalteas le Sam 1 Sep - 14:10

Ben il fait moins de 10 Ko, je trouve ça bien pour le plus lourd de la série.

La version 82 stats pèsera encore moins puisque je remettrai tout en majuscules.

je pense qu'il est plutôt bien optimisé, oui.
je pourrais encore supprimer des entrées entre les Delvar et les lignes suivantes.
On gagnerait 6 octets.

_________________
[Vous devez être inscrit et connecté pour voir cette image]

persalteas
Platinum 2
Platinum 2

Sexe : Masculin
Age : 21
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
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83
  • - TI-83+
  • - TI-84+ SE
  • - TI-86
  • - TI-Nspire
  • - TI-Nspire CX
  • - Casio Collège
  • - Casio Graph

TI-84 Pocket.fr


http://tiemulation.kegtux.org

Revenir en haut Aller en bas

Re: The MathPowa Project

Message par nikitouzz le Sam 1 Sep - 14:48

il y a un truc que je ne comprend pas en basic.... pourquoi tout ces delvar ? a quoi ils servent ?

mais si c'est le plus lourd de la serie c'est cool alors Content

_________________
[Vous devez être inscrit et connecté pour voir cette image]
Invité née le 0 a aujord'huis 0 ans et a posté 11 messages... je suis derrière vous

2x2x2 : 2.18 secondes / 2x2x2 une main : 21.15 secondes / 2x2x2 yeux bandés : 47.59
3x3x3 : 5.97 secondes / 3x3x3 une main : 49.86 secondes
4x4x4 : 1.49 minutes / 4x4x4 une main : 6.50 minutes
5x5x5 : 4.10 minutes / 5x5x5 une main : 18.02 minutes
6x6x6 : 8.10 minutes
7x7x7 : 16.03 minutes
9x9x9 : 58.26 minutes

3x3x1 : 0.73secondes / 3x3x2 : 30.55secondes / 3x3x3 : 5.97secondes / 3x3x4 : 1.09minutes / 3x3x5 : 1.46minutes / 3x3x6 : 2.06minutes

megaminx : 5.59 minutes / pyraminx : 7.91 secondes / square-one : 1.07

nikitouzz
Platinum 1
Platinum 1

Sexe : Masculin
Age : 21
Messages : 1834
Date d'inscription : 16/01/2011
Points Forum : 7
Points Concours : 6
Langages :
  • - TI-Basic Z80
  • - ASM TI-83+ / TI-84+
  • - Axe Parser
  • - TI-Basic 68K
  • - TI-Basic Nspire
Calculatrices :
  • - TI-73
  • - TI-76.fr
  • - TI-82 Stats.fr
  • - TI-83+
  • - TI-84+
  • - TI-92
  • - TI-Nspire
  • - TI-Nspire CX

TI-84+ SE


Revenir en haut Aller en bas

Re: The MathPowa Project

Message par linkakro le Sam 1 Sep - 17:40

ERRATUM de la partie Approx :
-J'ai commis deux grossières erreurs (cela m'apprendra à tester mes codes lorsque je les modifie en 2 minutes...)
-une petite erreur de symbole inférieur cause un arrêt anticipé d'une itération.
-il manque un morceau des tests de sortie des While que j'avais prévu dans mon code
-De plus tu peux optimiser la partie Approx.Euler de MathPowa en réunissant les fins de mes deux codes.

Quitte à modifier tout ça, je peux faire encore mieux en remplaçant P par X.

Je suis perturbé par le θ dans le menu de Approx : c'est comme un "goto θ" et c'est à l'intérieur d'un If:Then.
Je cherche l'utilité de 21→B

Spoiler:
BASIC Code a écrit::If B=21:Then
:Lbl Y2:21→B
:Menu(" APPROX. EULER  ","Derivee connue",2Y,"equ dif connue",2Z,Str8,θ
:Lbl 2Y
:Input "DE:",X
:Input "A:",D
:Input "PAR:",H
:Input "F'(X)=",Str1
:Str1→Y1
:Input "F(X0)=",F
:{X→L1
:{F→L2
:FnOff
:DelVar WWhile X≤D-H and getKey-45
:W+1→W
:Y1(X)H+L2(W→L2(W+1
:X+H→X
:X→L1(W+1

:End
:Goto YY
:Lbl 2Z
:Input "DE:",X
:Input "A:",D
:Input "PAR:",H
:Disp "Y'+AY=B
:Input "A(X)=",Str1
:Str1→Y1
:Input "B(X)=",Str1
:Str1→Y2
:Input "Y(X0)=",F
:{X→L1
:{F→L2
:FnOff
:0→W
:DelVar WWhile X≤D-H and getKey-45
:W+1→W
:HY2(X)+(1-HY1(X))L2(W→L2(W+1
:X+H→X
:X→L1(W+1
:End
:Lbl YY
:Plot1xyLine ,L1,L2,∙
:ZoomStat
:DelVar XPause :ZPrevious
:Goto Y2
:End
sachiix69 : les DelVar permettent de supprimmer les variables. Cela libère de la mémoire. Et en plus les variables numériques sont mises à zéro. Sans compter qu'on peut contracter les instructions sans sauter de ligne après un DelVar.

Maintenant que j'y pense, la simplification de racines peut t'intéresser, non ?
C'est moins bien que AUTOCALC mais je suis quand même fier de moi puisque en Basic : RACCALC

linkakro
Or 4
Or 4

Sexe : Masculin
Age : 22
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+
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-84 Pocket.fr

TI-84+ SE


Revenir en haut Aller en bas

Re: The MathPowa Project

Message par persalteas le Lun 3 Sep - 16:08

Ok, faut que je pense a corriger ces erreurs.

le 21→B, c'est pour le retour au menu, pour éviter une erreur (le curseur sera toujours sur Approx)

Sinon, les racines, j'ai déjà Clin Oeil merci

_________________
[Vous devez être inscrit et connecté pour voir cette image]

persalteas
Platinum 2
Platinum 2

Sexe : Masculin
Age : 21
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
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83
  • - TI-83+
  • - TI-84+ SE
  • - TI-86
  • - TI-Nspire
  • - TI-Nspire CX
  • - Casio Collège
  • - Casio Graph

TI-84 Pocket.fr


http://tiemulation.kegtux.org

Revenir en haut Aller en bas

Re: The MathPowa Project

Message par nikitouzz le Lun 3 Sep - 19:11

ah d'accord Content

merci beaucoup, courage persalteas Content

_________________
[Vous devez être inscrit et connecté pour voir cette image]
Invité née le 0 a aujord'huis 0 ans et a posté 11 messages... je suis derrière vous

2x2x2 : 2.18 secondes / 2x2x2 une main : 21.15 secondes / 2x2x2 yeux bandés : 47.59
3x3x3 : 5.97 secondes / 3x3x3 une main : 49.86 secondes
4x4x4 : 1.49 minutes / 4x4x4 une main : 6.50 minutes
5x5x5 : 4.10 minutes / 5x5x5 une main : 18.02 minutes
6x6x6 : 8.10 minutes
7x7x7 : 16.03 minutes
9x9x9 : 58.26 minutes

3x3x1 : 0.73secondes / 3x3x2 : 30.55secondes / 3x3x3 : 5.97secondes / 3x3x4 : 1.09minutes / 3x3x5 : 1.46minutes / 3x3x6 : 2.06minutes

megaminx : 5.59 minutes / pyraminx : 7.91 secondes / square-one : 1.07

nikitouzz
Platinum 1
Platinum 1

Sexe : Masculin
Age : 21
Messages : 1834
Date d'inscription : 16/01/2011
Points Forum : 7
Points Concours : 6
Langages :
  • - TI-Basic Z80
  • - ASM TI-83+ / TI-84+
  • - Axe Parser
  • - TI-Basic 68K
  • - TI-Basic Nspire
Calculatrices :
  • - TI-73
  • - TI-76.fr
  • - TI-82 Stats.fr
  • - TI-83+
  • - TI-84+
  • - TI-92
  • - TI-Nspire
  • - TI-Nspire CX

TI-84+ SE


Revenir en haut Aller en bas

Re: The MathPowa Project

Message par persalteas le Jeu 6 Sep - 12:56

Pour ou contre le changement de nom en faveur de CalcPowa ? (puisque ça ne traite pas que de maths...)


[Vous devez être inscrit et connecté pour voir cette image]

_________________
[Vous devez être inscrit et connecté pour voir cette image]

persalteas
Platinum 2
Platinum 2

Sexe : Masculin
Age : 21
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
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83
  • - TI-83+
  • - TI-84+ SE
  • - TI-86
  • - TI-Nspire
  • - TI-Nspire CX
  • - Casio Collège
  • - Casio Graph

TI-84 Pocket.fr


http://tiemulation.kegtux.org

Revenir en haut Aller en bas

Re: The MathPowa Project

Message par Le Grec le Jeu 6 Sep - 13:08

C'est vrai que c'est mieux, CalcPowa. Ok

(Bien que le "powa" et les deux points d'exclamation ne me plaisent pas trop...)

Le Grec
Or 3
Or 3

Sexe : Masculin
Age : 100
Messages : 332
Date d'inscription : 24/05/2012
Etudes : L1 Droit
Points Forum : 12
Points Concours : 0
Langages :
  • - TI-Basic Z80
  • - ASM TI-82 Stats / TI-83
Calculatrices :
  • - TI-Collège
  • - TI-82 Stats.fr
  • - TI-84 Pocket.fr
  • - TI-84+ SE
  • - TI-Nspire CAS

TI-84 Pocket.fr


Revenir en haut Aller en bas

Re: The MathPowa Project

Message par noelthebest le Jeu 6 Sep - 14:52

Oui c'est mieux comme ça.

_________________
[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]
[Vous devez être inscrit et connecté pour voir cette image]

noelthebest
Platinum 1
Platinum 1

Sexe : Masculin
Age : 19
Messages : 1969
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
Calculatrices :
  • - TI-83+.fr
  • - TI-Nspire CX
  • - Casio Collège
  • - Casio Graph

TI-84+ SE


Revenir en haut Aller en bas

Re: The MathPowa Project

Message par nikitouzz le Jeu 6 Sep - 15:10

de toute facon c'est pareille mais calcpowa est quand meme mieux Content

_________________
[Vous devez être inscrit et connecté pour voir cette image]
Invité née le 0 a aujord'huis 0 ans et a posté 11 messages... je suis derrière vous

2x2x2 : 2.18 secondes / 2x2x2 une main : 21.15 secondes / 2x2x2 yeux bandés : 47.59
3x3x3 : 5.97 secondes / 3x3x3 une main : 49.86 secondes
4x4x4 : 1.49 minutes / 4x4x4 une main : 6.50 minutes
5x5x5 : 4.10 minutes / 5x5x5 une main : 18.02 minutes
6x6x6 : 8.10 minutes
7x7x7 : 16.03 minutes
9x9x9 : 58.26 minutes

3x3x1 : 0.73secondes / 3x3x2 : 30.55secondes / 3x3x3 : 5.97secondes / 3x3x4 : 1.09minutes / 3x3x5 : 1.46minutes / 3x3x6 : 2.06minutes

megaminx : 5.59 minutes / pyraminx : 7.91 secondes / square-one : 1.07

nikitouzz
Platinum 1
Platinum 1

Sexe : Masculin
Age : 21
Messages : 1834
Date d'inscription : 16/01/2011
Points Forum : 7
Points Concours : 6
Langages :
  • - TI-Basic Z80
  • - ASM TI-83+ / TI-84+
  • - Axe Parser
  • - TI-Basic 68K
  • - TI-Basic Nspire
Calculatrices :
  • - TI-73
  • - TI-76.fr
  • - TI-82 Stats.fr
  • - TI-83+
  • - TI-84+
  • - TI-92
  • - TI-Nspire
  • - TI-Nspire CX

TI-84+ SE


Revenir en haut Aller en bas

Re: The MathPowa Project

Message par persalteas le Jeu 4 Oct - 15:16

Bref, des nouvelles du front, plutôt mauvaises hélas...

- J'ai perdu le code d' ALGEPOWA a cause d'un bête Ctrl S trop hatif, j'ai donc perdu les versions récentes... Plus qu'à recommencer. Youpi.

- J'ai un ou deux soucis dans FONCTPOWA, notament a propos des complexes:
La TI refuse d'afficher une variable de type "complexe" à l'écran via la commande Text(, où alors je ne sais pas comment (Vous pouvez essayer si vous ne me croyez pas, vous aurez une ERR ARGUMENT...)
Bien entendu je ne peux pas utiliser "real" et "imag" pour afficher le nombre en deux fois puisque je suis en Basic augmenté, "real" ne fonctionne pas...

- J'ai également des problèmes avec Symbolic qui refuse de s'éxécuter depuis un programme. Les commande fonctionnent parfaitement depuis l'écran de base, hors programme, mais j'obtiens des erreurs de syntaxe quand la commande vient d'un programme. Aucune idée de pourquoi... :/

- Je recherche un programme qui donne l'équation de la tangente à la courbe en un point, attention, je parle bien dans un cas général, c'est a dire qu'il doit fonctionner si votre courbe est un logarithme ou un sinus... Je ne sais même pas si c'est possible d'en créer un en fait...


En bref, ça avance trop lentement à mon gout... Mais je n'abandonne pas Content

Si vous savez comment régler un de ces problèmes, je suis tout ouïe.

_________________
[Vous devez être inscrit et connecté pour voir cette image]

persalteas
Platinum 2
Platinum 2

Sexe : Masculin
Age : 21
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
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83
  • - TI-83+
  • - TI-84+ SE
  • - TI-86
  • - TI-Nspire
  • - TI-Nspire CX
  • - Casio Collège
  • - Casio Graph

TI-84 Pocket.fr


http://tiemulation.kegtux.org

Revenir en haut Aller en bas

Re: The MathPowa Project

Message par nikitouzz le Jeu 4 Oct - 17:41

-pour ton premier probleme.... aucune solution
-ce probleme m'est deja arriver il me semble qu'il y a une solutions je ne sais plus laquelle ^^
-aucune idee
-critor est ton amis Clin Oeil

_________________
[Vous devez être inscrit et connecté pour voir cette image]
Invité née le 0 a aujord'huis 0 ans et a posté 11 messages... je suis derrière vous

2x2x2 : 2.18 secondes / 2x2x2 une main : 21.15 secondes / 2x2x2 yeux bandés : 47.59
3x3x3 : 5.97 secondes / 3x3x3 une main : 49.86 secondes
4x4x4 : 1.49 minutes / 4x4x4 une main : 6.50 minutes
5x5x5 : 4.10 minutes / 5x5x5 une main : 18.02 minutes
6x6x6 : 8.10 minutes
7x7x7 : 16.03 minutes
9x9x9 : 58.26 minutes

3x3x1 : 0.73secondes / 3x3x2 : 30.55secondes / 3x3x3 : 5.97secondes / 3x3x4 : 1.09minutes / 3x3x5 : 1.46minutes / 3x3x6 : 2.06minutes

megaminx : 5.59 minutes / pyraminx : 7.91 secondes / square-one : 1.07

nikitouzz
Platinum 1
Platinum 1

Sexe : Masculin
Age : 21
Messages : 1834
Date d'inscription : 16/01/2011
Points Forum : 7
Points Concours : 6
Langages :
  • - TI-Basic Z80
  • - ASM TI-83+ / TI-84+
  • - Axe Parser
  • - TI-Basic 68K
  • - TI-Basic Nspire
Calculatrices :
  • - TI-73
  • - TI-76.fr
  • - TI-82 Stats.fr
  • - TI-83+
  • - TI-84+
  • - TI-92
  • - TI-Nspire
  • - TI-Nspire CX

TI-84+ SE


Revenir en haut Aller en bas

Re: The MathPowa Project

Message par linkakro le Jeu 4 Oct - 19:07

La fonction Text() impose beaucoup de restriction, la fonction >Frac ne fonctionne pas non-plus.

Tu peux calculer la partie réelle par des moyens détournés.
Re(z)= (z+conj(z))/2 = arccos(argument(z))*(1-2(imag(z)<0) = ...

Veux-tu calculer l'expression littérale ou numérique de la dérivée pour la tangente ?
Numérique tu dois savoir faire, et littéral tu dois pouvoir utiliser ton EasyF'X ou autre chose de plus puissant.
Le reste c'est juste appliquer y(x)=f'(a)*(x-a)+f(a).

Je ne peux pas t'aider en ce qui concerne les programmes assembleur.

linkakro
Or 4
Or 4

Sexe : Masculin
Age : 22
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+
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-84 Pocket.fr

TI-84+ SE


Revenir en haut Aller en bas

Re: The MathPowa Project

Message par persalteas le Ven 5 Oct - 12:16

Merci bien Content

Mes solutions:

-Pour la tangeante, il me suffit de trouver la dérivée (avec Symbolic), de la stocker dans Y1 et d'appliquer y(x)=f'(a)*(x-a)+f(a)

- Pour le complexe: il y aurait plusieurs façons plus simples que la tienne de remplacer la fonction real(, BIEN QU'EN FAIT CE NE SOIT PAS LA PEINE: J'ai toujours cru que son utilisation de base n'était plus possible, et pourtant si, KermM me l'a montré hier...

Au pire, d'après Kerm:
Code:
 real(X)=.5(x+conj(X
D'après Xeda:
Code:
 real(X)=imag(iX

Donc j'ai des solutions pour ces deux points là Content

Me reste à trouver pour quelle raison Symbolic m'embête...

_________________
[Vous devez être inscrit et connecté pour voir cette image]

persalteas
Platinum 2
Platinum 2

Sexe : Masculin
Age : 21
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
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83
  • - TI-83+
  • - TI-84+ SE
  • - TI-86
  • - TI-Nspire
  • - TI-Nspire CX
  • - Casio Collège
  • - Casio Graph

TI-84 Pocket.fr


http://tiemulation.kegtux.org

Revenir en haut Aller en bas

Re: The MathPowa Project

Message par linkakro le Ven 5 Oct - 18:07

Kerm a pensé à la même chose que moi Clown
La méthode de Xeda est géniale. Très Content
J'ai pensé depuis longtemps que real devait être piratée seulement lorsqu'on entre plusieurs arguments (mais je n'ai pas testé), et lorsque tu as posé ta question j'ai cru que tu avais déjà testé et trouvé un échec.

linkakro
Or 4
Or 4

Sexe : Masculin
Age : 22
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+
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-84 Pocket.fr

TI-84+ SE


Revenir en haut Aller en bas

Re: The MathPowa Project

Message par persalteas le Ven 5 Oct - 21:28

Ce qui m'étonne, c'est qu'elle s'utilise parfois avec un seul argument !

_________________
[Vous devez être inscrit et connecté pour voir cette image]

persalteas
Platinum 2
Platinum 2

Sexe : Masculin
Age : 21
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
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83
  • - TI-83+
  • - TI-84+ SE
  • - TI-86
  • - TI-Nspire
  • - TI-Nspire CX
  • - Casio Collège
  • - Casio Graph

TI-84 Pocket.fr


http://tiemulation.kegtux.org

Revenir en haut Aller en bas

Re: The MathPowa Project

Message par persalteas le Ven 19 Oct - 21:12

Up, voilà un début de FonctPOWA, mon problème étant que je n'arrive pas a éxécuter correctement les commandes Symbolic, allez savoir pourquoi.

[Vous devez être inscrit et connecté pour voir ce lien]

Si quelqu'un arrive a le faire fonctionner...

(Les deux dernières fonctions du menu notament, équation de tangente et dérivation...)

Toutes les fonctions ne sont pas encore implémentées comme vous pouvez le voir.

_________________
[Vous devez être inscrit et connecté pour voir cette image]

persalteas
Platinum 2
Platinum 2

Sexe : Masculin
Age : 21
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
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83
  • - TI-83+
  • - TI-84+ SE
  • - TI-86
  • - TI-Nspire
  • - TI-Nspire CX
  • - Casio Collège
  • - Casio Graph

TI-84 Pocket.fr


http://tiemulation.kegtux.org

Revenir en haut Aller en bas

Re: The MathPowa Project

Message par persalteas le Lun 22 Oct - 12:02

Pancarte Up

Donc personne n'arrive non plus à lancer Symbolic ?

_________________
[Vous devez être inscrit et connecté pour voir cette image]

persalteas
Platinum 2
Platinum 2

Sexe : Masculin
Age : 21
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
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83
  • - TI-83+
  • - TI-84+ SE
  • - TI-86
  • - TI-Nspire
  • - TI-Nspire CX
  • - Casio Collège
  • - Casio Graph

TI-84 Pocket.fr


http://tiemulation.kegtux.org

Revenir en haut Aller en bas

Re: The MathPowa Project

Message par Contenu sponsorisé Aujourd'hui à 15:38


Contenu sponsorisé


Revenir en haut Aller en bas

Page 2 sur 4 Précédent  1, 2, 3, 4  Suivant

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum