X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=mp-gdd.git;a=blobdiff_plain;f=exemples%2Fpolaires%2Fpol07.mp;fp=exemples%2Fpolaires%2Fpol07.mp;h=db2abe8f077cddbadfa332dc7c88caf53aa0138f;hp=0000000000000000000000000000000000000000;hb=1f9d2f4036645554c46f92209d5b4d417c5fd678;hpb=2518cfffb2598c5733eedf4907b61bc31ab2bd86 diff --git a/exemples/polaires/pol07.mp b/exemples/polaires/pol07.mp new file mode 100644 index 0000000..db2abe8 --- /dev/null +++ b/exemples/polaires/pol07.mp @@ -0,0 +1,53 @@ +input gdd; +input gdd-rep; +input gdd-lbl; +input gdd-tra; +input svgnames; + +lblPreambule := "\usepackage[frenchb]{babel}" & + "\usepackage[garamond]{mathdesign}" & + "\usepackage{amsmath}"; + +input gdd-fct; +input gdd-plt; + +labeloffset := 6; +gddU:=1.5cm; + +vardef r(expr t) = 4*cos(t/3)*cos(t/3)*cos(t/3) enddef; + +vardef rp(expr t) = (r(t)*cos(t),r(t)*sin(t)) enddef; + +def traceDoubleVecteur(expr o,d)= drawdblarrow ((o-d)--(o+d)) gddEnPlace enddef; + +def avecCrayon(expr t,c) = withpen pencircle scaled t withcolor c enddef; + + +a = arccos(1/sqrt(3)); + + + +beginfig(1); + + + Repere(8,8,2,4,1,1); + Axes; + Debut; + Graduations; Unites(1); + + drawoptions(withcolor Gainsboro); + + + trace CourbeEnPolaires(r,0,3Pi,450) + avecCrayon(1.5,Crimson); + + drawoptions(withcolor LightGoldenrod); + + pointe Point(0,0); + + Fin; + + +endfig; + +end \ No newline at end of file