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 | |
| 11 | For(T,1,2 | |
| 12 | inString(Str1,sub("^+",T,1),B->B
| |
| 13 | Pause Expr(sub(Str1,A,B-A-(T=1) | |
| 14 | ||
| 15 | - | Ans->L3(1+dim(L3 |
| 15 | + | //This would be solving the derivative |
| 16 | For(P,1,3 | |
| 17 | - | Ans->L4(1+dim(L4 |
| 17 | + | |
| 18 | Then | |
| 19 | Ans-1->L4(1+dim(L4 | |
| 20 | End | |
| 21 | If T=1 | |
| 22 | Then | |
| 23 | X+1->X | |
| 24 | Ans*L4(X)->L3(1+dim(L3 | |
| 25 | End | |
| 26 | DelVar P | |
| 27 | End | |
| 28 | ||
| 29 | //Till here. | |
| 30 | {0,1->L1
| |
| 31 | While L1(1) | |
| 32 | CAns+E->L2 | |
| 33 | LinReg(ax+b) {Y1}
| |
| 34 | Equ>String({Y1},Str2
| |
| 35 | Str3+Str2->Str3 | |
| 36 | B+1->A | |
| 37 | ||
| 38 | End | |
| 39 | ||
| 40 |
