Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- r0 = L;
- Nu = 50;
- l = 4;
- phi = Pi L^2/(l r0 Nu Sin[t]);
- X1 = r0 Sin[phi/2];
- X0 = -r0 Sin[phi/2];
- Y0 = r0 Cos[phi/2];
- Y1 = Y0;
- X = (Tan[phi/2 + t] X1 + Tan[phi/2] X0 + Y1 -
- Y0) (Tan[phi/2 + t] + Tan[phi/2])^(-1);
- NDSolve[X0 + l Cos[phi/2 - t]/2 - X == 0, t[L], {L, 30, 70}]
Add Comment
Please, Sign In to add comment
