Equation paramétrique de la super-ellipse

par **Papydall-Admin** Mar 4 Juil - 17:29

Code:: rem ============================================================================ rem Le super-cercle rem ============================================================================ rem Equation paramétrique de la super-ellipse rem _______________________________________________ rem | | rem | x = power(abs(cos(t)),2/n) * a * sgn(cos(t)) | rem | y = power(abs(sin(t)),2/n) * b * sgn(sin(t)) | rem | -------------------------------------------- | rem | n, a, b : nombres positifs | rem | t : angle en radians variant de 0 à 2*pi | rem | Si b = a, on a affaire à un super-cercle | rem |_______________________________________________| rem rem rem ============================================================================ font_bold 0 : font_color 0,0,0,255 print_locate 5,10 print "Ce ne sont pas des carrés. Ce sont des super-cercles, même si ça ressemble beaucoup à des carrés" Super_cercle(020,005) Super_cercle(050,010) Super_cercle(100,020) Super_cercle(150,050) Super_Cercle(200,500) end rem ============================================================================ ' Paramètres : ' a : demi-diamètre ' n : détermine la nature du super-cercle(hypo ou hyper-cercle) et sa forme ' Plus la valeur de n augmente, plus la courbe obtenue tend vers un cercle. SUB Super_cercle(a,n) dim_local p,t,x,y,xc,yc,w,h p = pi/180 w = width(0) : h = height(0) : xc = w/2 : yc = h/2 xc = width_client(0)/2 : yc = height_client(0)/2+10 2d_poly_from xc + a,yc ' 2d_pen_width 2 for t = 0 to 2*pi + p step p x = power(abs(cos(t)),2/n) * a * sgn(cos(t)) y = power(abs(sin(t)),2/n) * a * sgn(sin(t)) 2d_poly_to xc+x,yc+y next t 2d_flood xc-a+10,yc,255,255,0 END_SUB rem ============================================================================

Lun	Mar	Mer	Jeu	Ven	Sam	Dim
		1	2	3	4	5
6	7	8	9	10	11	12
13	14	15	16	17	18	19
20	21	22	23	24	25	26
27	28	29	30	31