|
From: Michel T. <ta...@lp...> - 2025-10-21 18:38:45
|
Maybe this can help you: (%i1) load(cgrind); (%i2) var:-((sqrt(m_piM^4+W^8*cost^2-W^8+4*P0^2*W^6)+((cost^2-1)*m_nuc^2+W^2*cost^2-W^2)*m_piM^4+sqrt(m_piM^2+P0^2)*(4*W^2*m_nuc*m_piM^2-4*W^2*m_nuc^3+4*W^4*m_nuc)+((2-2*cost^2)*m_nuc^4-4*W^2*cost^2*m_nuc^2-2*W^4*cost^2-2*W^4)*m_piM^2+(cost^2-1)*m_nuc^6+(W^2-W^2*cost^2)*m_nuc^4+(W^4-W^4*cost^2)*m_nuc^2+W^6*cost^2-W^6)/((cost^2-1)*m_piM^4+((2-2*cost^2)*m_nuc^2-2*W^2*cost^2-2*W^2)*m_piM^2+(cost^2-1)*m_nuc^4+(2*W^2-2*W^2*cost^2)*m_nuc^2+W^4*cost^2-W^4)); (%i3) cgrind(var); -((sqrt(pow(m_piM,4)+pow(W,8)*pow(cost,2)-pow(W,8)+4*pow(P0,2)*pow(W,6)) +((pow(cost,2)-1)*pow(m_nuc,2)+pow(W,2)*pow(cost,2)-pow(W,2))*pow(m_piM,4) +sqrt(pow(m_piM,2)+pow(P0,2))*(4*pow(W,2)*m_nuc*pow(m_piM,2) -4*pow(W,2)*pow(m_nuc,3)+4*pow(W,4)*m_nuc) +((2-2*pow(cost,2))*pow(m_nuc,4)-4*pow(W,2)*pow(cost,2)*pow(m_nuc,2) -2*pow(W,4)*pow(cost,2)-2*pow(W,4)) *pow(m_piM,2)+(pow(cost,2)-1)*pow(m_nuc,6) +(pow(W,2)-pow(W,2)*pow(cost,2))*pow(m_nuc,4) +(pow(W,4)-pow(W,4)*pow(cost,2))*pow(m_nuc,2)+pow(W,6)*pow(cost,2)-pow(W,6)) /((pow(cost,2)-1)*pow(m_piM,4)+((2-2*pow(cost,2))*pow(m_nuc,2) -2*pow(W,2)*pow(cost,2)-2*pow(W,2)) *pow(m_piM,2)+(pow(cost,2)-1)*pow(m_nuc,4) +(2*pow(W,2)-2*pow(W,2)*pow(cost,2)) *pow(m_nuc,2)+pow(W,4)*pow(cost,2)-pow(W,4))); (%o3) done Of course, contrary to gentran, cgrind will not translate maxima programs, only formulas. Le 21/10/2025 à 14:24, Ivan via Maxima-discuss a écrit : > Hi all, > > I cannot convert a long enough expression into C code with gentran. Is > it bug or I'm missing something? -- Michel Talon |