## 96 Reputation

11 years, 128 days

## Hi Doug   Thank you for...

Hi Doug

It might be that I do not fully understand what you are writting but I cannot see that the precision of the numbers in the expression is the problem.

The following two equivalent expressions gives two different results.

(exp(-I*Pi))^(1/2-(1/100)*(I*8)); evalf(%);
exp(-I*Pi*(1/2))*exp(-8*Pi*(1/100)); evalf(%);

1.285730980*I and -.7777676792*I, respectivly.

## By the way I'm using maple 13...

By the way I'm using maple 13

## Hi Robert This also saves...

Hi Robert

This also saves the image  to something that looks like a very hard compressed jpeg picture.

Could someone please try this exampl:

> restart;
> with(plots);
>
> CEQ1 := .9875000000*(exp(I*Pi*(lambda+I*epsilon)))^2+1.012500000;
> P := plot3d([subs(abs(CEQ1))], lambda = -1/2 .. 10*(1/2), epsilon = -.3 .. .7, axes = boxed, grid = [70, 70]);
> plotsetup(eps, plotoutput = "c:/myplot.eps", plotoptions = "portrait,noborder,height=3in,width=3in,leftmargin=0in,bottommargin=0in");
> P;
> plotsetup(default);
>

The two above mentioned methods for exporting eps pictures works only for simpler graphs.

Regards Brian

## Hi I agree that...

Hi

I agree that this works with some graphs. I worked with a simple 2 plot. When I do the same with a 3d plot with a lot "data" it does not export it as a vectorized picture. The following example cannot be exported:

CEQ1.9875000000*(exp(I*Pi*(1/2-(0.1250065125e-1*I)/Pi)))^2+1.012500000;
plot3d([subs(abs(CEQ1))], lambda = -1/2 .. 10*(1/2), epsilon = -.3 .. .7, axes = boxed, grid = [70, 70]);

Hi Joe

Regards Brian

## Hi Thank you for your...

Hi

Thank you for your answer. I can now do the following which was what I wanted.

> unassign(phi[0])

> diff(phi[0](z), z)

> phi[0] := z -> a*z

> diff(phi[0](z), z)

Hi Robert