Forum de Programmation en langage PANORAMIC
Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Mots-clés

fichiers  

Derniers sujets
» Useful Dog
Ven 6 Avr - 14:25 par Papydall-Admin

» Les Courbes de Bézier cubiques
Ven 30 Mar - 4:08 par Papydall-Admin

» Animation flash
Mer 14 Mar - 2:50 par Papydall-Admin

» Mega-Strip
Lun 12 Mar - 1:24 par Papydall-Admin

» Les oiseaux de mon jardin
Ven 9 Mar - 1:08 par Papydall-Admin

»  Création et gestion d’un livre
Jeu 8 Mar - 15:37 par Papydall-Admin

» Deux questions d’éthique
Mar 6 Mar - 1:56 par Papydall-Admin

»  La Blague Du Jour
Lun 5 Mar - 2:50 par Papydall-Admin

» Branle-Fesse
Lun 5 Mar - 2:46 par Papydall-Admin

Novembre 2018
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
2627282930  

Calendrier Calendrier


Courbes en coordonnées polaires

Aller en bas

Courbes en coordonnées polaires

Message par Papydall-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
Papydall-Admin
Admin

Messages : 94
Réputation : 0
Date d'inscription : 08/09/2015
Age : 68
Localisation : MOKNINE (Tunisie)

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

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum