Symbolic Differentiation 85
[Prev][Next][Index][Thread]
Symbolic Differentiation 85
-
Subject: Symbolic Differentiation 85
-
From: JJ <johnsj@RPI.EDU>
-
Date: Wed, 13 Nov 1996 02:22:34 -0500
-
In-Reply-To: <>
--=====================_847887754==_
Content-Type: text/plain; charset="us-ascii"
i posted a while ago that i wrote a program to do symbolic differentiation
on the TI-85, and i never got around to posting it. well here it is. i'm
sorry for taking so long. hope ya'll can use it.
jj
--=====================_847887754==_
Content-Type: text/plain; charset="us-ascii"
Symbolic Derevative Solver Version 1.0b for the TI-85
Written by J.J. Johns
dodger@nexxus.novasys.com
Strider
-- begin documentation --
This is a program to do symbolic derevations on the TI-85. It can solve useing the chain rule,
product rule, quotient rule, and trigonometeric functions. However, it cannot take a combination
of these rules. It cannot do y = sin((2*x^3+5*x^7)^2). It will probably give you an answer, but
it won't be correct. You enter the equation as y1, and then run either the program "drv" or
"drv1", I forget which right now. When you enter an equation, it must be in perfect format with
paranthesis. ie - quotient rule: y1=(5x^2+2x)/(x^5)
product rule: y1=(2x^4+4x^2)*(x)
trig tules: y1=sin(4x^3+3x^2+2)
chain rule: y1=(2+9x^3)^(1/2) or y1=(2+9x^3)^(5)
The derevative is then written in y2.
Notes:
1) You have to put in paranthesis everywhere, even if you don't really need them (look at the examples).
2) It will only sove problems with powers less than 5, because that is all the calculator will handle.
3) If you would like this program to handle log or ln problems, please mail me the rules and I
will try to incorporate them into the next release.
4) The equation must be fully condensed. y=3x^5+x^2 NOT y=2x^5-2x^2+x^5+3x^2.
5) !!! I left this program un-editlocked for a few reasons. One of them was NOT so little wannabe
programmers could put their names on it. You are free to modify this program, but please do
not take credit for it. I hate people who try and take credit for what others have worked for.
If you are able to solve any of its problems, please write me and tell me what you have done.
Espicially if anyone can help fugure out how to handle multiple rules, please write me.
-- end documentation --
-- begin ascii --
-- end ascii --
-- begin uue --
begin 664 SYMBLDRV.85G
M*BI423@U*BH:#`!'<F]U<"!F:6QE(&1A=&5D(#$Q+S(Q+SDU+"`P.3HS,``I
M1S`\4.\OBXH=#@<`8P$2`T1R=F,!80$`(F1O9&=E<D!N97AX=7,N;F]V87-Y
M<RYC;VTBUD-L3$-$UD-L1')WUD1I<W!'UC`<9&EM3"!X4W1A=-8P'&1I;4P@
M>5-T8736*'A-87@M>$UI;BDO-C0<4M9X36EN''C65VAI;&4@>#QX36%XUG@<
M0=9)9B!X&##65&AE;M9)9B!I;6%G('DQ/3TP(&%N9"`H<F5A;"`H>3$I&#`I
MUE1H96[69&5R,2AY,2QX*1Q"UD$<>%-T870H9&EM3"!X4W1A="LQ*=9"''E3
M=&%T*&1I;4P@>5-T870K,2G616YDUD5N9-9X*U(<>-9)9B!X&##65&AE;M9)
M9B!I;6%G('DQ/3TP(&%N9"`H<F5A;"`H>3$I&#`IUE1H96[6>!Q#UF1E<C$H
M>3$L>"D<1-9,:6YE*$$L0BQ#+$0IUD5N9-9%;F3616YDUC$<2=9%<053="AY
M,2Q6*=96'%-T<M9$<G8RU@@`EP(2!$1R=C*7`I4"1#$`"S5.3T5O1#``"S9$
M3TY%;]LS25/',U9O'1`S5B\S22]$,0`1"S-7;]@S5U`M8P!O-D1R=C=OV#-7
M4"US`&\V1')V-F_8,U=0+70`;S9$<G8X;]@S5U`M+P!O-D1R=C-OV#-74"TI
M`&\V1')V-&_8,U=0+2H`;S9$<G8U;]@S5U`M*@`P,U=0+2\`,#-74"TI`&]$
M,0`+-D1/3D5O,TE@1#$`"S-);]YO;]@V1$].15!$,`!OV6]$,``+P#TS;T0P
M``O`/31O/00+,@%X;]LR`7A1/05O,@%X"S-!;]C*.P)Y,5!$,`!`$,D0.P)Y
M,1%51#``$6_9;RH0.P)Y,2\R`7@1"S-";S-!"STS$,`],V!$,0`1;S-""STT
M$,`]-&!$,0`1;]YO,@%X8#-2"S(!>&_>;T0Q``LS2F]$,0`+-4Y/16_;,TI3
MQS-6;QT0,U8O,THO1#$`$0LS5V_8,U=0+1``;T0Q,#`P``LS26_8,U=0+1(`
M;]EO1#``"S5.3T5O]&]$,3`P,``+,TIOWF_8,U=0+5X`;]EO1#``"S5.3T5O
M,TI@1#$`"S-*;QT0,U8O,THO1#$`$0LS5V_8,U=0+34`;]EO3V]$,3`P,``+
M,TIOWF_8,U=0+30`;]EO3F]$,3`P,``+,TIOWF_8,U=0+3,`;]EO36]$,3`P
M,``+,TIOWF_8,U=0+3(`;]EO]&]$,3`P,``+,TIOWF_>;S-*8$0Q``LS2F_>
M;]@S2E5$,3`P,0!`-4Y/15!$,`!OV6_I+5-O<G)Y+"!N;R!E<75A=&EO;@!O
MZ2UC;W5L9"!B92!C86QC=6QA=&5D+@!OVF_8-4Y/16_T;^T0/`5296=%<2\S
M5A%O[A`S5B\[`GDR$6_>;P@`G`$2!$1R=C.<`9H!`$DK,1Q)UG-U8BA6+$DL
M,2D<5]9)9B!7/3TB8R+65&AE;M9$<G8WUE)E='5R;M9%;F36268@5ST](G,B
MUE1H96[61')V-M92971U<F[616YDUDEF(%<]/2)T(M94:&5NUD1R=CC64F5T
M=7)NUD5N9-;622TQ'$G6,1Q0UDDM,AQ*UB(@(AQ&UB(@(AQ'UB(I(AQ:UE=H
M:6QE(%`8,-9S=6(H5BQ*+#$I'%G662M:'%K6268@63T](B@BUE`M,1Q0UDEF
M(%D]/2(I(M90*S$<4-9*+3$<2M9%;F366AQ&UM9)*S(<2M8Q'%#6(B@B'%K6
M5VAI;&4@4!@PUG-U8BA6+$HL,2D<6=9:*UD<6M9)9B!9/3TB*"+64"LQ'%#6
M268@63T](BDBUE`M,1Q0UDHK,1Q*UD5N9-9:'$?6UD8<5%/61')V.3G65%-0
M'$90UM9''%13UD1R=CDYUE134!Q'4-;6(B@B*T<K(B@B*T90*R(I+2(K(B@B
M*T=0*R(I(BM&*R(I+R(K1RLB$B(<5]93=`5%<2A7+'DR*=8(`&\!$@1$<G8T
M;P%M`3-)"S-*;]@S26!$,@!2QS-6;]]OV!T0,U8O,TE@1#$`+T0Q`!%5+5X`
M;]]O;T0Q``LS4&\S26%$,0`+,TIO+2``"S-&;RT@``LS1V\M*0`+,UIOVS-0
M540P`&\=$#-6+S-*+T0Q`!$+,UEO,UE@,UH+,UIOV#-94"TH`&\S4&%$,0`+
M,U!OV#-94"TI`&\S4&!$,0`+,U!O,TIA1#$`"S-*;]YO,UH+,T9O;S-)8$0S
M``LS2F]$,0`+,U!O+2@`"S-:;]LS4%5$,`!O'1`S5B\S2B]$,0`1"S-9;S-:
M8#-9"S-:;]@S65`M*`!O,U!@1#$`"S-0;]@S65`M*0!O,U!A1#$`"S-0;S-*
M8$0Q``LS2F_>;S-:"S-';V\S1V`M+3$`"S1'4&]O,T8+-%13;S=$<G8Y.6\U
M5%-0"S1&4&]O+2@`8#1&4&`M*0!@,T=@,T9@+5XH`&`T1U!@+2D`"S-7;^X0
M,U<O.P)Y,A%O"``3`1($1')V-1,!$0$`,1Q0UDDM,AQ*UB(@(AQ&UB(@(AQ'
MUB(I(AQ:UE=H:6QE(%`8,-9S=6(H5BQ*+#$I'%G662M:'%K6268@63T](B@B
MUE`M,1Q0UDEF(%D]/2(I(M90*S$<4-9*+3$<2M9%;F366AQ&UM9)*S(<2M8Q
M'%#6(B@B'%K65VAI;&4@4!@PUG-U8BA6+$HL,2D<6=9:*UD<6M9)9B!9/3TB
M*"+64"LQ'%#6268@63T](BDBUE`M,1Q0UDHK,1Q*UD5N9-9:'$?6UD8<5%/6
M1')V.3G65%-0'$90UM9''%13UD1R=CDYUE134!Q'4-;61BLB*"(K1U`K(BDK
M*"(K1E`K(BDB*T<<5]93=`5%<2A7+'DR*=8(`%D!$@1$<G8V60%7`0!)*S4<
M2=;6268@<W5B*%8L22TT+#$I&")I(M94:&5NUDDM-1Q)UE)E='5R;M9%;F36
MUC`<4T5#UDEF($DM-SPQUE1H96[6,!Q314/616QS9=9)9B!S=6(H5BQ)+3<L
M,BD]/2(Q+R+6,1Q314/616YDUM9)'$K6(B`B'$;6(B`B'$?6UC$<4-8B*"(<
M6M97:&EL92!0&##6<W5B*%8L2BPQ*1Q9UEHK61Q:UDEF(%D]/2(H(M90*S$<
M4-9)9B!9/3TB*2+64"TQ'%#62BLQ'$K616YDUEH<1];6(G-I;B`B'$;6(AIC
M;W,@(AQ&4-;61QQ44]9$<G8Y.=944U`<1U#6UB(H(BM'4"LB*2(K(F-O<R`B
M*T<<5]9)9B!314/6(AHH(BM'4"LB*2(K(B@Q+W-I;B`B*T<K(BDH,2]T86X@
M(BM'*R(I(AQ7UM93=`5%<2A7+'DR*=8(`%0!$@1$<G8W5`%2`0!)*S4<2=;6
M268@<W5B*%8L22TT+#$I&")O(M94:&5NUDDM-1Q)UE)E='5R;M9%;F36UC`<
M4T5#UDEF($DM-SPQUE1H96[6,!Q314/616QS9=9)9B!S=6(H5BQ)+3<L,BD]
M/2(Q+R+6,1Q314/616YDUM9)'$K6(B`B'$;6(B`B'$?6,1Q0UB(H(AQ:UE=H
M:6QE(%`8,-9S=6(H5BQ*+#$I'%G66BM9'%K6268@63T](B@BUE`K,1Q0UDEF
M(%D]/2(I(M90+3$<4-9**S$<2M9%;F366AQ'UM8B8V]S("(<1M8B<VEN("(<
M1E#6UD<<5%/61')V.3G65%-0'$=0UM8B&B@B*T=0*R(I(BLB<VEN("(K1QQ7
MUDEF(%-%0ST],=8B*"(K1U`K(BDH,2]C;W,@(BM'*R(I*'1A;B`B*T<K(BDB
M'%?64W0%17$H5RQY,BG6"``&`1($1')V.`8!!`$`22LU'$G6UC`<4T5#UDEF
M($DM-SPQUE1H96[6,!Q314/616QS9=9)9B!S=6(H5BQ)+3<L,BD]/2(O,2+6
M,1Q314/616YDUM;621Q*UB(@(AQ&UB(@(AQ'UM8Q'%#6(B@B'%K65VAI;&4@
M4!@PUG-U8BA6+$HL,2D<6=9:*UD<6M9)9B!9/3TB*"+64"LQ'%#6268@63T]
M(BDBUE`M,1Q0UDHK,1Q*UD5N9-9:'$?6UB)T86X@(AQ&UB(Q+V-O<R`B'$90
MUM9''%13UD1R=CDYUE134!Q'4-;6(AHH(BM'4"LB*2(K(B@Q+W-I;B`B*T<K
M(BD2(AQ7UE-T!45Q*%<L>3(IU@D`Y@$2!41R=CDYY@'D`>X0-%13+SL">3(1
M;T0P``O`/3-O1#``"\`]-&\]!`LR`7AOVS(!>%$]!6\R`7@+,T%OV,H[`GDR
M4$0P`$`0R1`[`GDR$55$,``1;]EO*A`[`GDR+S(!>!$+,T)O,T$+/3,0P#TS
M8$0Q`!%O,T(+/300P#TT8$0Q`!%OWF\R`7A@,U(+,@%X;]YO1#$`"S-*;T0Q
M``LU3D]%;]LS2E/'-%13;QT0-%13+S-*+T0Q`!$+,U=OV#-74"T0`&]$,3`P
M,#``"S-);]@S5U`M$@!OV6]$,``+-4Y/16_T;T0Q,#`P``LS2F_>;]@S5U`M
M7@!OV6]$,``+-4Y/16\S2F!$,0`+,TIO;QT0-%13+S-*+T0Q`!$+,U=OV#-7
M4"TU`&_9;T]O1#$P,#``"S-*;]YOV#-74"TT`&_9;TYO1#$P,#``"S-*;]YO
MV#-74"TS`&_9;TUO1#$P,#``"S-*;]YOV#-74"TR`&_9;_1O1#$P,#``"S-*
M;]YOWF\S2F!$,0`+,TIOWF_8,TI51#$P,#$`0#5.3T501#``;]EOZ2U3;W)R
M>2P@;F\@97%U871I;VX`;^DM8V]U;&0@8F4@8V%L8W5L871E9"X`;]IOV#5.
93T5O]&_M$#P%4F5G17$O-5134!%OWF_>:```
end
-- end uue --
--=====================_847887754==_
Content-Type: text/plain; charset="us-ascii"
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\ JJ Johns
\ johnsj@rpi.edu
\ Creator of The Not-So Complete TI-92 Archive
| http://johnsj.stu.rpi.edu/ti/ti92.html
/ Observations:
/ "The quickest way to get an engineer to solve a problem
/ is to declare it it totally impossible."
////////////////////////////////////////////////////////////
--=====================_847887754==_--