SHOW:
|
|
- or go back to the newest paste.
| 1 | "12X^3+piX^(1/2)+5.6X^7.89->Str1 | |
| 2 | 0->dim(L2 | |
| 3 | 0->dim(L1 | |
| 4 | 0->dim(L3 | |
| 5 | 0->dim(L4 | |
| 6 | Str1+"+->Str1 | |
| 7 | 1->A | |
| 8 | 1->B | |
| 9 | Repeat B=length(Str1 | |
| 10 | - | For(P,1,3 |
| 10 | + | |
| 11 | inString(Str1,sub("^+",T,1),B->B
| |
| 12 | Pause Expr(sub(Str1,A,B-A-(T=1) | |
| 13 | ||
| 14 | If T=1 | |
| 15 | - | //This would be solving the derivative |
| 15 | + | Ans->Z |
| 16 | - | For(P,1,3 |
| 16 | + | |
| 17 | Then | |
| 18 | Ans-1->L3(1+dim(L3 | |
| 19 | - | Ans-1->L4(1+dim(L4 |
| 19 | + | (Ans+1)Z->L4(1+dim(L4 |
| 20 | End | |
| 21 | DelVar P | |
| 22 | End | |
| 23 | - | X+1->X |
| 23 | + | |
| 24 | - | Ans*L4(X)->L3(1+dim(L3 |
| 24 | + | |
| 25 | {0,1->L1
| |
| 26 | While L1(1) | |
| 27 | CAns+E->L2 | |
| 28 | LinReg(ax+b) {Y1}
| |
| 29 | Equ>String({Y1},Str2
| |
| 30 | Str3+Str2->Str3 | |
| 31 | B+1->A | |
| 32 | ||
| 33 | End | |
| 34 | ||
| 35 |
