Il nome è usato anche per altri tipi di curve. Ecco il "quadrifoglio" in un'altra accezione: ρ = cos(2*θ) |
# Come sono stati costruiti con R source("http://macosa.dima.unige.it/r.R") BOXW(-10,10, -10,10) b="blue" gridh(seq(-10,10,5)); gridv(seq(-10,10,5)) y1 = 5; L = y1*sqrt(3); R = L/2 # R raggio cerchi; y1 raggio del cerchio che circoscrive il triangolo polylineR(0,0, y1, 3, 90, 0) A=c(0,y1); B = c(-R,-y1/2); C = c(R,B[2]) ARC(A[1],A[2], R, -60,270-30, b) ARC(B[1],B[2], R, 60,360,b) ARC(C[1],C[2], R, 180,360+120,b) # BOXW(-10,10, -10,10) gridh(seq(-10,10,5)); gridv(seq(-10,10,5)) R = 5; L = 10; y1 = R*sqrt(2) polylineR(0,0, y1, 4, 45, 0) ARC(5,5, R, -90,180, b) ARC(5,-5, R, 180,360+90, b) ARC(-5,-5, R, 90,360, b) ARC(-5,5, R, 0,270, b) # BOXW(-15,15, -15,15) gridh(seq(-15,15,5)); gridv(seq(-15,15,5)) R = 5/2; y1 = R*3; L = y1 polylineR(0,0, y1, 6, 0, 0) ARC(y1,0, L/2, -90-30,90+30, b) ARC(-y1,0, L/2, 60,300, b) ARC(L/2,L*sqrt(3)/2, L/2, -60,180, b) ARC(-L/2,L*sqrt(3)/2, L/2, 0,180+60, b) ARC(L/2,-L*sqrt(3)/2, L/2, 180,360+60, b) ARC(-L/2,-L*sqrt(3)/2, L/2, 120,360, b) # BOXW(-1,1, -1,1) gridh(seq(-1,1,1/2)); gridv(seq(-1,1,1/2)) R = function(t) cos(2*t) polar(R, 0,2*pi, b)