My colleague and I are revising a paper which contains some 3dplots generated I think originally in Maple 2015 on macos as eps converted to pdf.  Originally they were around the 100 KB size.  When I generate them again in Maple 2017 they are more like 10 MB.  He is still running Maple 2015 and get the same 100 KB size.  Any idea what is going on here ?  

Thanks Michael

EDIT:  An example is 

with(plots);
plotsetup(postscript, plotoutput = `test.eps`, plotoptions = `color,portrait,height=350,width=350`);
plot3d(x^2+y^2+1, x = -1 .. 1, y = -1 .. 1, axes = boxed, grid = [200, 200]);

I get 7.6 MB my colleague with Maple 2015 gets 56 KB.  I tried it wtih Maple 2017 on a server I have access to also 7.6 MB.

my_euler := proc (func_y, x_value, y_value, n, h) 
local point_list, d_x, true_f, true_f_v; point_list := [10^(-n), 0, n]; 
true_f := unapply(func_y, x, y); 
d_x := abs(point_list[2]-point_list[3]); 
while d_x < point_list[1] do 
    true_f_v := true_f(x_value, y_value); 
    y_value := y_value+h*true_f_v; 
    x_value := x_value+h 
end do; 
return y_value 
end proc

I am using Maple to implement Euler's method, it requires 5 parameters:

• func_y (The general form of ODE)
• x_value
• y_value
• n (The accurate digits, I do not know how to control the accurate digits)
• h (The step size)

So, I do not how to control accurate digits (4 accurate digits), can you teach me how to finish this part?

I am using Maple to load well-behaved function data (512 points) and using ArrayInterpolation integrate it:

.

While the simple integral        outputs a number, if I add another variable like       it just outputs        (obviously the integral is more complex but this just shows the principle).

  gives and error 'invalid input: coordinates of xvalues must be of type numeric'. Does anyone know the syntax to make this integral evaluate numerically?

I really wouldn't want to use     or   because as far as I have tried they are really slow and incompatable respectively. Actual document below.

Much thanks in advance.

Download Au_Scattering.mw

Download AB.mw

hello everyone, I had mistake from maple plot.

Can someone help me with animation my plot

restart;
with(plots);

with(plottools);

K := 48;
R1 := 30; R2 := 20; OA := R1+R2;
Vodilo := PLOT3D(cuboid([-3, -3, 0], [OA+4, 4, 2]));

Koleso1 := PLOT3D(cylinder([0, 0, 5], R1, 18), cylinder([0, 0, -2], 1, 16));
Koleso2 := PLOT3D(cylinder([0, 0, 7], R2, 6), cylinder([0, 0, -2], 1, 16));
for i from 0 to K do  end do;

Amplituda := .3;
phi := sin(6.28*i/K)*Amplituda;

phi1 := phi*(R1+R2)/R2;

P1 := rotate(Koleso2, 0, 0, -phi1);

P2 := rotate(Vodilo, 0, 0, -phi);

x := OA*cos(phi); y := OA*sin(phi);

P[i] := display(Koleso1, translate(P1, x, y, 0), P2);

display(seq(P[i], i = 0 .. K), orientation = [55, 101], insequence = true, scaling = constrained, axes = normal);
Error, (in plots:-display) expecting plot structure but received: P[0]

I don't understand why maple is ignoring my predicate in this worksheet



Maple Worksheet - Error

Failed to load the worksheet /maplenet/convert/Task_List_Win10.mw .
 

Download Task_List_Win10.mw

Dear all

I hope to find the maximum of a given function or show that the maximum is negative.

negative_maximum.mw

many thanks for your help

Why is it that maple produces an incorrect answer in this command:

`assuming`([RealDomain[solve](sec(x) = sqrt(2), {x}, useassumptions)], [x > 3*Pi*(1/2) and x < 2*Pi])

and no answers in this command:

RealDomain[solve]({x > 3*Pi*(1/2), sec(x) = sqrt(2), x < 2*Pi}, {x})

???  Please help???

I'm trying to solve a linear first order PDE with polynomial coeffients in Maple. I need to find homogeneous polynomial solutions for the PDE. Although there is PolynomialSolutions option in PDEtools, the polynomial solution obtained from this method is not homogeneous. I want the polynomial solutions to be homogeneous because, for higher degree polynomial solution the calculations are very slow. By the solutions being homogeneous, I can cut down all the unnecessary calculations of finding the lower order terms. So, how do I do this?

Since maple doesn't have mp3 support, the best we can do is just convert to a supported file type and go from there.  We can actually use maple's system command to work within maple to accomplish this and other tasks.  Actually someone using Matlab created an FFmpeg tool package - something similar could also be done with Maple.

So first you need to load the free open source FFmpeg software into your machine.  I'm using windows so Unzip into a folder then into right click on mycomputer go into properties advanced and add a new environment variable.

However I'm having a problem using the ssystem command.  The system command actually works fine, so I don't know if it's an issue with my format of the command or maybe it's a bug within the Maple 18 that I'm currently working in (perhaps it works on the newer versions) so here's the script

system("ffmpeg -i c:/test/test.mp3") #works fine outputed in a new window displays info about specified file

ssystem("ffmpeg -i c:/test/test.mp3") #maple is busy sitting executing with nothing happening

However this works,

ssystem("ffmpeg -version") #does output into Maple just information of the ffmpeg software version

so I suspect something to do with the file formatting??  Any ideas why ssystem doesn't output into maple using a file location?

Dear all

I tried to minimize a function but maple 18 does not return any solution.

minimize(sqrt(1-(4*(x-1))*(1-y)/(x^2*(1+y))), x = 3 .. 4, y = 0 .. 1, location)

thanks for any help

Hi, when trying to solve 2 equations with 2 variables the fsolve function reutrns just expression instead of numerical solution. Can someone please help with this? Thanks a lot

NRTL.mw
 

Download NRTL.mw

I used text math input, finding parenthesis is very difficult sometimes.

It would be very nice if parenthesis were color coded OR coloring of the texted was based on parenthetical depth.

E.g.,

display(plot(something(or another)))

How to make an animation that secant lines of f(x) = sin(x) through x = 1 approach the
tangent line 

Hello,

I obtained a mode shape from a vibration problem.

I want to normalized mode shape for the comparison of responses corresponding to different modes.

How I can normalize the mode shape that provided in the maple file?

The figure corresponds to this mode shape is plotted that is attached.

Thanks

mode_shapes.mw

Download mode_shapes.mw

Download mode_shapes.mw