# User Portlet

Discussions |
---|

I am trying to find a numerical solutions to a DE system with a following code: n = 4; variables = Table[ToExpression["\[CurlyPhi]" ToString[i]], {i, 1, n}]; equations = {399999.99999999994` \[CurlyPhi]1[t] + 1/6... |

I was notified, that I attached a wrong file. :) That is true. the attached file was wrong. |

That works! Thank you! But I wonder why it only works for small value of n? If n=5000, than this doesn't work anymore. |

Works really nice! Thank you! |

Could you PLEASE publish that code where you disentangled all /.? Because the thing is, this is not my code and it is basically impossible for me to understand it - my knowledge of Mathematica is far below that. I simply copied it from the link I... |

Ok, I have found the problem... It's if sentence... If you replace StandardForm["Opening"] with 0, everything works. |

Ok, so I have 25 rods. Each rod with different lengths defined in a table chordlength={295.21, 295.21, 294.755, 293.27, 291.085, 288.395, 284.575, 279.89, 275.225, 269.995, 263.84, 256.695, 247.85, 238.06, 228.83, 219.175, ... |

I found this code online bezier[pts_List] := With[{n = Length[pts] - 1}, Evaluate@ Sum[Binomial[n, i] (1 - #)^(n - i) #^i pts[[i + 1]], {i, 0, n}] &] And than yfn[pts_] := Piecewise[ Function[pp, ... |

That was even more embarrassing that I thought it was going to be. -.- Thank you! |

Yes, I thought about it too, but the problem is that I am afraid that the physical interpretation is completely wrong if I calculate the surface under the curve. Because whatever function (or curve) I will choose, will actually be force in terms... |