Search Results

I want to use this code for the backward Numerical solution but patently not well defined? Clear["Global`*"] f = 0.7; γ = 1; NDSolve[{s''[x]/s[x] + ((3 γ)/2 - 1) (s'[x]/s[x])^2 - (3 γ*f)/2 == 0, s[1] …

I work on this equation I don't know how to get some a solution from second part becuase it just gives me some unknown lines, first part is easy and I just put it for next part. Clear["Global`*"] eqns …

I don't know why is not working?!! Clear["Global`*"] x[t] = x0 Exp[y0 (t - 1)]; t0 = 1; \Xi = 0.3; \Gamma = 1.33; \Lambda = 0.7; eqns = {y0^2 - (k*(1 - 2/(3*\Gamma)))/Exp[y0*(t - t0)] - (\Xi/\Gamma) …

I was working on this equation but I can't get out something for this: Clear["Global`*"] g[t_] := ((1 - b) y[t]^2/t^n + 1/t^(2 + n))^n; eqns = y'[t] + 3/2 (a - b) y[t]/t + (3/2 a - 1)/y[t] t^3 == g[t] …

I used this code to solve an equation and now I would like to plot the solution with its inverse. I can't get some figures?!! Clear["Global`*"] eqns = {Derivative[1][y][ x] + (3/2)*(a - b)*(y[x]/x) - …

I have this funtion i would like to calculate the inverse Inverse[Sqrt[1 - Cosh[2 t] + a Sinh[2 t]]] a is positive number.

I was thinking, it's possible to plot inverse an animation?? Clear["Global`*"] k = 0.002;a = 0.68; 1/Sqrt[k] x Hypergeometric2F1[1/2, 1/(2 - 3 b), 1 + 1/(2 - 3 b), -((x^(2 - 3 b) a)/k)] /. b -> 1 ani …

I'm working on this code to modify it but I can't plot it and solve the second part?!! Clear["Global`*"] eqns = {y[x]^2 - Sqrt[3] (a/b) y[x]*Sqrt[y[x]^2 - k x^-2 - f] - k (1 - 2/(3 b))x^-2 -f == 0}; …

I want to solve this equation in Mathematica then plot x[t]: ClearAll[y, x, a, b, k, f] a = 1; b = 0.24; k = 0.002; f = 0.68; eqn1 = {x''[t]/x[t] + (3 a/2 - 1) (x'[x]/x[t])^2 -3b/2 (x'[t]/x[t])+k ((3 …

I'm working to solve this equation but it's not giving me anything a = 1; b = 0.24; k = 0.002; f = 0.68; sol = NDSolve[{x''[t]*x[t] + (3 a/2 - 1) (x'[x])^2 - 3 b/2 (x'[t]*x[t]) + k ((3 a - 1)/2) - a …

I just ploted y[x],y'[x] but I would like to plot other function which is g[x] based on my solution but it can't plot this ??!! Clear["Global`*"] eqn = {y''[x]/ y[x] + 1/2 (y'[x]/ y[x])^2 - 3 a/2 (y'[ …

Today I just wanted to run this code but I have some difficulty if you can have a look? Clear["Global`*"] a = 0.7; k = -0.04; f = 0.2; b = 1; g[x_] := Sqrt[ a + f^2/(4 b^2)] / a ArcCoth[ Sqrt[a + f^ …

I would like to compare the numerical and analytical solution with plot for this example but something is wrong I don't know how to fix it?!! Clear["Global`*"] eqn = {2 s'[x] + 3 s[x]^2 - …

I would like to see minimum and maximum for this example! g[x_]:=(3 a - 2)/((2 + 3 b - 3 a) x^2) + f*x^(-3 a + 3 b + 2) also for those parameters "1 < a < 2" and "0.6 < b < 0.7" Minimize[(3 a - …

I just wanted to know how to plot this for different value of a,b and f (Table[])? Clear["Global`*"] Clear[a, b, f, h, x] eqn = {h'[x] == (a*s + (9b^2 /8s -(s+1) f ) x^2 - 3b/2s …