r - Character limit for ODE solver -
i'm trying solve odes in r.
currently i'm using package desolve, running problems there appears character limit on length of equations, error tells me there's unexpected symbol.
initially solved storing half of offending equation in vector combining... ideally not every equation.
does know way around character limit package, or of ode solver in r without character limit?
as requested, here equation causes error unexpected symbol:
dyx31 <- -c_2*yx14*(-6*c_6^2*y_0 + 4*c_6^2 - 12*c_6*y_0^2 + 4*c_6*y_0 + 4*c_6*yx16 + c_6 - 6*y_0^3)/(c_6^3 + 3*c_6^2*y_0 + 3*c_6*y_0^2 + y_0^3) + c_2*yx29*(-4*c_6^3*y_0 + 6*c_6^3 - 12*c_6^2*y_0^2 + 12*c_6^2*y_0 + 4*c_6^2 - 12*c_6*y_0^3 + 6*c_6*y_0^2 + 4*c_6*y_0 + 4*c_6*yx16 + c_6 - 4*y_0^4)/(c_6^4 + 4*c_6^3*y_0 + 6*c_6^2*y_0^2 + 4*c_6*y_0^3 + y_0^4) - c_2*yx4*(4*c_6*y_0 - 4*c_6*yx16 - c_6 + 4*y_0^2)/(c_6^2 + 2*c_6*y_0 + y_0^2) + yx16*(4*c_0*c_6^4 + 16*c_0*c_6^3*y_0 + 24*c_0*c_6^2*y_0^2 + 16*c_0*c_6*y_0^3 + 4*c_0*y_0^4 - 4*c_1*c_6^4*y_0 + 6*c_1*c_6^4 - 16*c_1*c_6^3*y_0^2 + 24*c_1*c_6^3*y_0 - 24*c_1*c_6^2*y_0^3 + 36*c_1*c_6^2*y_0^2 - 16*c_1*c_6*y_0^4 + 24*c_1*c_6*y_0^3 - 4*c_1*y_0^5 + 6*c_1*y_0^4 - 4*c_2*c_6^3*y_0*y_2 + 6*c_2*c_6^3*y_2 - 12*c_2*c_6^2*y_0^2*y_2 + 12*c_2*c_6^2*y_0*y_2 + 4*c_2*c_6^2*y_2 - 12*c_2*c_6*y_0^3*y_2 + 6*c_2*c_6*y_0^2*y_2 + 4*c_2*c_6*y_0*y_2 + 4*c_2*c_6*y_2*yx16 + c_2*c_6*y_2 - 4*c_2*y_0^4*y_2)/(c_6^4 + 4*c_6^3*y_0 + 6*c_6^2*y_0^2 + 4*c_6*y_0^3 + y_0^4) - yx31*(4*c_1*c_6^5 + 20*c_1*c_6^4*y_0 + 40*c_1*c_6^3*y_0^2 + 40*c_1*c_6^2*y_0^3 + 20*c_1*c_6*y_0^4 + 4*c_1*y_0^5 + 4*c_2*c_6^4*y_2 + 12*c_2*c_6^3*y_0*y_2 + 6*c_2*c_6^3*y_2 + 12*c_2*c_6^2*y_0^2*y_2 + 12*c_2*c_6^2*y_0*y_2 + 4*c_2*c_6^2*y_2 + 4*c_2*c_6*y_0^3*y_2 + 6*c_2*c_6*y_0^2*y_2 + 4*c_2*c_6*y_0*y_2 + 4*c_2*c_6*y_2*yx16 + c_2*c_6*y_2)/(c_6^5 + 5*c_6^4*y_0 + 10*c_6^3*y_0^2 + 10*c_6^2*y_0^3 + 5*c_6*y_0^4 + y_0^5) + yx6*(6*c_0*c_6^3 + 18*c_0*c_6^2*y_0 + 18*c_0*c_6*y_0^2 + 6*c_0*y_0^3 + 6*c_1*c_6^3*y_0 - 4*c_1*c_6^3 + 18*c_1*c_6^2*y_0^2 - 12*c_1*c_6^2*y_0 + 18*c_1*c_6*y_0^3 - 12*c_1*c_6*y_0^2 + 6*c_1*y_0^4 - 4*c_1*y_0^3 + 6*c_2*c_6^2*y_0*y_2 - 4*c_2*c_6^2*y_2 + 12*c_2*c_6*y_0^2*y_2 - 4*c_2*c_6*y_0*y_2 - 4*c_2*c_6*y_2*yx16 - c_2*c_6*y_2 + 6*c_2*y_0^3*y_2)/(c_6^3 + 3*c_6^2*y_0 + 3*c_6*y_0^2 + y_0^3) + (-4*c_0*c_6*yx16 + c_0*c_6 - 4*c_0*y_0*yx16 + c_0*y_0 + 4*c_1*c_6*y_0*yx16 + c_1*c_6*y_0 + 4*c_1*y_0^2*yx16 + c_1*y_0^2 + 4*c_2*y_0*y_2*yx16 + c_2*y_0*y_2)/(c_6 + y_0)
and here temporary solution problem
temp <- 4*c_2*c_6*y_0^2*y_2*yx31 + 4*c_2*c_6*y_0^2*yx16*yx29 + c_2*c_6*y_0^2*yx29 - 4*c_2*c_6*y_0*y_2*yx16*yx31 - c_2*c_6*y_0*y_2*yx31 + 4*c_2*c_6*y_2*yx6^3*(20*y_0^2 + 24*yx6) + 6*c_2*c_6*y_2*yx6^3*(20*y_0^2 + 24*yx6)/y_0 + 4*c_2*c_6*y_2*yx6^3*(20*y_0^2 + 24*yx6)/y_0^2 + 4*c_2*c_6*y_2*yx16*yx6^3*(20*y_0^2 + 24*yx6)/y_0^3 + c_2*c_6*y_2*yx6^3*(20*y_0^2 + 24*yx6)/y_0^3 + 6*c_2*y_0^6*y_2*yx6 + c_2*y_0^6*y_2 + 6*c_2*y_0^6*yx14 - 4*c_2*y_0^6*yx29 - 4*c_2*y_0^6*yx4 dyx31 <- (6*c_0*c_6^6*yx6 + c_0*c_6^6 + 36*c_0*c_6^5*y_0*yx6 + 6*c_0*c_6^5*y_0 + 90*c_0*c_6^4*y_0^2*yx6 + 15*c_0*c_6^4*y_0^2 + 120*c_0*c_6^3*y_0^3*yx6 + 20*c_0*c_6^3*y_0^3 + 90*c_0*c_6^2*y_0^4*yx6 + 15*c_0*c_6^2*y_0^4 + 36*c_0*c_6*y_0^5*yx6 + 6*c_0*c_6*y_0^5 + 6*c_0*y_0^6*yx6 + c_0*y_0^6 + 6*c_1*c_6^6*y_0*yx6 + c_1*c_6^6*y_0 + 6*c_1*c_6^6*yx16 - 4*c_1*c_6^6*yx31 - 4*c_1*c_6^6*yx6 + 36*c_1*c_6^5*y_0^2*yx6 + 6*c_1*c_6^5*y_0^2 + 36*c_1*c_6^5*y_0*yx16 - 24*c_1*c_6^5*y_0*yx31 - 24*c_1*c_6^5*y_0*yx6 + 90*c_1*c_6^4*y_0^3*yx6 + 15*c_1*c_6^4*y_0^3 + 90*c_1*c_6^4*y_0^2*yx16 - 60*c_1*c_6^4*y_0^2*yx31 - 60*c_1*c_6^4*y_0^2*yx6 + 120*c_1*c_6^3*y_0^4*yx6 + 20*c_1*c_6^3*y_0^4 + 120*c_1*c_6^3*y_0^3*yx16 - 80*c_1*c_6^3*y_0^3*yx31 - 80*c_1*c_6^3*y_0^3*yx6 + 90*c_1*c_6^2*y_0^5*yx6 + 15*c_1*c_6^2*y_0^5 + 90*c_1*c_6^2*y_0^4*yx16 - 60*c_1*c_6^2*y_0^4*yx31 - 60*c_1*c_6^2*y_0^4*yx6 + 36*c_1*c_6*y_0^6*yx6 + 6*c_1*c_6*y_0^6 + 36*c_1*c_6*y_0^5*yx16 - 24*c_1*c_6*y_0^5*yx31 - 24*c_1*c_6*y_0^5*yx6 + 6*c_1*y_0^7*yx6 + c_1*y_0^7 + 6*c_1*y_0^6*yx16 - 4*c_1*y_0^6*yx31 - 4*c_1*y_0^6*yx6 + 6*c_2*c_6^5*y_0*y_2*yx6 + c_2*c_6^5*y_0*y_2 + 6*c_2*c_6^5*y_0*yx14 - 4*c_2*c_6^5*y_0*yx29 - 4*c_2*c_6^5*y_0*yx4 + 6*c_2*c_6^5*y_2*yx16 - 4*c_2*c_6^5*y_2*yx31 - 4*c_2*c_6^5*y_2*yx6 - 4*c_2*c_6^5*yx14 + 4*c_2*c_6^5*yx16*yx4 + 6*c_2*c_6^5*yx29 + c_2*c_6^5*yx4 + 30*c_2*c_6^4*y_0^2*y_2*yx6 + 5*c_2*c_6^4*y_0^2*y_2 + 30*c_2*c_6^4*y_0^2*yx14 - 20*c_2*c_6^4*y_0^2*yx29 - 20*c_2*c_6^4*y_0^2*yx4 + 24*c_2*c_6^4*y_0*y_2*yx16 - 16*c_2*c_6^4*y_0*y_2*yx31 - 16*c_2*c_6^4*y_0*y_2*yx6 - 16*c_2*c_6^4*y_0*yx14 + 16*c_2*c_6^4*y_0*yx16*yx4 + 24*c_2*c_6^4*y_0*yx29 + 4*c_2*c_6^4*y_0*yx4 - 4*c_2*c_6^4*y_2*yx16*yx6 + 4*c_2*c_6^4*y_2*yx16 - 6*c_2*c_6^4*y_2*yx31 - c_2*c_6^4*y_2*yx6 - 4*c_2*c_6^4*yx14*yx16 - c_2*c_6^4*yx14 + 4*c_2*c_6^4*yx29 + 4*c_2*c_6^4*y_2*yx6^3*(20*y_0^2 + 24*yx6)/y_0^3 + 60*c_2*c_6^3*y_0^3*y_2*yx6 + 10*c_2*c_6^3*y_0^3*y_2 + 60*c_2*c_6^3*y_0^3*yx14 - 40*c_2*c_6^3*y_0^3*yx29 - 40*c_2*c_6^3*y_0^3*yx4 + 36*c_2*c_6^3*y_0^2*y_2*yx16 - 24*c_2*c_6^3*y_0^2*y_2*yx31 - 24*c_2*c_6^3*y_0^2*y_2*yx6 - 24*c_2*c_6^3*y_0^2*yx14 + 24*c_2*c_6^3*y_0^2*yx16*yx4 + 36*c_2*c_6^3*y_0^2*yx29 + 6*c_2*c_6^3*y_0^2*yx4 - 12*c_2*c_6^3*y_0*y_2*yx16*yx6 + 12*c_2*c_6^3*y_0*y_2*yx16 - 18*c_2*c_6^3*y_0*y_2*yx31 - 3*c_2*c_6^3*y_0*y_2*yx6 - 12*c_2*c_6^3*y_0*yx14*yx16 - 3*c_2*c_6^3*y_0*yx14 + 12*c_2*c_6^3*y_0*yx29 + 4*c_2*c_6^3*y_2*yx16^2 + c_2*c_6^3*y_2*yx16 - 4*c_2*c_6^3*y_2*yx31 + 4*c_2*c_6^3*yx16*yx29 + c_2*c_6^3*yx29 + 12*c_2*c_6^3*y_2*yx6^3*(20*y_0^2 + 24*yx6)/y_0^2 + 6*c_2*c_6^3*y_2*yx6^3*(20*y_0^2 + 24*yx6)/y_0^3 + 60*c_2*c_6^2*y_0^4*y_2*yx6 + 10*c_2*c_6^2*y_0^4*y_2 + 60*c_2*c_6^2*y_0^4*yx14 - 40*c_2*c_6^2*y_0^4*yx29 - 40*c_2*c_6^2*y_0^4*yx4 + 24*c_2*c_6^2*y_0^3*y_2*yx16 - 16*c_2*c_6^2*y_0^3*y_2*yx31- 16*c_2*c_6^2*y_0^3*y_2*yx6 - 16*c_2*c_6^2*y_0^3*yx14 + 16*c_2*c_6^2*y_0^3*yx16*yx4 + 24*c_2*c_6^2*y_0^3*yx29 + 4*c_2*c_6^2*y_0^3*yx4 - 12*c_2*c_6^2*y_0^2*y_2*yx16*yx6 + 12*c_2*c_6^2*y_0^2*y_2*yx16 - 18*c_2*c_6^2*y_0^2*y_2*yx31 - 3*c_2*c_6^2*y_0^2*y_2*yx6 - 12*c_2*c_6^2*y_0^2*yx14*yx16 - 3*c_2*c_6^2*y_0^2*yx14 + 12*c_2*c_6^2*y_0^2*yx29 + 8*c_2*c_6^2*y_0*y_2*yx16^2 + 2*c_2*c_6^2*y_0*y_2*yx16 - 8*c_2*c_6^2*y_0*y_2*yx31 + 8*c_2*c_6^2*y_0*yx16*yx29 + 2*c_2*c_6^2*y_0*yx29 - 4*c_2*c_6^2*y_2*yx16*yx31 - c_2*c_6^2*y_2*yx31 + 12*c_2*c_6^2*y_2*yx6^3*(20*y_0^2 + 24*yx6)/y_0 + 12*c_2*c_6^2*y_2*yx6^3*(20*y_0^2 + 24*yx6)/y_0^2 + 4*c_2*c_6^2*y_2*yx6^3*(20*y_0^2 + 24*yx6)/y_0^3 + 30*c_2*c_6*y_0^5*y_2*yx6 + 5*c_2*c_6*y_0^5*y_2 + 30*c_2*c_6*y_0^5*yx14 - 20*c_2*c_6*y_0^5*yx29 - 20*c_2*c_6*y_0^5*yx4 + 6*c_2*c_6*y_0^4*y_2*yx16 - 4*c_2*c_6*y_0^4*y_2*yx31 - 4*c_2*c_6*y_0^4*y_2*yx6 - 4*c_2*c_6*y_0^4*yx14 + 4*c_2*c_6*y_0^4*yx16*yx4 + 6*c_2*c_6*y_0^4*yx29 + c_2*c_6*y_0^4*yx4 - 4*c_2*c_6*y_0^3*y_2*yx16*yx6 + 4*c_2*c_6*y_0^3*y_2*yx16 - 6*c_2*c_6*y_0^3*y_2*yx31 - c_2*c_6*y_0^3*y_2*yx6 - 4*c_2*c_6*y_0^3*yx14*yx16 - c_2*c_6*y_0^3*yx14 + 4*c_2*c_6*y_0^3*yx29 + 4*c_2*c_6*y_0^2*y_2*yx16^2 + c_2*c_6*y_0^2*y_2*yx16 - temp)/(c_6^6 + 6*c_6^5*y_0 + 15*c_6^4*y_0^2 + 20*c_6^3*y_0^3 + 15*c_6^2*y_0^4 + 6*c_6*y_0^5 + y_0^6)
they longer , messier, avoid having repeatedly.
at moment i've resorted using program called cvode i'd able in r if possible.
Comments
Post a Comment