Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- In[1]:= Needs["SymbolicC`"]
- n = 4;
- Inverse[Table[x[i*n + j], {i, 0, n - 1}, {j, 0, n - 1}]];
- % /. Power[x_, 2] :> HoldForm[x * x];
- MapIndexed[
- ToCCodeString[
- CAssign[CArray[y, First[#2] - 1], ToString[CForm[#1]]]] &,
- Flatten[%]]
- Out[5]= {"y[0] = (-(x(7)*x(10)*x(13)) + x(6)*x(11)*x(13) + \
- x(7)*x(9)*x(14) - x(5)*x(11)*x(14) - x(6)*x(9)*x(15) + \
- x(5)*x(10)*x(15))/(x(3)*x(6)*x(9)*x(12) - x(2)*x(7)*x(9)*x(12) - \
- x(3)*x(5)*x(10)*x(12) + x(1)*x(7)*x(10)*x(12) + x(2)*x(5)*x(11)*x(12) \
- - x(1)*x(6)*x(11)*x(12) - x(3)*x(6)*x(8)*x(13) + x(2)*x(7)*x(8)*x(13) \
- + x(3)*x(4)*x(10)*x(13) - x(0)*x(7)*x(10)*x(13) - \
- x(2)*x(4)*x(11)*x(13) + x(0)*x(6)*x(11)*x(13) + x(3)*x(5)*x(8)*x(14) \
- - x(1)*x(7)*x(8)*x(14) - x(3)*x(4)*x(9)*x(14) + x(0)*x(7)*x(9)*x(14) \
- + x(1)*x(4)*x(11)*x(14) - x(0)*x(5)*x(11)*x(14) - \
- x(2)*x(5)*x(8)*x(15) + x(1)*x(6)*x(8)*x(15) + x(2)*x(4)*x(9)*x(15) - \
- x(0)*x(6)*x(9)*x(15) - x(1)*x(4)*x(10)*x(15) + \
- x(0)*x(5)*x(10)*x(15))", "y[1] = (x(3)*x(10)*x(13) - x(2)*x(11)*x(13) \
- - x(3)*x(9)*x(14) + x(1)*x(11)*x(14) + x(2)*x(9)*x(15) - \
- x(1)*x(10)*x(15))/(x(3)*x(6)*x(9)*x(12) - x(2)*x(7)*x(9)*x(12) - \
- x(3)*x(5)*x(10)*x(12) + x(1)*x(7)*x(10)*x(12) + x(2)*x(5)*x(11)*x(12) \
- - x(1)*x(6)*x(11)*x(12) - x(3)*x(6)*x(8)*x(13) + x(2)*x(7)*x(8)*x(13) \
- + x(3)*x(4)*x(10)*x(13) - x(0)*x(7)*x(10)*x(13) - \
- x(2)*x(4)*x(11)*x(13) + x(0)*x(6)*x(11)*x(13) + x(3)*x(5)*x(8)*x(14) \
- - x(1)*x(7)*x(8)*x(14) - x(3)*x(4)*x(9)*x(14) + x(0)*x(7)*x(9)*x(14) \
- + x(1)*x(4)*x(11)*x(14) - x(0)*x(5)*x(11)*x(14) - \
- x(2)*x(5)*x(8)*x(15) + x(1)*x(6)*x(8)*x(15) + x(2)*x(4)*x(9)*x(15) - \
- x(0)*x(6)*x(9)*x(15) - x(1)*x(4)*x(10)*x(15) + \
- x(0)*x(5)*x(10)*x(15))", "y[2] = (-(x(3)*x(6)*x(13)) + \
- x(2)*x(7)*x(13) + x(3)*x(5)*x(14) - x(1)*x(7)*x(14) - x(2)*x(5)*x(15) \
- + x(1)*x(6)*x(15))/(x(3)*x(6)*x(9)*x(12) - x(2)*x(7)*x(9)*x(12) - \
- x(3)*x(5)*x(10)*x(12) + x(1)*x(7)*x(10)*x(12) + x(2)*x(5)*x(11)*x(12) \
- - x(1)*x(6)*x(11)*x(12) - x(3)*x(6)*x(8)*x(13) + x(2)*x(7)*x(8)*x(13) \
- + x(3)*x(4)*x(10)*x(13) - x(0)*x(7)*x(10)*x(13) - \
- x(2)*x(4)*x(11)*x(13) + x(0)*x(6)*x(11)*x(13) + x(3)*x(5)*x(8)*x(14) \
- - x(1)*x(7)*x(8)*x(14) - x(3)*x(4)*x(9)*x(14) + x(0)*x(7)*x(9)*x(14) \
- + x(1)*x(4)*x(11)*x(14) - x(0)*x(5)*x(11)*x(14) - \
- x(2)*x(5)*x(8)*x(15) + x(1)*x(6)*x(8)*x(15) + x(2)*x(4)*x(9)*x(15) - \
- x(0)*x(6)*x(9)*x(15) - x(1)*x(4)*x(10)*x(15) + \
- x(0)*x(5)*x(10)*x(15))", "y[3] = (x(3)*x(6)*x(9) - x(2)*x(7)*x(9) - \
- x(3)*x(5)*x(10) + x(1)*x(7)*x(10) + x(2)*x(5)*x(11) - \
- x(1)*x(6)*x(11))/(x(3)*x(6)*x(9)*x(12) - x(2)*x(7)*x(9)*x(12) - \
- x(3)*x(5)*x(10)*x(12) + x(1)*x(7)*x(10)*x(12) + x(2)*x(5)*x(11)*x(12) \
- - x(1)*x(6)*x(11)*x(12) - x(3)*x(6)*x(8)*x(13) + x(2)*x(7)*x(8)*x(13) \
- + x(3)*x(4)*x(10)*x(13) - x(0)*x(7)*x(10)*x(13) - \
- x(2)*x(4)*x(11)*x(13) + x(0)*x(6)*x(11)*x(13) + x(3)*x(5)*x(8)*x(14) \
- - x(1)*x(7)*x(8)*x(14) - x(3)*x(4)*x(9)*x(14) + x(0)*x(7)*x(9)*x(14) \
- + x(1)*x(4)*x(11)*x(14) - x(0)*x(5)*x(11)*x(14) - \
- x(2)*x(5)*x(8)*x(15) + x(1)*x(6)*x(8)*x(15) + x(2)*x(4)*x(9)*x(15) - \
- x(0)*x(6)*x(9)*x(15) - x(1)*x(4)*x(10)*x(15) + \
- x(0)*x(5)*x(10)*x(15))", "y[4] = (x(7)*x(10)*x(12) - x(6)*x(11)*x(12) \
- - x(7)*x(8)*x(14) + x(4)*x(11)*x(14) + x(6)*x(8)*x(15) - \
- x(4)*x(10)*x(15))/(x(3)*x(6)*x(9)*x(12) - x(2)*x(7)*x(9)*x(12) - \
- x(3)*x(5)*x(10)*x(12) + x(1)*x(7)*x(10)*x(12) + x(2)*x(5)*x(11)*x(12) \
- - x(1)*x(6)*x(11)*x(12) - x(3)*x(6)*x(8)*x(13) + x(2)*x(7)*x(8)*x(13) \
- + x(3)*x(4)*x(10)*x(13) - x(0)*x(7)*x(10)*x(13) - \
- x(2)*x(4)*x(11)*x(13) + x(0)*x(6)*x(11)*x(13) + x(3)*x(5)*x(8)*x(14) \
- - x(1)*x(7)*x(8)*x(14) - x(3)*x(4)*x(9)*x(14) + x(0)*x(7)*x(9)*x(14) \
- + x(1)*x(4)*x(11)*x(14) - x(0)*x(5)*x(11)*x(14) - \
- x(2)*x(5)*x(8)*x(15) + x(1)*x(6)*x(8)*x(15) + x(2)*x(4)*x(9)*x(15) - \
- x(0)*x(6)*x(9)*x(15) - x(1)*x(4)*x(10)*x(15) + \
- x(0)*x(5)*x(10)*x(15))", "y[5] = (-(x(3)*x(10)*x(12)) + \
- x(2)*x(11)*x(12) + x(3)*x(8)*x(14) - x(0)*x(11)*x(14) - \
- x(2)*x(8)*x(15) + x(0)*x(10)*x(15))/(x(3)*x(6)*x(9)*x(12) - \
- x(2)*x(7)*x(9)*x(12) - x(3)*x(5)*x(10)*x(12) + x(1)*x(7)*x(10)*x(12) \
- + x(2)*x(5)*x(11)*x(12) - x(1)*x(6)*x(11)*x(12) - \
- x(3)*x(6)*x(8)*x(13) + x(2)*x(7)*x(8)*x(13) + x(3)*x(4)*x(10)*x(13) - \
- x(0)*x(7)*x(10)*x(13) - x(2)*x(4)*x(11)*x(13) + x(0)*x(6)*x(11)*x(13) \
- + x(3)*x(5)*x(8)*x(14) - x(1)*x(7)*x(8)*x(14) - x(3)*x(4)*x(9)*x(14) \
- + x(0)*x(7)*x(9)*x(14) + x(1)*x(4)*x(11)*x(14) - \
- x(0)*x(5)*x(11)*x(14) - x(2)*x(5)*x(8)*x(15) + x(1)*x(6)*x(8)*x(15) + \
- x(2)*x(4)*x(9)*x(15) - x(0)*x(6)*x(9)*x(15) - x(1)*x(4)*x(10)*x(15) + \
- x(0)*x(5)*x(10)*x(15))", "y[6] = (x(3)*x(6)*x(12) - x(2)*x(7)*x(12) - \
- x(3)*x(4)*x(14) + x(0)*x(7)*x(14) + x(2)*x(4)*x(15) - \
- x(0)*x(6)*x(15))/(x(3)*x(6)*x(9)*x(12) - x(2)*x(7)*x(9)*x(12) - \
- x(3)*x(5)*x(10)*x(12) + x(1)*x(7)*x(10)*x(12) + x(2)*x(5)*x(11)*x(12) \
- - x(1)*x(6)*x(11)*x(12) - x(3)*x(6)*x(8)*x(13) + x(2)*x(7)*x(8)*x(13) \
- + x(3)*x(4)*x(10)*x(13) - x(0)*x(7)*x(10)*x(13) - \
- x(2)*x(4)*x(11)*x(13) + x(0)*x(6)*x(11)*x(13) + x(3)*x(5)*x(8)*x(14) \
- - x(1)*x(7)*x(8)*x(14) - x(3)*x(4)*x(9)*x(14) + x(0)*x(7)*x(9)*x(14) \
- + x(1)*x(4)*x(11)*x(14) - x(0)*x(5)*x(11)*x(14) - \
- x(2)*x(5)*x(8)*x(15) + x(1)*x(6)*x(8)*x(15) + x(2)*x(4)*x(9)*x(15) - \
- x(0)*x(6)*x(9)*x(15) - x(1)*x(4)*x(10)*x(15) + \
- x(0)*x(5)*x(10)*x(15))", "y[7] = (-(x(3)*x(6)*x(8)) + x(2)*x(7)*x(8) \
- + x(3)*x(4)*x(10) - x(0)*x(7)*x(10) - x(2)*x(4)*x(11) + \
- x(0)*x(6)*x(11))/(x(3)*x(6)*x(9)*x(12) - x(2)*x(7)*x(9)*x(12) - \
- x(3)*x(5)*x(10)*x(12) + x(1)*x(7)*x(10)*x(12) + x(2)*x(5)*x(11)*x(12) \
- - x(1)*x(6)*x(11)*x(12) - x(3)*x(6)*x(8)*x(13) + x(2)*x(7)*x(8)*x(13) \
- + x(3)*x(4)*x(10)*x(13) - x(0)*x(7)*x(10)*x(13) - \
- x(2)*x(4)*x(11)*x(13) + x(0)*x(6)*x(11)*x(13) + x(3)*x(5)*x(8)*x(14) \
- - x(1)*x(7)*x(8)*x(14) - x(3)*x(4)*x(9)*x(14) + x(0)*x(7)*x(9)*x(14) \
- + x(1)*x(4)*x(11)*x(14) - x(0)*x(5)*x(11)*x(14) - \
- x(2)*x(5)*x(8)*x(15) + x(1)*x(6)*x(8)*x(15) + x(2)*x(4)*x(9)*x(15) - \
- x(0)*x(6)*x(9)*x(15) - x(1)*x(4)*x(10)*x(15) + \
- x(0)*x(5)*x(10)*x(15))", "y[8] = (-(x(7)*x(9)*x(12)) + \
- x(5)*x(11)*x(12) + x(7)*x(8)*x(13) - x(4)*x(11)*x(13) - \
- x(5)*x(8)*x(15) + x(4)*x(9)*x(15))/(x(3)*x(6)*x(9)*x(12) - \
- x(2)*x(7)*x(9)*x(12) - x(3)*x(5)*x(10)*x(12) + x(1)*x(7)*x(10)*x(12) \
- + x(2)*x(5)*x(11)*x(12) - x(1)*x(6)*x(11)*x(12) - \
- x(3)*x(6)*x(8)*x(13) + x(2)*x(7)*x(8)*x(13) + x(3)*x(4)*x(10)*x(13) - \
- x(0)*x(7)*x(10)*x(13) - x(2)*x(4)*x(11)*x(13) + x(0)*x(6)*x(11)*x(13) \
- + x(3)*x(5)*x(8)*x(14) - x(1)*x(7)*x(8)*x(14) - x(3)*x(4)*x(9)*x(14) \
- + x(0)*x(7)*x(9)*x(14) + x(1)*x(4)*x(11)*x(14) - \
- x(0)*x(5)*x(11)*x(14) - x(2)*x(5)*x(8)*x(15) + x(1)*x(6)*x(8)*x(15) + \
- x(2)*x(4)*x(9)*x(15) - x(0)*x(6)*x(9)*x(15) - x(1)*x(4)*x(10)*x(15) + \
- x(0)*x(5)*x(10)*x(15))", "y[9] = (x(3)*x(9)*x(12) - x(1)*x(11)*x(12) \
- - x(3)*x(8)*x(13) + x(0)*x(11)*x(13) + x(1)*x(8)*x(15) - \
- x(0)*x(9)*x(15))/(x(3)*x(6)*x(9)*x(12) - x(2)*x(7)*x(9)*x(12) - \
- x(3)*x(5)*x(10)*x(12) + x(1)*x(7)*x(10)*x(12) + x(2)*x(5)*x(11)*x(12) \
- - x(1)*x(6)*x(11)*x(12) - x(3)*x(6)*x(8)*x(13) + x(2)*x(7)*x(8)*x(13) \
- + x(3)*x(4)*x(10)*x(13) - x(0)*x(7)*x(10)*x(13) - \
- x(2)*x(4)*x(11)*x(13) + x(0)*x(6)*x(11)*x(13) + x(3)*x(5)*x(8)*x(14) \
- - x(1)*x(7)*x(8)*x(14) - x(3)*x(4)*x(9)*x(14) + x(0)*x(7)*x(9)*x(14) \
- + x(1)*x(4)*x(11)*x(14) - x(0)*x(5)*x(11)*x(14) - \
- x(2)*x(5)*x(8)*x(15) + x(1)*x(6)*x(8)*x(15) + x(2)*x(4)*x(9)*x(15) - \
- x(0)*x(6)*x(9)*x(15) - x(1)*x(4)*x(10)*x(15) + \
- x(0)*x(5)*x(10)*x(15))", "y[10] = (-(x(3)*x(5)*x(12)) + \
- x(1)*x(7)*x(12) + x(3)*x(4)*x(13) - x(0)*x(7)*x(13) - x(1)*x(4)*x(15) \
- + x(0)*x(5)*x(15))/(x(3)*x(6)*x(9)*x(12) - x(2)*x(7)*x(9)*x(12) - \
- x(3)*x(5)*x(10)*x(12) + x(1)*x(7)*x(10)*x(12) + x(2)*x(5)*x(11)*x(12) \
- - x(1)*x(6)*x(11)*x(12) - x(3)*x(6)*x(8)*x(13) + x(2)*x(7)*x(8)*x(13) \
- + x(3)*x(4)*x(10)*x(13) - x(0)*x(7)*x(10)*x(13) - \
- x(2)*x(4)*x(11)*x(13) + x(0)*x(6)*x(11)*x(13) + x(3)*x(5)*x(8)*x(14) \
- - x(1)*x(7)*x(8)*x(14) - x(3)*x(4)*x(9)*x(14) + x(0)*x(7)*x(9)*x(14) \
- + x(1)*x(4)*x(11)*x(14) - x(0)*x(5)*x(11)*x(14) - \
- x(2)*x(5)*x(8)*x(15) + x(1)*x(6)*x(8)*x(15) + x(2)*x(4)*x(9)*x(15) - \
- x(0)*x(6)*x(9)*x(15) - x(1)*x(4)*x(10)*x(15) + \
- x(0)*x(5)*x(10)*x(15))", "y[11] = (x(3)*x(5)*x(8) - x(1)*x(7)*x(8) - \
- x(3)*x(4)*x(9) + x(0)*x(7)*x(9) + x(1)*x(4)*x(11) - \
- x(0)*x(5)*x(11))/(x(3)*x(6)*x(9)*x(12) - x(2)*x(7)*x(9)*x(12) - \
- x(3)*x(5)*x(10)*x(12) + x(1)*x(7)*x(10)*x(12) + x(2)*x(5)*x(11)*x(12) \
- - x(1)*x(6)*x(11)*x(12) - x(3)*x(6)*x(8)*x(13) + x(2)*x(7)*x(8)*x(13) \
- + x(3)*x(4)*x(10)*x(13) - x(0)*x(7)*x(10)*x(13) - \
- x(2)*x(4)*x(11)*x(13) + x(0)*x(6)*x(11)*x(13) + x(3)*x(5)*x(8)*x(14) \
- - x(1)*x(7)*x(8)*x(14) - x(3)*x(4)*x(9)*x(14) + x(0)*x(7)*x(9)*x(14) \
- + x(1)*x(4)*x(11)*x(14) - x(0)*x(5)*x(11)*x(14) - \
- x(2)*x(5)*x(8)*x(15) + x(1)*x(6)*x(8)*x(15) + x(2)*x(4)*x(9)*x(15) - \
- x(0)*x(6)*x(9)*x(15) - x(1)*x(4)*x(10)*x(15) + \
- x(0)*x(5)*x(10)*x(15))", "y[12] = (x(6)*x(9)*x(12) - x(5)*x(10)*x(12) \
- - x(6)*x(8)*x(13) + x(4)*x(10)*x(13) + x(5)*x(8)*x(14) - \
- x(4)*x(9)*x(14))/(x(3)*x(6)*x(9)*x(12) - x(2)*x(7)*x(9)*x(12) - \
- x(3)*x(5)*x(10)*x(12) + x(1)*x(7)*x(10)*x(12) + x(2)*x(5)*x(11)*x(12) \
- - x(1)*x(6)*x(11)*x(12) - x(3)*x(6)*x(8)*x(13) + x(2)*x(7)*x(8)*x(13) \
- + x(3)*x(4)*x(10)*x(13) - x(0)*x(7)*x(10)*x(13) - \
- x(2)*x(4)*x(11)*x(13) + x(0)*x(6)*x(11)*x(13) + x(3)*x(5)*x(8)*x(14) \
- - x(1)*x(7)*x(8)*x(14) - x(3)*x(4)*x(9)*x(14) + x(0)*x(7)*x(9)*x(14) \
- + x(1)*x(4)*x(11)*x(14) - x(0)*x(5)*x(11)*x(14) - \
- x(2)*x(5)*x(8)*x(15) + x(1)*x(6)*x(8)*x(15) + x(2)*x(4)*x(9)*x(15) - \
- x(0)*x(6)*x(9)*x(15) - x(1)*x(4)*x(10)*x(15) + \
- x(0)*x(5)*x(10)*x(15))", "y[13] = (-(x(2)*x(9)*x(12)) + \
- x(1)*x(10)*x(12) + x(2)*x(8)*x(13) - x(0)*x(10)*x(13) - \
- x(1)*x(8)*x(14) + x(0)*x(9)*x(14))/(x(3)*x(6)*x(9)*x(12) - \
- x(2)*x(7)*x(9)*x(12) - x(3)*x(5)*x(10)*x(12) + x(1)*x(7)*x(10)*x(12) \
- + x(2)*x(5)*x(11)*x(12) - x(1)*x(6)*x(11)*x(12) - \
- x(3)*x(6)*x(8)*x(13) + x(2)*x(7)*x(8)*x(13) + x(3)*x(4)*x(10)*x(13) - \
- x(0)*x(7)*x(10)*x(13) - x(2)*x(4)*x(11)*x(13) + x(0)*x(6)*x(11)*x(13) \
- + x(3)*x(5)*x(8)*x(14) - x(1)*x(7)*x(8)*x(14) - x(3)*x(4)*x(9)*x(14) \
- + x(0)*x(7)*x(9)*x(14) + x(1)*x(4)*x(11)*x(14) - \
- x(0)*x(5)*x(11)*x(14) - x(2)*x(5)*x(8)*x(15) + x(1)*x(6)*x(8)*x(15) + \
- x(2)*x(4)*x(9)*x(15) - x(0)*x(6)*x(9)*x(15) - x(1)*x(4)*x(10)*x(15) + \
- x(0)*x(5)*x(10)*x(15))", "y[14] = (x(2)*x(5)*x(12) - x(1)*x(6)*x(12) \
- - x(2)*x(4)*x(13) + x(0)*x(6)*x(13) + x(1)*x(4)*x(14) - \
- x(0)*x(5)*x(14))/(x(3)*x(6)*x(9)*x(12) - x(2)*x(7)*x(9)*x(12) - \
- x(3)*x(5)*x(10)*x(12) + x(1)*x(7)*x(10)*x(12) + x(2)*x(5)*x(11)*x(12) \
- - x(1)*x(6)*x(11)*x(12) - x(3)*x(6)*x(8)*x(13) + x(2)*x(7)*x(8)*x(13) \
- + x(3)*x(4)*x(10)*x(13) - x(0)*x(7)*x(10)*x(13) - \
- x(2)*x(4)*x(11)*x(13) + x(0)*x(6)*x(11)*x(13) + x(3)*x(5)*x(8)*x(14) \
- - x(1)*x(7)*x(8)*x(14) - x(3)*x(4)*x(9)*x(14) + x(0)*x(7)*x(9)*x(14) \
- + x(1)*x(4)*x(11)*x(14) - x(0)*x(5)*x(11)*x(14) - \
- x(2)*x(5)*x(8)*x(15) + x(1)*x(6)*x(8)*x(15) + x(2)*x(4)*x(9)*x(15) - \
- x(0)*x(6)*x(9)*x(15) - x(1)*x(4)*x(10)*x(15) + \
- x(0)*x(5)*x(10)*x(15))", "y[15] = (-(x(2)*x(5)*x(8)) + x(1)*x(6)*x(8) \
- + x(2)*x(4)*x(9) - x(0)*x(6)*x(9) - x(1)*x(4)*x(10) + \
- x(0)*x(5)*x(10))/(x(3)*x(6)*x(9)*x(12) - x(2)*x(7)*x(9)*x(12) - \
- x(3)*x(5)*x(10)*x(12) + x(1)*x(7)*x(10)*x(12) + x(2)*x(5)*x(11)*x(12) \
- - x(1)*x(6)*x(11)*x(12) - x(3)*x(6)*x(8)*x(13) + x(2)*x(7)*x(8)*x(13) \
- + x(3)*x(4)*x(10)*x(13) - x(0)*x(7)*x(10)*x(13) - \
- x(2)*x(4)*x(11)*x(13) + x(0)*x(6)*x(11)*x(13) + x(3)*x(5)*x(8)*x(14) \
- - x(1)*x(7)*x(8)*x(14) - x(3)*x(4)*x(9)*x(14) + x(0)*x(7)*x(9)*x(14) \
- + x(1)*x(4)*x(11)*x(14) - x(0)*x(5)*x(11)*x(14) - \
- x(2)*x(5)*x(8)*x(15) + x(1)*x(6)*x(8)*x(15) + x(2)*x(4)*x(9)*x(15) - \
- x(0)*x(6)*x(9)*x(15) - x(1)*x(4)*x(10)*x(15) + \
- x(0)*x(5)*x(10)*x(15))"}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement