> MyVal := proc() plot([13*cos(t) - 5*cos(2*t) - 2*cos(3*t) - cos(4*t), t = 0 .. 2*Pi], axes = none, color = red); end proc;
> MyVal();
Error, (in plot) incorrect first argument [13*cos(t)-5*cos(2*t)-2*cos(3*t)-cos(4*t), t = 0 .. 2*Pi]
;
> with(plots);
[animate, animate3d, animatecurve, arrow, changecoords, 



  complexplot, complexplot3d, conformal, conformal3d, 



  contourplot, contourplot3d, coordplot, coordplot3d, 



  densityplot, display, dualaxisplot, fieldplot, fieldplot3d, 



  gradplot, gradplot3d, implicitplot, implicitplot3d, inequal, 



  interactive, interactiveparams, intersectplot, listcontplot, 



  listcontplot3d, listdensityplot, listplot, listplot3d, 



  loglogplot, logplot, matrixplot, multiple, odeplot, pareto, 



  plotcompare, pointplot, pointplot3d, polarplot, polygonplot, 



  polygonplot3d, polyhedra_supported, polyhedraplot, rootlocus, 



  semilogplot, setcolors, setoptions, setoptions3d, shadebetween, 



  spacecurve, sparsematrixplot, surfdata, textplot, textplot3d, 



  tubeplot]




;
> NULL;
> NULL;
> polarplot(-sin(2*theta/Pi)^3 - 1.2*(1.2*2*(theta - 0.1)/3.5*(4*(theta - 0.1)^2/3.5^2 - 1) - 0.1) + min(1/2*(theta + Pi/5)^3 - 0.2, 0) + 2, theta = -Pi/2 .. Pi/2);

> polarplot(-sin(2*theta/Pi)^3 - 1.2*(1.2*2*(theta - 0.1)/3.5*(4*(theta - 0.1)^2/3.5^2 - 1) - 0.1) - 1/(1 + (theta + Pi/3)^2) + 3 - 0.8/(1 + 9*(theta - Pi/1.7)^2), theta = -Pi/2 .. Pi/2);

> polarplot(4 - 2*(2*(theta + 0.1)/Pi)^3 - 1.3*exp(-1.474*(theta + 1.222)) - 0.3/(1 + 1.08*(theta + Pi/3)^2) - 0.3/(1 + 1.08*(theta + Pi/4)^2) - 1.1/(1 + 1.08*(theta + Pi/12)^2) - 0.646/(1 + 1.08*(theta - Pi/6)^2) - 0.6/(1 + 1.08*(theta + Pi/2.5)^2) - 0.1/(1 + 1.08*(theta + Pi/2.2)^2), theta = -Pi/2 .. Pi/2);

> polarplot(4 - 2*(2*((Pi - theta) + 0.1)/Pi)^3 - 1.3*exp(-1.474*((Pi - theta) + 1.222)) - 0.3/(1 + 1.08*(Pi - theta + Pi/3)^2) - 0.3/(1 + 1.08*(Pi - theta + Pi/4)^2) - 1.1/(1 + 1.08*(Pi - theta + Pi/12)^2) - 0.646/(1 + 1.08*(Pi - theta - Pi/6)^2) - 0.6/(1 + 1.08*(Pi - theta + Pi/2.5)^2) - 0.1/(1 + 1.08*(Pi - theta + Pi/2.2)^2), theta = Pi/2 .. (3*Pi)/2);

> polarplot([[4, theta = 0 .. 2], [2, theta = 0 .. 1]], numpoints = 20);
Error, (in plots:-polarplot) unexpected option
;
> f := piecewise(Pi/2 <= theta and theta <= (3*Pi)/2, 4 - 2*(2*((Pi - theta) + 0.1)/Pi)^3 - 1.3*exp(-1.474*((Pi - theta) + 1.222)) - 0.3/(1 + 1.08*(Pi - theta + Pi/3)^2) - 0.3/(1 + 1.08*(Pi - theta + Pi/4)^2) - 1.1/(1 + 1.08*(Pi - theta + Pi/12)^2) - 0.646/(1 + 1.08*(Pi - theta - Pi/6)^2) - 0.6/(1 + 1.08*(Pi - theta + Pi/2.5)^2) - 0.1/(1 + 1.08*(Pi - theta + Pi/2.2)^2), (-Pi)/2 <= theta and theta <= Pi/2, 4 - 2*(2*(theta + 0.1)/Pi)^3 - 1.3*exp(-1.474*(theta + 1.222)) - 0.3/(1 + 1.08*(theta + Pi/3)^2) - 0.3/(1 + 1.08*(theta + Pi/4)^2) - 1.1/(1 + 1.08*(theta + Pi/12)^2) - 0.646/(1 + 1.08*(theta - Pi/6)^2) - 0.6/(1 + 1.08*(theta + Pi/2.5)^2) - 0.1/(1 + 1.08*(theta + Pi/2.2)^2));
              /[                            3

              |[    16 (3.241592654 - theta) 

f := PIECEWISE|[4 - -------------------------

              |[                 3           

              |[               Pi            

              |[                             

              \[                             



   - 1.3 exp(-6.431935572 + 1.474 theta)



               0.3                        0.3           

   - ------------------------ - ------------------------

                            2                          2

              /4           \             /5           \ 

     1 + 1.08 |- Pi - theta|    1 + 1.08 |- Pi - theta| 

              \3           /             \4           / 



                1.1                       0.646          

   - ------------------------- - ------------------------

                             2                          2

              /13           \             /5           \ 

     1 + 1.08 |-- Pi - theta|    1 + 1.08 |- Pi - theta| 

              \12           /             \6           / 



                   0.6              

   - -------------------------------

                                   2

     1 + 1.08 (4.398229716 - theta) 



                   0.1                

   - -------------------------------, 

                                   2  

     1 + 1.08 (4.569589315 - theta)   



                                 ]  [                    3

  1                          3   ]  [    16 (theta + 0.1) 

  - Pi <= theta and theta <= - Pi], [4 - -----------------

  2                          2   ]  [             3       

                                 ]  [           Pi        

                                 ]  [                     

                                 ]  [                     



                                                  0.3           

   - 1.3 exp(-1.474 theta - 1.801228) - ------------------------

                                                               2

                                                 /        1   \ 

                                        1 + 1.08 |theta + - Pi| 

                                                 \        3   / 



               0.3                         1.1           

   - ------------------------ - -------------------------

                            2                           2

              /        1   \             /        1    \ 

     1 + 1.08 |theta + - Pi|    1 + 1.08 |theta + -- Pi| 

              \        4   /             \        12   / 



              0.646                           0.6              

   - ------------------------ - -------------------------------

                            2                                 2

              /        1   \    1 + 1.08 (theta + 1.256637062) 

     1 + 1.08 |theta - - Pi|                                   

              \        6   /                                   



                   0.1                

   - -------------------------------, 

                                   2  

     1 + 1.08 (theta + 1.427996661)   



                                   ]\

    1                          1   ]|

  - - Pi <= theta and theta <= - Pi]|

    2                          2   ]|

                                   ]|

                                   ]|

                                   ]/




;
> W := polarplot(f(theta), theta = -Pi/2 .. (3*Pi)/2, caption = "Happy Valentine's Day, Dr.Z!");

# 	
# 
> L := plots[textplot]([0, 1/2, typeset("Happy Valentine's Day!"), font = [TIMES, BOLD, 20]]);
> W1 := plots[textplot]([0, 0, typeset("4.669201609102990671853201\n 820466201617258185577\n 475768632745651343004\n 1343302113\n147371386897440\n2394801381716"), font = [TIMES, BOLD, 20]]);
> T := plot([50, -50], x = -1 .. 1, y = -1 .. 1, filled = true, color = black);



> plots:-display([W, L, W1]);

> NULL;
> NULL;