Hello i would love some help with this code i need Maple to make an exercise guide in word automaticly the thing is that i don't know how to automaticly insert the plot in the word, i think there is no fprintf format to add images or plots maybe with exportplot? i really don't know; here is the Code is Basic for a starter student i just need the comand to insert the plot just that.
-------------------------------------------------------------------
fd:fopen("Graphs.doc", WRITE);
 for i from 1 by 5 to 11do
  if i=1 then plotsetup(bmp,plotoutput=plot1);
 a:= -50;
 b:=30;
 elif i=6 then
 plotsetup(bmp,plotoutput=plot2);
 a:= 50;
 b:=-30;
  elif i=11 then  plotsetup(bmp,plotoutput=plot3);
  a:= 2;
 b:=-3;
 end if;
 h:=(i*x^(2)-((3*a)/(i-42))*x-(i*b)/(-i+42));
  fprintf(fd,"the quadratic equation is: ")
fprintf(fd,"%q \\n",h);
 #`HERE IS WHERE I NEED THE PLOT TO BE`
  plot(i*x^(2)-((3*a)/(i-42))*x-(i*b)/(-i+42),x)
   end do; 
 fclose(fd);
--------------------------------------------------------------------
pd. i can't do it manually i need it to be automatic later i will add some inputs to make it even faster.

Hi, as I can't manage to copy and paste on mapleprimes, I would be glad to get a hint ...

Hello,
I am looking here for a tutor, that can help me doing some Maple V (5) programming.
I am a mathematic student and we use Maple programming.
I will be happy to pay a small amount of money for each exercice you help me doing,

if anyone is interested, please contact me here.

(The procedures that we usually have to write are for example:
 Newton-Raphson Method, Chebyshev Polynomial,...  I don't think it is hard for you.
Thank you very time for your time and your help.

How to find the nth derivative of (logx)/x  and (e^x)logx by using leibenitz theorem....?

Hello,

I would like to export maple inputs as xml code. The aim is to recover the semantics of the inputs.

I have tried without success with the Export Function.

Have you some ideas to export maple inputs as xml and with preserving the semantics of the input ?

Thanks a lot for your help

Maple function plot allows to build a linear plot for two vectors, when one vector contains X coordinates, another -- Y coordinates (similar to plot below):

Is it possible to build such a plot for several Y-vectors like this:

I want to solve the following differential equation

solve(y''(x)=(λ*x* y[x])/Sqrt(-1+ x), y(x),x)

But do not know how to actually solve it. Any suggestion?

Determine wether the sequence below converges or diverges, and if it converges, find the limit.

and,

Thanks

hello guys i have 2 diiferential equations and i want to check a solution for that , how to do it ?

E and B are functions of r .

i want to put E(r)= r^a and B(r)=e^ar in equations.diff.mw

Hi all,

min/max command in Maple can return the minimum/maximum of a sequence or array.

 In my case, I want to find not only the minimum/maximum, but also where are them. How can I do?

For example, there is a squence [1,2,3,7,6,5,4].

Through max([1,2,3,7,6,5,4]), we can get 7.

But I still want to get "4" which is the index value of "7". 

Thank you.

can i use maple to get all the roots in a given expression?

for example: i have a expression "(2b+c)^(1/2)+c-(c-2b)^(1/3)"

and I want to get a list that contains "(2b+c)^(1/2)" and "(c-2b)^(1/3)"

is there any maple commands i can play with?

assume x,y is a real number and {x>4,y>4}, how can i get the supplementary set ({x<=4,y<=4}) of x,y in the real domain by maple?

Some of the Rotation Coefficients are not calculating properly.

Question_about_Ricci_Rotation_Coefficients.mw

I have data file with 6 columns:

X Y Z B1 B2 B3

i.e. 3 coordinates (with some step) and values of B-functions at that 3D point. How to make interpolation of these B-functions to have them in arbitrary (x,y,z) point?

Then I need to solve diff equations like this:

x''(s)+f(...)=0

f(...) depends on x,y,z,x',y',z' and B1,B2,B3. How to write this dsolve(...) construction when we have interpolations inside?

Thanks.

I am trying to understand how maple "isprime" algorithm works. But I can't find anywhere what special_primes means.

 showstat(isprime);

isprime := proc(n)
local btor, nr, p, r;
   1   if not type(n,'integer') then
   2     if type(n,('complex')('numeric')) then
   3       error "argument must be an integer"
         else
   4       return 'isprime(n)'
         end if
       end if;
   5   if n < 2 then
   6     return false
       elif member(n,isprime:-special_primes) then
   7     return true
       elif igcd(2305567963945518424753102147331756070,n) <> 1 then
   8     return false
       elif n < 10201 then
   9     return true
       elif igcd(8496969489233418110532339909187349965926062586648932736611545426342203893270769390909069477309509137509786917118668028861499333825097682386722983737962963066757674131126736578936440788157186969893730633113066478620448624949257324022627395437363639038752608166758661255956834630697220447512298848222228550062683786342519960225996301315945644470064720696621750477244528915927867113,n) <> 1 then
  10     return false
       elif n < 1018081 then
  11     return true
       else
  12     r := gmp_isprime(n);
  13     if not r or n <= 5000000000 then
  14       return r
         end if;
  15     nr := igcd(408410100000,n-1);
  16     nr := igcd(nr^5,n-1);
  17     r := iquo(n-1,nr);
  18     btor := modp(('power')(2,r),n);
  19     if cyclotest(n,btor,2,r) = false or irem(nr,3) = 0 and cyclotest(n,btor,3,r) = false or irem(nr,5) = 0 and cyclotest(n,btor,5,r) = false or irem(nr,7) = 0 and cyclotest(n,btor,7,r) = false then
  20       return false
         end if;
  21     if isqrt(n)^2 = n then
  22       return false
         end if;
  23     for p from 3 while numtheory:-jacobi(p^2-4,n) <> -1 do
  24       NULL
         end do;
  25     return evalb(TraceModQF(p,n+1,n) = [2, p])
       end if
end proc