F16.mw

>
 

> plot([`*`(`^`(x, 2)), sqrt(x)], x = 0 .. 1)
 

Plot_2d
 

> plots[polarplot](sin(`+`(`*`(3, `*`(t)))), t = 0 .. Pi)
 

Plot_2d
 

 

 

 

Polært inertimoment: 

 

> `+`(`*`(3, `*`(Int(Int(`*`(`^`(r, 3)), r = 0 .. `*`(a, `*`(sin(`+`(`*`(3, `*`(theta))))))), theta = 0 .. `+`(`*`(`/`(1, 3), `*`(Pi)))))))
 

`+`(`*`(3, `*`(Int(Int(`*`(`^`(r, 3)), r = 0 .. `*`(a, `*`(sin(`+`(`*`(3, `*`(theta))))))), theta = 0 .. `+`(`*`(`/`(1, 3), `*`(Pi))))))) (1)
 

> value(%)
 

`+`(`*`(`/`(3, 32), `*`(Pi, `*`(`^`(a, 4))))) (2)
 

>