catrapato

10 Reputation

One Badge

6 years, 17 days

MaplePrimes Activity


These are replies submitted by catrapato

@Preben Alsholm 

Yes it is true. In fact I am working with two ODEs:

odex[1] := cos(x)*(diff(y[1](x), x, x))+(K^2)*sinh((1/10)*x+1)*y[2](x)+y[1](x)+exp(-x)-1:
odex[2] := (diff(y[2](x), x, x))/(1+x)+(K^2)*exp((1/10)*x+1)*y[1](x)/(1+x)-y[2](x)+erf(-x)-1:

but I am doing a procedure, then I need to identify the inputs of the system:

inpO := [op(remove(c-> has(c, [op(FunctionAdvisor(known_functions,quiet)), diff]), indets(odex[1], function)))];
numO := nops(inpO);

odexT:= [seq(odex[i],i=1..numO)];

Thanks !!

@Markiyan Hirnyk 

 

I want to implementing this little part of code in a procedure, then I don't want hundred of advertisement.

 

The end justifies the means

 

Kind regards

@Markiyan Hirnyk 

 

Thanks again!..

 

In order to avoid extra Maple messages the option: "quiet" is added. The upgrade line is:

selectremove(c-> has(c, [op(FunctionAdvisor(known_functions,quiet)), diff]), indets(ode, function));

 

Regards,

Catra

@Markiyan Hirnyk 

 

Thank you for your answer. It Works for the example proposed, but doesn't work if a logaritmic function is part of the ODE.

 

There is a way to exclude all functions?

 

Regards!

Page 1 of 1