Afficher un graphique a partir d'un programme

[Mixmax123]

Je veux afficher des points dont les coordonnées sont récupérées par un input

[samourai3745]

ok je vais te mettre 2 exemples un pour des stats l'autre pour l'affichage de points

[samourai3745]

Voici un petit programme pour faire des stats par exemple en utilisant la fonction scatter ou xyline

Code: Select all

:FnOff
:PlotsOff
:AxesOn
:GridOff
:ClrHome
:Disp "ENTREZ LES","DONNEES DU","GRAPHIQUE POUR","QU'IL SOIT CREE","AUTOMATIQUEMENT
:Pause
:ClrHome
:Disp "NB DE DONNEES
:Input "PAR AXE:",N
:N->dim(L1
:N->dim(L2
:ClrHome
:Disp "ABSCISSES
:Input "DEPART:",D
:Input "INTERVALLE:",I
:D->L1(1)
:For(Z,2,N
:D+I(Z-1->L1(Z)
:End
:For(Z,1,N
:ClrHome
:Disp "ORDONNEES :","VALEUR N°
:Output(2,10,Z
:Input P
:P->L2(Z
:End
:Menu(" TYPE GRAPHIQUE ","NUAGE POINTS",A,"COURBE",B,"HISTOGRAMME",C,"QUITTER",Q
:Lbl Q
:ClrHome
:Output(1,1,"
:Return
:Lbl A
:Plot1(Scatter,L1,L2,*marque*
:ZoomStat
:Trace
:Pause
:Goto Q
:Lbl B
:Plot1(xyLine,L1,L2,*marque*
:ZoomStat
:Trace
:Pause
:Goto Q
:Lbl C
:Plot1(Histogram,L1,L2
:min(L1)->Xmin
:max(L1)+I->Xmax
:I->Xscl
:max(L2)->Ymax
:0->Ymin
:iPart(Ymax/10)->Yscl
:1->Xres
:DispGraph
:Trace
:Pause
:Goto Q

[samourai3745]

l'autre solution consiste à utiliser la fonction pxlon

la syntaxe est pxlon x,y

pour tracer un axe vertical, linevert 119
pour tracer un axe horizontal : linehorz 51

Si tu veux afficher un pixel de valeur 0,0 ce sera alors pxlon 51,119
pour une valeur x=1 et y =1 par exemple alors il faudra utiliser pxlon x+51,y+119

Garde à l'esprit la taille de l'écran qui est de
0..102 pour les lignes et 0..238 pour les colonnes

n'hésite pas à consulter le site http://tibasicdev.wikidot.com/68k:command-index pour les commandes

J'espère que tout cela pourra t'aider