Good day everyone, 

Can I plot the graph of the sheet attached below such that x will be on the vertical component and y will be on the horizontal component? Can this be done on Maple? Anyone with useful information should please help.

plot_graph.mw

every time we past with windows button + v

it has the form of one liner math input i want to force all pasting to have normal math input !

example

i copy two items and past them (the last one with the windows button)

   ,  and

and i get

and a/b

or another example

i want to have a script that ones ran, makes all pasting that contains one liner into normal math

this is not a scrip we need to run at the end or periodically but a package ones loaded changes the way it pastes with the windows button (something like for every past "check IF it is a oneliner IF True, then make it into normal math, else stop)

or change a setting in maple via " := " that forces all math inputs to only be able to exist in normal math, ie. disable one liner math input.

the reason i know this is a setting problem and can be fixed (easily) is this

when we look at the clipboard folder both of them are actually formed by one liner math input. and only the older copyed item has the wrong form when pasting. just take a look at the clipboard folder

when i just use CTRL + V i get the first one (with the correct form), when i use windows button + v and select the second one (i get the second one but in the wrong form)

they dont look the samme (not the letters inside but the form)

so pls help this is a major problem in order to work effectively.

hello with the new online maple enviroment called "maple learn" can i use this to run maple on my ipad.

my main goal is to just open the files on the ipad when i am standing at a blackboard so i can tjeck and so i know what to write on the board.

are there other methods - if so i would like to hear them

i havent look at mapleNet could this be used.

PS: MAKING PDF IS NOT AN OPTIONS in general, and AS LONG AS THEY LOOK " so bad "

so just to not confuse i dont need to write formulas i just need to be able to look at my work in maple from an ipad.

and really important - i am noot looking to generate maplelearn files for everything. i want to find a normal maple file via the ipad via cloud/onedrive and open it. (no more) or login to maplelearn and open onedrive via file->open (and look through my files on the pc.

Every time I convert Mathematica expressions to Maple in order to use them there, I have to spend hrs by hand adding () around places in the input Mathematica expression because Maple complains about a^b^c.

The problem is that Mathematica has no problem with this, as it always takes a^b^c as a^(b^c). Here is an example to illustrate

But in Maple

MmaTranslator:-FromMma("E^x^2")

So I have to edit the input by hand

MmaTranslator:-FromMma("E^(x^2)")

The problem is that this is how Mathematica produces the expressions, and I have no way to tell Mathematica to put an extra () around to clear this ambiguity,

So I am hoping there is a way in Maple to do it. May be using some option? I know even using Maple own expressions, it complains about this:

x^y^z

But in Mathemtica it accepts this

If there is no way to change this behavior maple, else it means I have to spend hrs again editing all the Mathematica input by hand before using MmaTranslator:-FromMma each time. There are 100's of these in each file.

I think Maple here is not behaving the same as other CAS system. In Fricas it also works as is

(1) -> x^y^z

          z
         y
   (1)  x

Same in Maxima

(%i2) x^y^z;  
                                        z
                                       y
(%o2)                                x

Same in Giac

0>> x^y^z
x^(y^z)

And in every other CAS system I tried. It is only Maple who complain about this.

Any suggestions for workaround?

What is the procedure to add global optima package in maple?

I have the function: f(x)= sqrt(x) for x>=0; f(x)=1/x for x<0 and I would like to plot the function.

How exactly to implement this?

Can we write v matrix in terms of matrix u? i.e., v=const*u.

uv_mat.mw

Is it possible to do machine learning using maplesoft I have 2020 for now

Say I have an excel sheet with one dependent variable and n number of independent variables. I can ask for the number of hidden layers we need.

Then i want to traing the data with 70% of the data for training ,  15% of the data for validation and 15% of the data for testing.

I want some charts may be on the performance of the neural networks.

and get the regression equation formed by this training would be looking to repeat the training until MSE has certain approximation.

If this is not possible in maplesoft kindly help me with some other code way to do this. Please help. I will surely acknowledge please advice me.

Is there a way to take a long integer representing the ticks in JS and convert them to a date in maple?

Download cat_in_nested_statement.mw

Hi,

I am looking to adapt the MathApp to draw random rectangle triangles. Ideas for correcting my sheet?

Thanks

Pythagorian.mw

MathAppsPytago.mw

I want to  return {x = 0., y = 1.158748796 + 0. I}  as  {x = 0., y = 1.158748796 }.  The solution is coming from:

soln3:= fsolve({b1, b2}, {x = 0 .. infinity, y = 0 .. infinity}); 

and the second solution is coming from:
 soln4:= fsolve({b1, b2}, {x = -infinity ..0, y = -infinity .. 0}); 

See my code below

restart:

Procedure

doCalc:= proc( xi )

                 # Import Packages
                 uses ArrayTools, Student:-Calculus1, LinearAlgebra,
                      ListTools, RootFinding, plots, ListTools:
                 local gamma__1:= .1093,
                       alpha__3:= -0.1104e-2,
                       k__1:= 6*10^(-12),
                       d:= 0.2e-3,
                       theta0:= 0.0001,
                       eta__1:= 0.240e-1,
                       alpha:= 1-alpha__3^2/(gamma__1*eta__1), 
                       c:= alpha__3*xi*alpha/(eta__1*(4*k__1*q^2/d^2-alpha__3*xi/eta__1)),
                       theta_init:= theta0*sin(Pi*z/d),
                       n:= 30,
                       g, f, b1, b2, qstar, OddAsymptotes, ModifiedOddAsym,
                       qstarTemporary, indexOfqstar2, qstar2, AreThereComplexRoots,
                       soln1, soln2, qcomplex1, qcomplex2, gg, qq, m, pp, j, i,
                       AllAsymptotes, p, Efun, b, aa, F, A, B, Ainv, r, theta_sol, v, Vfun, v_sol,minp,nstar,
                       soln3, soln4, Imagroot1, Imagroot2;

# Assign g for q and plot g, Set q as a complex and Compute the Special Asymptotes

  g:= q-(1-alpha)*tan(q)+ c*tan(q):
  f:= subs(q = x+I*y, g):
  b1:= evalc(Re(f)) = 0: 
  b2:= y-(1-alpha)*tanh(y) -(alpha__3*xi*alpha/(eta__1*(4*k__1*y^2/d^2+alpha__3*xi/eta__1)))*tanh(y) = 0:
  qstar:= (fsolve(1/c = 0, q = 0 .. infinity)):
  OddAsymptotes:= Vector[row]([seq(evalf(1/2*(2*j + 1)*Pi), j = 0 .. n)]);

# Compute Odd asymptote

  ModifiedOddAsym:= abs(`-`~(OddAsymptotes, qstar));
  qstarTemporary:= min(ModifiedOddAsym);
  indexOfqstar2:= SearchAll(qstarTemporary, ModifiedOddAsym);
  qstar2:= OddAsymptotes(indexOfqstar2);

# Compute complex roots

  AreThereComplexRoots:= type(true, 'truefalse');
  try
   soln1:= fsolve({b1, b2}, {x = min(qstar2, qstar) .. max(qstar2, qstar), y = 0 .. infinity}); 
   soln2:= fsolve({b1, b2}, {x = min(qstar2, qstar) .. max(qstar2, qstar), y = -infinity .. 0}); 
   qcomplex1:= subs(soln1, x+I*y); 
   qcomplex2:= subs(soln2, x+I*y);
   catch:
   AreThereComplexRoots:= type(FAIL, 'truefalse');
  end try;

# Compute the rest of the Roots
  soln3:= fsolve({b1, b2}, {x = 0 .. infinity, y = 0 .. 10}); 
  soln4:= fsolve({b1, b2}, {x = -infinity ..0, y = -infinity .. 0}); 
  Imagroot1:=subs(soln3, I*y); 
  Imagroot2:= subs(soln4, I*y); 
  OddAsymptotes:= Vector[row]([seq(evalf((1/2)*(2*j+1)*Pi), j = 0 .. n)]); 
  AllAsymptotes:= sort(Vector[row]([OddAsymptotes, qstar])); 

  if AreThereComplexRoots
  then gg:= [qcomplex1, qcomplex2,op(Roots(g, q = 0.1e-3 .. AllAsymptotes[1])),
              seq(op(Roots(g, q = AllAsymptotes[i] .. AllAsymptotes[i+1])), i = 1 .. n)];
  elif not AreThereComplexRoots 
  then gg:= [op(Roots(g, q = 0.1e-3 .. AllAsymptotes[1])), seq(op(Roots(g, q = AllAsymptotes[i] .. AllAsymptotes[i+1])), i = 1 .. n)];
  end if:

# Remove the repeated roots if any & Redefine n

  qq:= MakeUnique(gg):
  m:= numelems(qq):

## Return all the plots
            return qq, Imagroot1,Imagroot2, p, soln3, soln4;
  end proc:

ans:=[doCalc(0.06)]:
ans[5];
                {x = 0., y = 1.158748796 + 0. I}
ans[6];
                   {x = 0., y = -1.158748796}
 

How to write a_{01} in Maple

a[01] makes a_1. It mates a[01] - a[1] =0. However, a[0] becomes a_0. What to do? I want to write in maple in such that LaTeX conversion works good.

I'm using a procedure but the out is not returned. Please why?

restart:

Procedure

doCalc:= proc( xi )

                 # Import Packages
                 uses ArrayTools, Student:-Calculus1, LinearAlgebra,
                      ListTools, RootFinding, plots, ListTools:
                 local gamma__1:= .1093,
                       alpha__3:= -0.1104e-2,
                       k__1:= 6*10^(-12),
                       d:= 0.2e-3,
                       theta0:= 0.0001,
                       eta__1:= 0.240e-1,
                       alpha:= 1-alpha__3^2/(gamma__1*eta__1), 
                       c:= alpha__3*xi*alpha/(eta__1*(4*k__1*q^2/d^2-alpha__3*xi/eta__1)),
                       theta_init:= theta0*sin(Pi*z/d),
                       n:= 30,
                       g, f, b1, b2, qstar, OddAsymptotes, ModifiedOddAsym,
                       qstarTemporary, indexOfqstar2, qstar2, AreThereComplexRoots,
                       soln1, soln2, qcomplex1, qcomplex2, gg, qq, m, pp, j, i,
                       AllAsymptotes, w, Efun, b, aa, F, A, B, Ainv, r, theta_sol, v, Vfun, v_sol,minp,nstar,
                       soln3, soln4, Imagroot1, Imagroot2;

# Assign g for q and plot g, Set q as a complex and Compute the Special Asymptotes

                       qq := [2.106333379+.6286420119*I, 2.106333379-.6286420119*I, 4.654463885, 7.843624703, 10.99193295,14.13546782, 17.27782732, 20.41978346, 23.56157073, 26.70327712, 29.84494078, 32.98658013,         36.12820481, 39.26982019, 42.41142944, 45.55303453, 48.69463669, 51.83623675, 54.97783528,                     58.11943264, 61.26102914, 64.40262495, 67.54422024, 70.68581510, 73.82740963,                                 76.96900389, 80.11059792, 83.25219177, 86.39378546, 89.53537903, 92.67697249];
                        m:= numelems(qq):

                        for i from 1 to m do 
                        w[i] := gamma__1*alpha/(4*k__1*qq[i]^2/d^2-alpha__3*xi/eta__1);
                        end do;

## Return all the plots
  return w;
  end proc:

ans:=[doCalc(0.06)]:
ans[1];
                              
 

Kind help with Function given two graphs G1 and G2 then co-normal product be the graph G3 given by the function

conormal(G1,G2)

Defination is explained in youtube link  https://www.youtube.com/watch?v=qz1StIvzrAI

If any other explanation will surely give kind help please will surely acknowlege