Visualisation d'une équation. Source inachevé...

Hello world !

Je partage juste un source "brouillon" pour observer l'influence de certains paramètres dans une équation.

Vous pouvez jouer avec les curseurs... puis envoyer le tout à la corbeille !

Visualisation d'une équation. Source inachevé... 151

Code:: DIM i%,x,y,x1,y1,t,i,p,n,r,o,z,a,f
LABEL Dessin
DEGREES
WIDTH 0,1200
HEIGHT 0,650
LEFT 0,(SCREEN_X-WIDTH(0))/2
TOP 0,(SCREEN_Y-HEIGHT(0))/2

PICTURE 1
   FULL_SPACE 1
   COLOR 1,50,50,50

PICTURE 2
   HEIGHT 2,501
   WIDTH 2,501
   TOP 2, (HEIGHT_CLIENT(1)-HEIGHT_CLIENT(2))/2
   LEFT 2,(HEIGHT_CLIENT(1)-HEIGHT_CLIENT(2))/2

2D_TARGET_IS 2
COLOR 2,250,250,250

' quadrillage
2D_PEN_COLOR 220,220,250
FOR i%=50 TO 450 STEP 50
   2D_LINE 0,i%,500,i%
   2D_LINE i%,0,i%,500
NEXT i%
2D_PEN_COLOR 180,180,250
2D_LINE 0,250,500,250
2D_LINE 250,0,250,500
PRINT_TARGET_IS 2
FONT_NAME 2,"Arial"
FONT_SIZE 2,7
FOR i%=50 TO 450 STEP 50
   PRINT_LOCATE 0,i%-5
   PRINT STR$(250-i%)
NEXT i%

' lignes x, y ,x',y'
FOR i% = 10 TO 13
   EDIT i%
   TOP i%,i%*25-190
   LEFT i%,650
   WIDTH i%,500
   HEIGHT i%,25
NEXT i%

CHECK 15
   TOP 15,575
   LEFT 15,650
   WIDTH 15,150
   CAPTION 15,"Points reliés"

2D_TARGET_IS 1
PRINT_TARGET_IS 1
FONT_COLOR 1,240,240,240
2D_FILL_COLOR 50,50,50
FONT_SIZE 1,14
PRINT_LOCATE 615,57
PRINT "x :"
PRINT_LOCATE 615,82
PRINT "y :"
PRINT_LOCATE 615,107
PRINT "x' :"
PRINT_LOCATE 615,132
PRINT "y' :"

FOR i% = 20 to 24
   SCROLL_BAR i%
   WIDTH i%,300
   VERTICAL i%
   TOP i%, 250
   LEFT i%, i%*100-1350
NEXT i%

ALPHA 30
   LEFT 30, 650
   TOP 30, 225

ALPHA 31
   LEFT 31, 750
   TOP 31, 225

ALPHA 32
   LEFT 32, 850
   TOP 32, 225

ALPHA 33
   LEFT 33, 950
   TOP 33, 225

ALPHA 34
   LEFT 34, 1050
   TOP 34, 225

' Nombre de branches de -15 à 15 step 0.5
MIN 20,-15
MAX 20,15
POSITION 20,4

' Cercle interne de -3 à 3 pas de 0.25
MIN 21,-3
MAX 21,3
POSITION 21, 1

' Puissance du Sinus de -12 à 12 pas de 0.25
MIN 22,-12
MAX 22,12
POSITION 22,2

' Apmlitude de -5 à +5 pas de 0.25
MIN 23,-5
MAX 23,5
POSITION 23,2

' Zoom 0 à 50 pas de 1
MIN 24,0
MAX 24,50
POSITION 24,20

2D_TARGET_IS 2
2D_PEN_COLOR 0,0,0

' n= 4 : ' nb de paires branches
' r= 1 : ' cercle interne
' p=2 : ' puissance du sinus
' a=2 : ' Amplitude
' z=20 : ' zoom 0 à 50 pas de 1
o=250 : ' offset
' n=position(20)
' r=position(21)
' p=POSITION(22)
' a=POSITION(23)
' z=POSITION(24)

FONT_NAME 0,"Courier New"
FONT_SIZE 0,11
TEXT 10," ((POWER(SIN(t*n),p)*a+r)/(SQR(POWER(TAN(t),2)+1)))"
TEXT 11," TAN(t)*y"
TEXT 12," (y*-1)"
TEXT 13," (x*-1)"

GOSUB dessin

FOR i%=20 to 24
   ON_CHANGE i%, Dessin
NEXT i%
END
' ------------------------------------------------------------------------------
Dessin:
   CLS
   ' quadrillage
   2D_PEN_COLOR 220,220,250
   FOR i%=50 TO 450 STEP 50
   2D_LINE 0,i%,500,i%
   2D_LINE i%,0,i%,500
   NEXT i%
   2D_PEN_COLOR 180,180,250
   2D_LINE 0,250,500,250
   2D_LINE 250,0,250,500
   PRINT_TARGET_IS 2
   FONT_NAME 2,"Arial"
   FONT_SIZE 2,7
   FOR i%=50 TO 450 STEP 50
   PRINT_LOCATE 0,i%-5
   PRINT STR$(250-i%)
   NEXT i%

   n=POSITION(20)
   r=position(21)
   p=POSITION(22)
   a=POSITION(23)
   z=POSITION(24)
   CAPTION 30,"n="+STR$(n)
   CAPTION 31,"r="+STR$(r)
   CAPTION 32,"p="+STR$(p)
   CAPTION 33,"a="+STR$(a)
   CAPTION 34,"zoom="+STR$(z)

   2D_PEN_COLOR 0,0,0
   FOR t=1 to 360
   y=((POWER(SIN(t*n),p)*a+r)/(SQR(POWER(TAN(t),2)+1)))
   x=tan(t)*y
   y1=(y*-1)
   x1=(x*-1)
   IF CHECKED(15)=0
   2D_POINT z*x+o,z*y+o
   2D_POINT z*x1+o,z*y1+o
   ELSE
   2D_POLY_TO z*x+o,z*y+o
   2D_POLY_TO z*x1+o,z*y1+o
   END_IF
   NEXT t
RETURN

Salut Marc et merci pour le partage.
Je te propose une légère amélioration du rendu.
Si on check Points reliés, le tracé part de la coordonnée -200, c’est qui est inesthétique.
Pour remédier à ceci, ajouter avant la ligne de la boucle 181

Code:: 2d_poly_from o,o

De cette façon le tracé part du bon endroit.

Merci Papydall pour le retour.

Citation :: De cette façon le tracé part du bon endroit.

Oui, tu as tout à fait raison !

Peut-être, ce source renaîtra-t-il un jour, avec des EDIT interactifs et un 2d_poly_from o,o made by Papydall...

Rends-toi ici, il y a de quoi te régaler !

Papydall a écrit:: Rends-toi ici, il y a de quoi te régaler !

Ah oui ! Effectivement, il y a de quoi attraper le tournis !

Encore un site en OR !

Merci Papydall !

Voici une courbe maison

Code:: rem ============================================================================
rem Courbe en coordonnées polaires
rem ______________________________________
rem | |
rem | r = 1/(1+hcos(t) * sin(t) * sin(t)) |
rem | avec -pi < t < pi |
rem |______________________________________|
rem
rem ============================================================================

dim x,y,xc,yc,r,t,p,zoom
picture 10 : full_space 10 : 2d_target_is 10
p = pi/180 : xc = width_client(10)/2 : yc = height_client(10)/2 : zoom = 200
2d_poly_from xc-zoom,yc
for t = 0-pi to pi step p
   r = 1/(1+hcos(t) * sin(t) * sin(t))
' r = 1/(1+hcos(t) * sin(t) * sin(t/2)) : ' essayer cette formule
   x = r*cos(t)
   y = r*sin(t)
   2d_poly_to xc+x*zoom,yc+y*zoom
next t
2d_flood xc,yc,0,0,255
rem ============================================================================

Merci Papydall ! Very Happy

Je l'ajoute à ma collection !

» Equation d’un œuf
» Equation d'une droite
» Équation diophantienne ax + by = c
» Equation de la pomme
» PLM visualisation