Forum de Programmation en langage PANORAMIC
Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Mots-clés

Derniers sujets
» Régalez-vous !
Sam 29 Juil - 11:42 par Admin

» Les bienfaits du rire
Ven 7 Juil - 0:04 par Admin

» Derrière chaque beau parleur se cache un magnifique menteur
Ven 7 Juil - 0:01 par Admin

» Carré magique d’ordre 3 à 99 et plus si affinité !
Mer 5 Juil - 3:21 par Admin

» Dessine-moi une étoile
Mar 4 Juil - 17:32 par Admin

»  Equation paramétrique de la super-ellipse
Mar 4 Juil - 17:29 par Admin

»  Exécution des fichiers CPL
Sam 1 Juil - 14:01 par Admin

» Un papa à la page.
Ven 30 Juin - 15:01 par Admin

»  Exemple de menu
Lun 26 Juin - 22:36 par Admin

Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   

Calendrier Calendrier


Courbes en coordonnées polaires

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

Courbes en coordonnées polaires

Message par Admin le 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 ============================================================================

_________________
Invité, merci d'être passé par ici.
avatar
Admin
Admin

Messages : 66
Date d'inscription : 08/09/2015
Age : 67
Localisation : MOKNINE (Tunisie)

Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com

Revenir en haut Aller en bas

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