Accueil
Portail
Galerie
Rechercher
S'enregistrer
Connexion
Courbes en coordonnées polaires
Page 1 sur 1
Courbes en coordonnées polaires
par Papydall-Admin Jeu 13 Oct - 5:01
- Code:
rem ============================================================================
rem Courbes en coordonnées polaires
rem Par Papydall
rem ============================================================================
' On s'intéresse ici aux fonctions de la forme :
rem _______________________________________________
rem | |
rem | r = a + b * cos(i*t) + c * power(sin(k*t),m) |
rem |_______________________________________________|
' Avec : a,b,c : réels ; i,k,m : entiers positifs
rem ============================================================================
rem &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
rem ============================================================================
Init()
Draw()
end
rem ============================================================================
rem &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
rem ============================================================================
SUB Init()
dim x0,y0,p
width 0,900 : height 0,700
picture 10 : width 10,width(0)-100 : height 10,height(0)-100
top 10,20 : left 10,50 : 2d_target_is 10 : print_target_is 10
color 10,150,100,50 : 2d_pen_color 255,255,0
x0 = width(10)/2 : y0 = height(10)/2 : p = 1000
font_bold 10 : font_name 10,"arial black" : font_size 10,14
font_color 10, 255,255,0 : 2d_fill_color 150,100,50
caption 0,"L'esthétique polaire"
END_SUB
rem ============================================================================
rem &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
rem ============================================================================
' r = a + b * cos(i*t) + c * power(sin(k*t),m)
' Polaire(x0,y0,size,a,b,c,i,k,m)
SUB Draw()
Polaire(x0,y0,150,0,1,1,2,4,1) : print " r = cos(2*t) + sin(4*t)" : pause p
Polaire(x0,y0,100,0,1,2,1,10,1) : print " r = cos(t) + 2*sin(10*t)" : pause p
Polaire(x0,y0,050,2,1,2,10,5,1) : print " r = 2+cos(10*t) + 2*sin(5*t)" : pause p
Polaire(x0,y0,050,1,1,2,10,20,1) : print " r = 1+cos(10*t) + 2*sin(20*t)" : pause p
Polaire(x0,y0,050,2.1,1,1,14,196,1) : print " r = 2.1+cos(14*t) + sin(196*t)" : pause p
Polaire(x0,y0,050,.7,2.6,1.3,1,90,3) : print " r = 0.7+2.6*cos(t) + 1.3*power(sin(90*t),3)" : pause p
Polaire(x0,y0,030,5,4.6,1.4,1,9,3) : print " r = 5+4.6*cos(t) + 1.4*power(sin(9*t),3)" : pause p
Polaire(x0,y0,060,1.3,1.4,1,11,30,1) : print " r = 1.3+1.4*cos(11*t) + sin(30*t)" : pause p
Polaire(x0,y0,100,1.6,1.1,1,2,5,3) : print " r = 1.6+1.1*cos(2*t) + power(sin(5*t),3)" : pause p
' Coube du Diable :
rem ____________________________________________________________
rem | |
rem | r = sqr(abs((3-2*tan(t)*tan(t) ) / ( 1- tan(t)*tan(t)))) |
rem |____________________________________________________________|
Courbe_Du_Diable(x0,y0,100)
END_SUB
rem ============================================================================
rem &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
rem ============================================================================
' x0,y0 : coordonnées du centre de la figure
' size : facteur agissant sur la taille de la figure
' a,b,c : réels
' i,k,m : entiers positifs
SUB Polaire(x0,y0,size,a,b,c,i,k,m)
dim_local r,t,x,y
degrees : ' on travaille avec les degrés au lieu des radians
color 10,150,100,50 : 2d_pen_color 255,255,0
2d_poly_from x0 + size*(a+b),y0
for t = 0 to 360
r = a + b * cos(i*t) + c * power(sin(k*t),m)
x = x0 + size * r * cos(t) : y = y0 - size * r * sin(t)
2d_poly_to x,y
display
next t
print_locate 20,20
END_SUB
rem ============================================================================
rem &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
rem ============================================================================
SUB Courbe_Du_Diable(x0,y0,size)
dim_local r,t,x,y
degrees : ' on travaille avec les degrés au lieu des radians
color 10,150,100,50 : 2d_pen_color 255,255,0
2d_poly_from x0+size*sqr(3) ,y0
for t = 0.0001 to 361 : ' Pour éviter la valeur de l'infini pour tan
r = sqr(abs((3-2*tan(t)*tan(t)) / (1- tan(t)*tan(t))))
x = x0 + size * r * cos(t) : y = y0 - size * r * sin(t)
2d_poly_to x,y
display
next t
font_size 10,12
print_locate 300,20 : print "Courbe du Diable"
print_locate 200,40 : print "r = sqr(abs((3-2*tan(t)*tan(t)) / (1- tan(t)*tan(t))))"
END_SUB
rem ============================================================================
rem &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
rem ============================================================================
Papydall-Admin- Admin
- Messages : 93
Réputation : 0
Date d'inscription : 08/09/2015
Age : 73
Localisation : MOKNINE (Tunisie) -
Sujets similaires» Courbes en coordonnées polaires : Les jolis papillons
» Courbes polaires
» Courbes de Bézier cubiques
» Les Courbes de Bézier cubiques
» DES MATHS POUR L'ESTHETIQUE DES COURBES
» Courbes polaires
» Courbes de Bézier cubiques
» Les Courbes de Bézier cubiques
» DES MATHS POUR L'ESTHETIQUE DES COURBES
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
» A ceux qui célèbre Noël, bonnes fêtes
» Joyeux Noël et Bonne Année
» Planets of the Solar System : Tilts and Spins
» Bonne Année 2023
» Fractals - Mandelbrot
» Convertisseur Décimal ---> Binaire, Octal, Hexadécimal, ...
» Balises {USER...}
» Useful Dog