10 Reputation

One Badge

6 years, 152 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));




@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?



Page 1 of 1