User Portlet
| Discussions |
|---|
| Thank you, for the answer. WithFullForm[w[1]] Out[44]:= Times[-1,Cos[Subscript[\[Phi],1][t]]\[IndentingNewLine],Subscript[l,1],TextCell[""]]i found an invisible Textcell. I deleted it. Now it works. I dont know where it comes from,... |
| I want to programm a N-Pendulum(the Idea comes from the Doublependulum). And i have the following Problem: [mcode]v[q_]:=Sum[Subscript[l, n]Sin[Subscript[\[Phi], n][t]],{n,1,q,1}] w[q_]:=Sum[-Subscript[l, n]Cos[Subscript[\[Phi], n][t]],{n,1,q,1}] ... |