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 | - | Pause sub(Str1,A,B-A-(T=1) |
| 10 | + | For(P,1,3 |
| 11 | For(T,1,2 | |
| 12 | - | Ans->C |
| 12 | + | |
| 13 | Pause Expr(sub(Str1,A,B-A-(T=1) | |
| 14 | - | Ans->E |
| 14 | + | |
| 15 | Ans->L3(1+dim(L3 | |
| 16 | If T=2 | |
| 17 | Ans->L4(1+dim(L4 | |
| 18 | End | |
| 19 | End | |
| 20 | {0,1->L1
| |
| 21 | While L1(1) | |
| 22 | CAns+E->L2 | |
| 23 | LinReg(ax+b) {Y1}
| |
| 24 | Equ>String({Y1},Str2
| |
| 25 | Str3+Str2->Str3 | |
| 26 | B+1->A | |
| 27 | ||
| 28 | End | |
| 29 | ||
| 30 |
