i1 : w = newForm("2*x_0*dx_0+x_1^2*dx_1")
2
o1 = 2x dx + x dx
0 0 1 1
o1 : DiffAlgForm
|
i2 : r = radial 2
o2 = x ax + x ax + x ax
0 0 1 1 2 2
o2 : DiffAlgField
|
i3 : homogenize w
2 2 3 2
o3 = 2x x dx + x x dx + (- x - 2x x )dx
0 2 0 1 2 1 1 0 2 2
o3 : DiffAlgForm
|
i4 : r_oo o4 = 0 o4 : DiffAlgForm |
i5 : homogenize newField ("ax_0+x_1*ax_2+a*ax_1")
o5 = x ax + a*x ax + x ax
3 0 3 1 1 2
o5 : DiffAlgField
|