Maple в инженерных расчетах. Коптев А.А - 41 стр.

UptoLike

ВУЗ: 

ТГТУ | Тамбов

Составители: 

Рубрика: 

Оператор ветвления можно задавать в форме функции, при этом if должно быть заключено в обрат-
ные кавычки:
`if `(условие, истинное выражение, ложное выражение)
Например,
> d:=4;
`IF`(D>=0, `ЕСТЬ ДЕЙСТВИТЕЛЬНЫЕ КОРНИ.`, `ДЕЙСТВИТЕЛЬНЫХ КОРНЕЙ НЕТ !!!`);
:= d 4
Е
сть действительные корни.
> d:=-2;
`if`(d>=0, `Есть действительные корни.`, `Действительных корней нет !!!`);
:= d -2
Д
ействительных корней нет !!!
Циклы в Maple можно задавать двух типов: for-to и while.
[ for <имя> ] [ from <выражение> ] [ by < выражение > ]
[ to < выражение > ] [ while < выражение > ]
do < последовательность операторов > end do;
или
[ for <имя> ] [ in < выражение > ] [ while < выражение > ]
do < последовательность операторов > end do;
По умолчанию значения выражений from и by равны единице.
Приведем примеры использования циклов. В следующем примере организован цикл по переменной
k от нуля до 3 с шагом 0,5.
> for k from 0 to 3 by 0.5 do print(k) end do;
0
0.5
1.0
1.5
2.0
2.5
3.0
Выше, при рассмотрении функции fsolve, были найдены два ближайших к нулю корня уравне-
ния
0
2
2
)cos( =
−
+
−
x
x
x
. Принимая во внимание период функции cos(x) нетрудно заметить, что в каждый ин-
тервал [–i⋅π, –i⋅π + π], где i = 1, 2, 3, 4, …, n, попадает только один корень. Следующий пример демонст-
рирует нахождение n первых корней, указанного выше уравнения.
> n:=10;
:= n 10
> for i from 1 to n do
fsolve(cos(x)-(x+2)/(x-2),x=-i*Pi..-i*Pi+Pi);
end do;
-1.662944360
-5.170382990
-7.250409918
-11.78482522
-13.30607789
-18.20951859
-19.46987598

Страницы