Question: assigning values

I have these as outputs from comparing the coefficients. How do i assign the g2xyz totheir associated numbers.


eg at present g2000 is g2000. I need it to be 1.2e7. And so on down the list.

`EquateΘ2g2` := zip(`=`, [coeffs(Theta2-D1[7], [c[1], c[2], c[3]], 't')], [seq(0, i = 1 .. nops([t]))])

[12000000.+g[2000] = 0, g[2004] = 0, g[2111]+199597671.3 = 0, 200000000.+g[2001] = 0, 0.5553034405e17+g[2010] = 0, 13000000.+g[2100] = 0, g[2110]-0.6260940532e18 = 0, -0.6240056800e19+g[2011] = 0, g[2101] = 0, -20000000.+g[2200] = 0, 240000000.+g[2020] = 0, 30000000.+g[2002] = 0, 80000000.+g[2022] = 0, g[2120]+2130000000. = 0, 0.5553034515e17+g[2210] = 0, -50000000.+g[2102] = 0, -41591854.62+g[2201] = 0, 0.5553034254e17+g[2012] = 0, g[2021]+200000000. = 0, -118713742.3+g[2112] = 0, g[2121]-4380151.230 = 0, -8213856.416+g[2211] = 0, g[2003]-121000000. = 0, 89000000. = 0, g[2030]+0.5553034324e17 = 0, 1000000.+g[2300] = 0, -0.5000000000e-4+g[2202] = 0, g[2220]-114000000. = 0, g[2310]+110000000. = 0, -0.1293505415e-3+g[2301] = 0, -0.9200000000e-3+g[2103] = 0, -240000000.+g[2130] = 0, g[2013]+24502256.60 = 0, g[2031]+6542420.460 = 0]

(1)

NULL

``

``


Download Assign_values_to_com.mw

I have these as outputs from comparing the coefficients

Please Wait...