17/06/07 19:21:16.35 te/EIcFW.net
URLﾘﾝｸ(www.wolframalpha.com)
solve[ {x,y}.{{cos[-Pi/6],sin[-Pi/6]},{-sin[-Pi/6],cos[-Pi/6]}}.{{1/4,0},{0,1}}.{{cos[-Pi/6],-sin[-Pi/6]},{sin[-Pi/6],cos[-Pi/6]}}.{x,y} ==1.0,y==0]
implicitplot[{x,y}.{{cos[-Pi/6],sin[-Pi/6]},{-sin[-Pi/6],cos[-Pi/6]}}. {{1/4,0},{0,1}}.{{cos[-Pi/6],-sin[-Pi/6]},{sin[-Pi/6],cos[-Pi/6]}}.{x,y} -1==0,{x,-2,2},{y,-2,2}]
polarplot[ 1/(2-sqrt[3] cos[s-Pi/6]),{s,0,6}]
polarplot[ 2/sqrt[4-3 cos[s-Pi/6]^2],{s,0,6}]
polarplot[ 1/sqrt[cos[s-Pi/6]^2/4+sin[s-Pi/6]^2],{s,0,6}]
parametricplot[ cos[s+Pi/6] 2/sqrt[4-3 cos[s]^2],sin[s+Pi/6] 2/sqrt[4-3 cos[s]^2],{s,0,6}]
parametricplot[ cos[s+Pi/6]/sqrt[cos[s]^2/4+sin[s]^2],sin[s+Pi/6]/sqrt[cos[s]^2/4+sin[s]^2],{s,0,6}]