Partner1
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Видать без циклов не обойтись 
можно построить так (я не знаю, что за функция ft6),
при одних параметрах Minimize и Maximize работает, при других нет
смотри сам. (Menu Edit/Paste Maple Text)
>with(Optimization):
>ft6:=(R,d0,theta,t,p)->(R-theta)^2 + (t+p)^2+d0:
> Delta:=proc(R,d0,theta)
> local m1,m2:
> m1:=Minimize((ft6(R,d0,theta,t,25)-ft6(R,d0,theta,25,25))/ft6(R,d0,theta,25,25),{t<=120,t>=-100},initialpoint={t=25})[1]:
> m2:=Maximize((ft6(R,d0,theta,t,25)-ft6(R,d0,theta,25,25))/ft6(R,d0,theta,25,25),{t<=120,t>=-100},initialpoint={t=25})[1]:
> abs(m2-m1):
> end proc:
> plots:-pointplot({seq([a,Delta(1,1,a)],a=-5..5,0.01)});
|
