Математический форум Math Help Planet
Обсуждение и решение задач по математике, физике, химии, экономике Теоретический раздел |
Часовой пояс: UTC + 3 часа [ Летнее время ] |
новый онлайн-сервис число, сумма и дата прописью |
|
Часовой пояс: UTC + 3 часа [ Летнее время ] |
Страница 1 из 1 |
[ Сообщений: 2 ] |
|
Автор | Сообщение | |
---|---|---|
Susanna Gaybaryan |
|
|
> M1 := 2*Pi*(Int(((Diff(W, I1))*(Diff(I1, psi))+(Diff(W, I2))*(Diff(I2, psi)))*r, r = 0 .. r[0])) = 2*Pi*(int((1/5)*mu*r^2*(psi-alpha[0]*sqrt(lambda))*(5*lambda+1)/lambda^2*r, r = 0 .. r[0])); >mu := 1; r[0] := 1; M := unapply(evalf(rhs(M1)), psi, lambda, alpha[0]) >col := [red, blue, black, gray, yellow, cyan, green, orange, magenta, gold, khaki]; N := 10; alpha0 := .5 >i := 1; for alpha from -alpha0 to alpha0 by 0.1 do gMpsi[i] := plot(M(x, 1, alpha), x = -.5 .. .5, color=col[i], thickness=2); i := i+1; end do: K := i-1; >display([seq(gMpsi[i], i = 1 .. K)]) Получила 11 прямых. Мне нужно подписать каждую прямую alpha[0]=-0.5, alpha[0]=-0.4 ... alpha[0]=0.5. Как это сделать? |
||
Вернуться к началу | ||
Kitonum |
|
|
На вашем примере два способа подписать графики:
1. С помощью опции legend . 2. Используя команду plots:-textplot , подпись рядом с каждым графиком. restart; |
||
Вернуться к началу | ||
За это сообщение пользователю Kitonum "Спасибо" сказали: Susanna Gaybaryan |
||
[ Сообщений: 2 ] |
Часовой пояс: UTC + 3 часа [ Летнее время ] |
Кто сейчас на конференции |
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4 |
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете добавлять вложения |