## 135 Reputation

13 years, 262 days

## max (a,u)...

maximize((alpha+(l+alpha)*u+alpha*k*u^2)*a=u*(alpha+(l+alpha)*u+alpha*k*u^2)*(1+l*alpha*b/((alpha+(l+alpha)*u+alpha*k*u^2))), u=0.5..1, location);

i.e vales of (a,u)

Best regards

## substitute...

Dear,

thanks again,

becuse of the function is expilicit it is not easy to find values of n if values of K known

for example:

(3.6631021787038-0.1,N)

but I believe you have a way to substitute K in the equaion to get N.

## Value of N...

@Kitonum Thanks, how can I get the values of N at the maximum and minimum points, respectivily.

(3.663102179, N  ) and (3.019929556, N)

## 4*Pi and 5*Pi...

Ya I meant tau:=4*Pi: and 5*Pi:

P4:=plot(Spec,-10..10,....):

Normalize:= proc(P4::specfunc(anything, PLOT))
local A,Smax1;
A:= op([1,1], P4);
Smax1:= max(A[..,2]);
if A::list then A:= Matrix(A) end if;
A[..,2]:= A[..,2]/Smax1;
subsop([1,1]= A, P4)
end proc:

P4:= Normalize(P4);

P4:= plottools:-translate(Normalize(P4), 0, 1):

the same for P5 after setting one of the parameter (tau:=5*Pi)

display([P1,P2,P3,P4,P5]);

Plots p1,P2 and P3 are OK

But P4 and P5 doesnt... we are close, Please copy the above commands

## same as P1 but for different tau...

P4 and P5 are for tau:= 4Pi and 5Pi, respecetiviely.

P4:=plot(Spec,-10..10,....):

Normalize:= proc(P4::specfunc(anything, PLOT))
local A,Smax1;
A:= op([1,1], P4);
Smax1:= max(A[..,2]);
if A::list then A:= Matrix(A) end if;
A[..,2]:= A[..,2]/Smax1;
subsop([1,1]= A, P4)
end proc:

P4:= Normalize(P4);

P4:= plottools:-translate(Normalize(P4), 0, 1):

the same for P5 after setting one of the parameter (tau:=5Pi)

display([P1,P2,P3,P4,P5]);

Many thanks.

## P4 and P5...

Thanks.. but why its works for the three plots only doesnt work with P4 and P5

do I have to change the

Normalize:= proc(P1::specfunc(anything, PLOT))
local A,Smax1;
A:= op([1,1], P1);
Smax1:= max(A[..,2]); # what is 2 stand for????

if A::list then A:= Matrix(A) end if;
A[..,2]:= A[..,2]/Smax1;
subsop([1,1]= A, P1)
end proc:

#P4:= plottools:-translate(Normalize(P4), 0, 3):
#P5:= plottools:-translate(Normalize(P5), 0, 4):

## Thanks the plot P is for tau:Pi and plot...

Thanks

the plot P is for tau:Pi

and plot P2 is for tau:=2*Pi:

P3:=...

P4:..

then display in one  figure as translate as u did.

any idea! looking forward to hear from you

## normalised by its maximum...

Dear Carl:

I did like this:

P1:=plot(Spec/Smax,...);

P2:=plt((Spec+1)/Smax,..);

P3:=plot((Spec+2)/Smax,...);

P4:=plt((Spec+3)/Smax,..);

then display all plots.. but ur code works for the first plot...

each plot normalized by its maximum

Do have any ideas??

## shifted plot...

the first plot end at 1 and the second one start at one end at 2 this can be by ur comman??

## Many thanks seems it works but first: I ...

Many thanks seems it works but first: I want to plot P1:=plot(Spec,-10..10,options);then P2:=plot(Spec+1,-10..10,options);P3:=plot(Spec+2,-10..10,options)....

I use ur code but change print to display and changing P1, P2 respectiviely

A:= Matrix(op([1,1], P2)):
Smax1:= max(A[..,2]):
A[..,2]:= A[..,2]/Smax1:
P2:= subsop([1,1]= A, P2):
display(P1,P2);

now the first plot is ok but for P2 it doesnt start from 1??

Q2:

still it takes long time when setting the parameters theta and Phi other than 0..

many many thanks that was useful

## Thanks now this work now plz what can i ...

Thanks now this work

now plz what can i do regarding changing the parameters

many many thanks

## i dont know why these parameters th...

i dont know why these parameters theta:=Pi/3;phi:=Pi;

still take long time and i stoped it.

plz wiating for ur further comments

Dear Carl