How to evaluate an expression for multiple values...

Suppose I have an expression like the following:

h(t, x) :=  (m*t^2 + 6*t - 2*x)^2/(36*g*t^2)


I want to calculate multiple values of t in a single expression. Say, for t:= 1,5,10,15,20. I want to evaluate h(t,x) in vector form. so that I can extract for each t. How to write it?

Need help regarding fit curve?...

Hello everyone, I am trying to generate a relation for x in terms of lambda by putting my expression (A=0) but do not get the explicit relation. Could anyone please help me generate data points between x=[0..1] and lambda by putting A=0 and then making a polynomial by using the fit curve for x in the term of lambda?

Help_Data_points.mw

How to define a matrix of partial differential ope...

How do we define a matrix or a vector of the partial differential operator?

How to compute right eigen vector of a matrix in ...

How to evaluate the right eigenvector of a given matrix in maple?

Commutator table for infinitesimals...

How to obtain the commutator table of the infinitesimal generators?
Can we obtain a commutator table by using any inbuild command in pdetools?

How to upload a maple .eps in overleaf...

I got a plot by following the code in Mpale 2022.
restart;
with(plots);
P2 := plot3d(-t^2 + x, t = 0 .. 20, x = 0 .. 400, labels = ['t', 'x', 'rho'], labelfont = [Times, 15], viewpoint = "circleleft", colorscheme = ["ygradient", ["Green", "Purple", "Blue", "Red", "BlueViolet"]]);
plotsetup(ps, plotoutput = "P2");
print(P2);

Then I tried the following code for the overleaf. However, I did not get the desired result.

\documentclass[11pt]{article}
\usepackage{graphicx}
\usepackage{epsfig}

\begin{document}
Plot obtained from Maple 2022. \\

\includegraphics[width=0.9\textwidth]{P2.eps}
\end{document}

plotting_file.pdf

Any help is highly appreciated.
Thanks
Deb

Why doesn't Maple simplify exponents....

I am wondering why Maple simplifies (x^(1/3))^3 to x ,  but not (x^3)^(1/3) .
I even tried the surd function. I believe the surd function is for real number arguments, so it should simplify to x.

 > restart:
 > f:=x->x^3: g:=x->x^(1/3):
 > f(g(x)); g(f(x));
 (1)
 > simplify((x^3)^(1/3))
 (2)
 > simplify(x^(1/3))^3
 (3)
 > simplify(surd(x^3,3))
 (4)
 > simplify(surd(x,3)^3)
 (5)
 >

;

This is what happened.

Here is a link to the document to replicate this behavior.

log_inequality.mw

I know there is a solution , if you look at the [graph](https://www.desmos.com/calculator/3n7uzwrak4).

I also tried fsolve, but you have to narrow down the solution interval to look for a solution, and use an equality instead of an inequality.

how to plot impulse points in the differential equ...

For t not equal to nT,

dS/dt = delta- mu*S+ omega*V;

dV/dt = -(omega+mu)*V

For t=nT,

S(nT+)=(1-gamma) S(nT);

V(nT+)=V(nT)+ gamma* S(nT),

with the initial conditions  S(0+)=s0

V(0+)=v0

how to plot the graph with this system of equations,impulsive points and initial conditions

How do i solve a differential equation in loop in ...

i am facing problem while solving differential equation in loops where conditons are given also in loops. the particular problem occurs while solving Differential equation involving He's Homotopy purturbation method

Integration of Hermite to Laguerre...

How  to make the integration

into the following form:

IsFrobeniusGroup and IsFrobeniusPermGroup get diff...

IsFrobeniusGroup(SmallGroup(20, 3)) will get true, but IsFrobeniusPermGroup(SmallGroup(20, 3)) will get false. What happen? As the documentation, it will get same result:

The two definitions are equivalent in the following sense.  If G is a Frobenius permutation group, then G is Frobenius as an abstract group

how do I solve and plot fractional differential eq...

I want a maple code to solve the caputo fabrizio differential equations using Runge Kutta method with implicit functions and impulsive conditions in maple. Is there any code structure for that.

is this correct to solve the implicit fractional d...

restart;
with(Student[NumericalAnalysis]);
with(plots);
with(DEtools);
f := proc(u, r) local res; res := 1/25*r^2 + (sin(u(r)) + sin(diff(u(r), [r \$ 1/5])))/(r^2 + 47); return res; end proc;

RK4 := proc(f, u0, r0, h, n) local u, r, i, k1, k2, k3, k4; u := Vector(n + 1); r := Vector(n + 1); u[1] := u0; r[1] := r0; for i to n do k1 := f(u[i], t[i]); k2 := f(u[i] + 1/2*h*k1, r[i] + 1/2*h); k3 := f(u[i] + 1/2*h*k2, r[i] + 1/2*h); k4 := f(u[i] + h*k3, r[i] + h); u[i + 1] := u[i] + 1/6*h*(k1 + 2*k2 + 2*k3 + k4); r[i + 1] := r[i] + h; end do; return [u, r]; end proc;
RK4 := proc (f, u0, r0, h, n) local u, r, i, k1, k2, k3, k4; u

:= Vector(n+1); r := Vector(n+1); u[1] := u0; r[1] := r0;

for i to n do k1 := f(u[i], t[i]); k2 := f(u[i]+(1/2)*h*k1,

r[i]+(1/2)*h); k3 := f(u[i]+(1/2)*h*k2, r[i]+(1/2)*h); k4 :=

f(u[i]+h*k3, r[i]+h); u[i+1] := u[i]+(1/6)*h*(k1+2*k2+2*k3+k4\

); r[i+1] := r[i]+h end do; return [u, r] end proc

u0 := cos(abs(0.9))/15;
u0 := 0.04144066455

r0 := 0;
r0 := 0

h := 0.1;
h := 0.1

n := 100;
n := 100

solution := RK4(f, u0, r0, h, n)

u := solution[1];
r := solution[2];
plot(u, r, style = line, color = blue, labels = ["Time (r)", "Solution (u)"]);
is this correct to solve the implicit fractional differential equations using 4th order Runge-Kutta Method. will fsolve command  solve the fractional differential equations ?