Portál AbcLinuxu, 27. dubna 2024 01:34
x(t)=(a+b)*cos(t)-b*cos((a/b+1)*t) y(t)=(a+b)*sin(t)-b*sin((a/b+1)*t) a=8.0 b=3.0 set parametric set samples 300 plot [t=0:20] x(t),y(t)Pomoci
set parametricnastavite vykreslovani funkce zadane dvema vzorcema,
[t=0:20]udava interval na kterem funkci zkoumate.
set samples 300je tam jenom proto, aby graf byl hladky, je to pocet usecek ze kterych se cela krivka sklada.
x(t)=(a+b)*cos(t)-b*cos((a/b+1)*t) y(t)=(a+b)*sin(t)-b*sin((a/b+1)*t) a=8.0 b=1.0 set size square set parametric set samples 100 unset border unset xtics unset ytics bod1x=x(1) bod1y=y(1) bod2x=x(2) bod2y=y(2) set arrow from bod1x,bod1y to bod2x,bod2y nohead plot [t=0:3] [-10:10] [-10:10] x(t),y(t) title "epicykloida"
x0(t)=a*cos(t) y0(t)=a*sin(t) x1(t)=(a+b)*cos(t) y1(t)=(a+b)*sin(t) x2(t)=x1(t)-b*cos((a/b+1)*t) y2(t)=y1(t)-b*sin((a/b+1)*t) a=8.0 b=4.0 set size square set parametric set samples 100 unset border unset xtics unset ytics t1=0.0 t2=1.0 set arrow from 0,0 to x1(t2),y1(t2) nohead set arrow from x1(t2),y1(t2) to x2(t2),y2(t2) nohead plot [t=t1:t2] [-a-3*b:a+3*b] [-a-3*b:a+3*b] x2(t),y2(t) title "epicykloida", \ x0((t-t1)/(t2-t1)*7),y0((t-t1)/(t2-t1)*7) title "kruznice1", \ x1(t2)+b*cos((t-t1)/(t2-t1)*7),y1(t2)+b*sin((t-t1)/(t2-t1)*7) title "kruznice2"
f(x)= x>-5 && x<2 ? x**2 : x>2 && x<7 ? 2*x+8 : 1/0 plot f(x)
Tiskni Sdílej:
ISSN 1214-1267, (c) 1999-2007 Stickfish s.r.o.