Error deqn using NDSolve?

Questions
, ,
1

I used NDSolve[] , and get error

NDSolve::deqn Equation or list of equations expected instead of True in the first argument

but its useless to add Clear[derivative].
My code is a little long. I attached the notebook file. Thank you very much.

yiduan.nb (120 KB)

2

I executed “cpinit” in NDSolve give me :

cpinit
(*{rs0x[True], rs0y[True], rs0z[True]...*)

It’s seems is not a initial coditions ?

3

I corrected the code about adding an initial condition, but still get the error.
Thanks for your reply.

yiduan.nb (123 KB)

4

For first error I have no time to check for all code.
For second error:

“This message is generated when corresponding lists or sublists on opposite sides of an equation do not have the same length.An error occurs because the list on the right side of this assignment does not have the same length
as the list on the left side of the assignment”

for example:

   {var1, var2, var3} = {1, 2, 3, 4}
   {var1, var2, var3} = {1, 2, 3} (*The correct code*)
5

For second error:
I want to save the result of NDSolve[] to slider.
I think when the first error is solved. The second error will be solved automatically.