Dimensionnement programme entre TI89 et V200 ou TI92 - Page 1

Bonjour tout le monde

J'ai un problème avec ma TI 89t au niveau de certains programmes prévu pour la dimension des écrans de TI V200 ou TI92

Peut-on les redimensionner et si oui comment fait-on?

Petit exemple avec le programme appelé konikes disponible ici


Merci à vous

PS: je suis remonter jusquà la 10ème page j'ai rien vu sur le sujet suis-je le seul ??

Ben, il faut raccourcir les chaînes de caractères dans les dialogues, rendre les coordonnées plus petites pour les commandes Output etc.

Kevin Kofler (./2) :
Ben, il faut raccourcir les chaînes de caractères dans les dialogues, rendre les coordonnées plus petites pour les commandes Output etc.

Merci pour ta réponse mais je suis pas trop fort en programmation donc peux tu être plus précis...

Bah, regarde à quelle ligne tu as l'erreur Dimension.
Si c'est quelque chose comme Text "une très très longue chaîne de caractères", remplace la très très longue chaîne de caractères par quelque chose de plus court.
Si c'est quelque chose comme Output 170,80,"xyz", mets des coordonnées plus petites qui rentrent dans l'écran PrgmIO de la TI-89 (Titanium) à la place de 170,80.

J'y arrive vraiment pas j'ai l'impression d'être une bille... c'est peut être pas une impression ^^

Non bon voilà les programmes (le premier a besoin du second pour fonctionner sachant que les "output" que tu me parle sont dans le second:

Premier:

()
Prgm
Local c,d,f,g,k1,k2,l,€,yy,xx,s,a,b,r,k,s,h,à,é,i,u,m,±,n
"Dans un repère orthonormal Oxy:"»r
"Axe focal // à Ox"»à
"Axe focal // à Oy"»é
getMode("graph")»s
setMode("graph","PARAMETRIC")
ª5»tmin:5»tmax:0.3»tstep
0»€
Goto z
Lbl a
If €=0 Then
Toolbar
Title "Fonction"
Item "Créer",c
Item "Options",o
Item "A propos...",z
Item "Quitter",q
EndTBar
Else
Toolbar
Title "Fonction"
Item "Créer",c
Item "Options",o
Item "A propos...",z
Item "Quitter",q
Title "Prépare",p
Title "Définit",d
Title "Eléments"
Item "Asymptotes",a1
Item "Directrices",i
Item "Foyers",f
Item "Sommets",s
Title "Tracé",t
EndTBar
EndIf
Lbl q
setMode("graph",s)
DelVar p,q,o,v,w,xm,ym
setMode("Split 1 App","Home")
Return
Lbl d:ClrIO :Goto #("d"&string(€))
Lbl s:ClrIO :Goto #("s"&string(€))
Lbl d1
Disp r,when(a=0,"y®=2px","x®=2py"),"p="&string(p),"","Excentricité e=1",when(a=0,à,é)
Goto a
Lbl d2
Disp r,"x® y®","- + - =1 avec a"&when(v>w,">","<")&"b","a® b®","a="&string(v)
Pause "b="&string(w)
ClrIO
If v>w Then
Disp "Excentricité e=c/a=§(a®-b®)/a",u/v,à
Else
Disp "Excentricité e=c/b=§(b®-a®)/b",u/w,é
EndIf
Goto a
Lbl d3
Disp r," x® y®"," - - - = "&string(sign(ªi))," a® b®","a="&string(v)
Pause "b="&string(w)
ClrIO
If i<0 Then
Disp "Excentricité e=c/a=§(a®+b®)/a=",u/v,à
Else
Disp "Excentricité e=c/b=§(a®+b®)/b=",u/w,é
EndIf
Goto a
Lbl f
ClrIO
If €=1 Then
If a=0 Then
expÐlist(solve(xm=f,x),x)[1]»g
expÐlist(solve(ym=0,y),y)[1]»k
Disp "Foyer F1(p/2,0)=F1 ",[[f,0]]," » F=",[[g,k]]
Else
expÐlist(solve(ym=f,y),y)[1]»g
expÐlist(solve(xm=0,x),x)[1]»k
Disp "Foyer F1(0,p/2)=F",[[0,f]]," » F=",[[k,g]]
EndIf
Else
If v>w and €=2 or i<0 and €=3 Then
re("Foyer F1(c,0)=",u,"F1","x",1,"c")
Else
re("Foyer F1(0,c)=",u,"F1","y",1,"c")
EndIf
EndIf
Goto a
Lbl i
ClrIO
If €=1 Then
If a=0 Then
expÐlist(solve(xm=ªf,x),x)[1]»h
Disp "Directrice (D1):X=ªp/2=",ªf," » (D)=",h
Else
expÐlist(solve(ym=ªf,y),y)[1]»h
Disp "Directrice („1):Y=ªp/2=",ªf," » „=",h
EndIf
Else
Disp "Directrices:"
If v>w and €=2 or i<0 and €=3 Then
re("(D1):x=a®/c=",v^2/u,"D1","x",2,"a")
Else
re("(D1):y=b®/c=",w^2/u,"D1","y",2,"b")
EndIf
EndIf
Goto a
Lbl a1
ClrIO
If €3 Then
Disp "Aucune"
Else
Disp "Asymptotes:"
re("(„1):y=(b/a)x=",w/v*x,"„1","y",2,"(b")
EndIf
Goto a
Lbl s1
Disp "Sommet O'(0,0) » O=",[[expÐlist(solve(xm=0,x),x)[1],expÐlist(solve(ym=0,y),y)[1]]]
Goto a
Lbl s2
Disp "De sommets:"
If v>w Then
Disp " -sur l'"&à&":"
re("A1(a,0)=",v,"A1","x",3,"a")
Pause :ClrIO
Disp " -sur l'axe non focal Oy:"
re("B1(0,b)=",w,"B1","y",2,"b")
Else
Disp " -sur l'"&é&":"
re("B1(0,b)=",w,"B1","y",3,"b")
Pause :ClrIO
Disp " -sur l'axe non focal Ox:"
re("A1(a,0)=",v,"A1","x",2,"a")
EndIf
Goto a
Lbl s3
Disp "De sommets:"
If i<0 Then
Disp " -sur l'"&à&":"
re("A1(a,0)=",v,"A1","x",3,"a")
Else
Disp " -sur l'"&é&":"
re("B1(0,b)=",w,"B1","y",3,"b")
EndIf
Goto a
Lbl t
If €=1 Then
t^2/(2p)»o(t):t»q(t)
If a=0 Then
o(t)»q(t):t»o(t)
EndIf
EndIf
If €=2 Then
v*cos(t)»o(t):w*sin(t)»q(t)
EndIf
If €=3 Then
v/cos(t)»o(t):w*tan(t)»q(t)
If i>0 Then
o(t)»q(t):w*tan(t)»o(t)
EndIf
EndIf
ClrGraph
o(t)-xm|x=0»xt90(t)
q(t)-ym|y=0»yt90(t)
ZoomFit ispG
DelVar xt90,yt90
Goto a
Lbl p
ClrIO
string(a*x^2+b*x)»xx
string(c*y^2+d*y)»yy
Disp xx&"+"&yy&"+"&string(k)&"=0"
If a0:string(a)&"*("&string(x^2+b/a*x)&")"»xx
If c0:string(c)&"*("&string(y^2+d/c*y)&")"»yy
Disp xx&"+"&yy&"+"&string(k)&"=0"
If b0 and a0:string(a)&"*(("&string(xm)&")®-"&string(k1)&")"»xx
If d0 and c0:string(c)&"*(("&string(ym)&")®-"&string(k2)&")"»yy
If k1*k20isp xx&"+"&yy&"+"&string(k)&"=0"
If €1:k»f
k-a*k1-c*k2»k
If a*c0 Then
Pause string(a)&"*("&string(xm)&")®+"&string(c)&"*("&string(ym)&")®="&string(ªk)
If ac Then
ClrIO
Disp "On pose","X="&string(xm),"Y="&string(ym),"","» "&string(a)&"*X®+"&string(c)&"*Y®="&string(ªk)
If €=3 Then
Disp "» X®/("&string(v)&")®-Y®/("&string(w)&")®="&string(sign(ªa*k))
Else
Disp "» X®/("&string(v)&")®+Y®/("&string(w)&")®=1"
EndIf
EndIf
Else
If a=0 Then
Disp string(b*x)&"+"&string(c)&"*("&string(ym)&")^2="&string(ªk),string(c)&"("&string(ym)&")®="&string(ªb)&"*x+"&string(ªk)
Pause string(c)&"("&string(ym)&")®="&string(ªb)&"*("&string(xm)&")"
ClrIO
Disp "On pose","X="&string(xm),"Y="&string(ym),"Y®="&string(ªb/c)&"*X"
Else
Disp string(d*y)&"+"&string(a)&"*("&string(xm)&")^2="&string(ªk),string(a)&"("&string(xm)&")®="&string(ªd)&"*y+"&string(ªk)
Pause string(a)&"("&string(xm)&")®="&string(ªd)&"*("&string(ym)&")"
ClrIO
Disp "On pose","X="&string(xm),"Y="&string(ym),"X®="&string(ªd/a)&"*Y"
EndIf
EndIf
f»k
Goto a
Lbl o
Dialog
DropDown "Longueur du tracé",{"1","2","3","4"},pr
EndDlog
If ok=0:Goto a
0.15pr»tstep
Goto a
Lbl c
Dialog
Request "Equation conique",n
EndDlog
If inString(n,"=")=0:Goto c
If ok=0:Goto a
ClrIO
Disp ""," Représentation de l'équation :",""
string(left(expr(n))-right(expr(n)))»n
If inString(n,"x*y")0 Then
Disp solve(expr(n)=0,y)
Goto a
EndIf
expr(n)»n
n|x=0 and y=0»k
n-k»n
¶(n,x)|x=0»b
¶(n,y)|y=0»d
n-b*x-d*y»n
n|x=1 and y=0»a
n|x=0 and y=1»c
0»€
0»k1:0»k2:x»xm:y»ym
If a*b0 Then
(b/(2a))^2»k1:x+b/(2a)»xm
EndIf
If c*d0 Then
(d/(2c))^2»k2:y+d/(2c)»ym
EndIf
k-a*k1-c*k2»f:a*f»i
If a*c=0 Then
If a+c=0 Then
"une droite : "&string(d*y=ªk-b*x)»l
Else
If a=0 Then
If b=0 Then
solve(c*y^2+d*y+k=0,y)»n
If string(n)="false" Then
"ensemble vide"»l
Else
"2 droites :"&string(n)»l
EndIf
Else
1»€:ªb/(2c)»p:x+f/b»xm/2»f
"parabole d'axe focal Ox"»l
EndIf
Else
If d=0 Then
solve(a*x^2+b*x+k=0,x)»n
If string(n)="false" Then
"ensemble vide"»l
Else
"2 droites :"&string(n)»l
EndIf
Else
1»€:ªd/(2a)»p:y+f/d»ym/2»f
"parabole d'axe focal Oy"»l
EndIf
EndIf
EndIf
Else
§(abs(f/a))»v:§(abs(f/c))»w
(b^2/(4a)+d^2/(4c))-k»m
"("&string(ªb/(2a))&","&string(ªd/(2c))&")"»±
If a*c>0 Then
If a*m<0:"ensemble vide"»l
If m=0:"un point :"&±»l
If a*m>0 Then
If m/a>m/c Then
"ellipse d'axe focal "&±&"x"»l
2»€:§(abs(v^2-w^2))»u
Else
If m/a=m/c Then
"cercle centre "&±&", rayon "&string(§(abs(f/a)))»l
Else
2»€:§(abs(v^2-w^2))»u
"ellipse d'axe focal "&±&"y"»l
EndIf
EndIf
EndIf
Else
If m=0 Then
"2 droites :"&string(solve((x-§(ªc/a)*y)*(x+§(ªc/a)*y)=0,y))»l
Else
3»€:§(v^2+w^2)»u
If m/a>0 Then
"hyperbole d'axe focal "&±&"x"»l
Else
"hyperbole d'axe focal "&±&"y"»l
EndIf
EndIf
EndIf
EndIf
Disp l
Goto a
Lbl z
Dialog
Title "A propos..."
Text " "
Text "  KONI V2.9 "
Text " ¨D. SERVANT"
Text " "
Text ""
Text " damien.servant¨caramail.com"
Text ""
Text "AUTRES PROGRAMMES,POMPES COMPLETES"
Text "DE PREPA : www.chez.com\fritou"
EndDlog
Goto a
EndPrgm

_________________________________________

Second:

(r,z,a,xy,l,s)
Prgm
Local b,u,h,j,ˆ,n,f,t,k
If xy="x" Then
expÐlist(solve(xm=z,x),x)[1]»n
expÐlist(solve(xm=ªz,x),x)[1]»k
expÐlist(solve(ym=0,y),y)[1]»j
[[z,0]]»b:[[ªz,0]]»u
[[n,j]]»h:[[k,j]]»j
Else
expÐlist(solve(ym=z,y),y)[1]»n
expÐlist(solve(ym=ªz,y),y)[1]»k
expÐlist(solve(xm=0,x),x)[1]»j
[[0,z]]»b:[[0,ªz]]»u
[[j,n]]»h:[[j,k]]»j
EndIf
If a="„1" or a="D1" Then
z»b:ªz»u:n»h:k»j
EndIf
inString(r,s)»f
mid(r,1,f-1)&"ª"&mid(r,f)»t
inString(t,a,dim(a)-1)»ˆ
mid(t,1,(ˆ+dim(a))-1)&"'"&mid(t,ˆ+dim(a))»t
Output (l-1)*12,0,r
Output l*12,0,b
Output (l-1)*12,130,"» "&mid(a,1,dim(a)-1)&"="
Output l*12,130,h
Output 63,1,t
Output 75,1,u
Output 63,130,"» "&mid(a,1,dim(a)-1)&"'="
Output 75,130,j
EndPrgm

_________________________________________________________________

Merci à toi si tu peux encore m'aidé (ou à d'autre d'ailleurs)

Pour le premier programme: la police utilisée par les 89 & 89T dans l'écran IO fait 6 pixels de large, et l'écran fait 160 pixels de large. Par conséquent, les chaînes de plus de 26 caractères seront coupées (ou alors, il faudra que tu te déplaces manuellement dans le résultat - une des méthodes d'affichage en BASIC propose automatiquement le scrolling si l'affichage ne rentre pas dans l'écran, il me semble).

Pour le deuxième programme: l'écran CATALOG indique:
Output ROW,COLUMN,EXPR
Les lignes 63 et 75 sont encore dans l'écran de la 89, mais 130 est une coordonnée dans le quart droit de l'écran de la 89. Essaie de la réduire.
Aussi, la police utilisée par les 89 & 89T fait 8 pixels de haut: les *12 devraient pouvoir être transformés sans souci en *10.


Hope this helps

Merci pour ta reponse Lionel qui ma avancé pour le deuxième programme au niveau des *12.

Pour le. premier je ne comprend pas pourquoi j'ai des espaces monstres entre deux résultats... qu'es qui commande les espacements verticaux...

Puis je n'arrivé pas à utilisé le scrolling mon écran reste figé...

Je n'y arriverai jamais pasque la programmation et moi ça fait deux pour l'instant ^^

Si quelqu'un arriverai à me le faire ça serai cool. Merci d'avance

Les "espaces monstre", ce sont les coordonnées données à Output qui les déterminent.

Et il n'y a pas de défilement (scrolling) dans ce programme. Seul Pause permet de défiler, et seulement une expression à la fois. Ici, il faut que tu fasses rentrer le tout sur l'écran sans défiler.

Encore merci à vous deux pour vos réponses rapides et précises...

J'y suis enfin arrivé...^^

Vous pouvez le marquer "résolu"