ecuacion mathemática
- To: mathgroup at smc.vnet.net
- Subject: [mg7493] ecuacion mathemática
- From: ANA CARMEN LUNA DOBADO <diacld at ARRAKIS.ES>
- Date: Sat, 7 Jun 1997 03:48:09 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Hello.
Does anyone on this list can help out of the following problem ?
varsepar[eqi_,yx_,x_]:=(
If[Head[yx]==Symbol,y=yx,eq=eqi]
yx
If[Head[yx]!=Symbol,y=Head[yx],eq=(eqi/.{yx->y,D[yx,x]->y'})]
eqi
eqnormales=Solve[eq,y']
Solve::eqf: eqi is not a well-formed equation.
Solve::eqf: eqi is not a well-formed equation.
Solve[eqi, yx']
resultado=Map[(
expr=Factor[(y'/.#)]
If[Head[expr]==Times,lisfactor=Apply[List,expr]]
If[Head[expr]!=Times,lisfactor={expr}]
lisfactor=(lisfactor//.{{in___,base_^(a_+b_),fin___}->
{in,base^a,base^b,fin}})
lisx=(lisfactor//.
{in___,a_/;(Position[a,y]!={} && Position[a,x]=={},fin___}->
{in,fin})
lisx=Apply[Times,lisx]
f(X)=lisx
g(y)=expr/lisx
miembroizquierdo=Integrate[lisx/expr,y]
miembroderecho=Integrate[Lisx,x]+C[1],y]
miembroizquierdo==miembroderecho
solucion=Solve[Integrate[lisx/expr,y]==Integrate[lisx,x]+C[1],y]
If[Head[solucion]===Solve[miembroizquierdo==miembroderecho,Map[eq]])&,eqnormales]
Syntax::newl:
The newline character after "expr=Factor[(y'/.#)]"
is understood as a multiplication operator.
Syntax::newl:
The newline character after
"If[Head[expr]==Times,lisfactor=Apply[List,expr]]"
is understood as a multiplication operator.
Syntax::newl:
The newline character after
"If[Head[expr]!=Times,lisfactor={expr}]"
is understood as a multiplication operator.
Syntax::newl:
The newline character after
" {in,base^a,base^b,fin}})"
is understood as a multiplication operator.
Syntax::comma:
Invalid input "(Position[a,y]!={} && Position[a,x]=={},fin___}";
commas are not allowed between parentheses.
resultado=(resultado/.{y->y1}/.{(y[x]'->y'[x])};
Syntax::sntxi: Incomplete expression.
reglas={_?NumberQ+C[1]->C[1],_?NumberQ C[1]->C[1],
a_^(b_+C[1]->C[1] a^b,(a_+C[1]) b_?NumberQ->b a+C[1]};
Syntax::comma:
Invalid input "(b_+C[1]->C[1] a^b,(a_+C[1]) b_?NumberQ->b a+C[1]}";
commas are not allowed between parentheses.
Map[
If[Length[Position[#,C[1]]]==1,(#//.reglas),#]&
,
resultado
]
resultado
If anyone has some hints for me , please let me know.
Thank you and have a nice day.
Ana Carmen Luna Dobado.