Введение в Maple и рассмотрение задач теоретической механики. Эксаревская М.Е - 23 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

23
> plot3d(sin(x^2 + y^2), x = -Pi / 2 .. Pi / 2,
y = -Pi / 2 .. Pi / 2, color = white);
При построении графика поверхности, заданной параметрически,
процедура
plot3d записывается следующим образом:
plot3d([x(s, t), y(s, t), z(s, t)], s = s1 .. s2,
t = t1 .. t2, options);
> plot3d(1, s = Pi / 3 .. 2 * Pi, t = 0 .. Pi,
coords = spherical, color = white);
4. Анализ задач теоретической механики
4.1. Кривошипно-шатунный механизм
> restart:
> with(plots):
with(plottools):
> draw1 := proc(phi)
local
OA, AB, AC, h, psi,
point1, point2, point3, point4, pointA, pointB, pointC,
lineOA, lineAB, кривошип, шатун, ползун,
шарнирO, шарнирA, шарнирB, textA, textB, textC;
OA := 35; AB := 70; AC := 45; h := .35;
point1 := [h*cos(phi+Pi/2), h*sin(phi+Pi/2)];
point2 := [h*cos(phi+Pi/2) + OA*cos(phi),
h*sin(phi+Pi/2) + OA*sin(phi)];
point3 := [point2[1] + 2*h*cos(phi+3*Pi/2),
point2[2] + 2*h*sin(phi+3*Pi/2)];
point4 := [h*cos(phi+3*Pi/2), h*sin(phi+3*Pi/2)]; 
    > plot3d(sin(x^2 + y^2), x = -Pi / 2 .. Pi / 2,
      y = -Pi / 2 .. Pi / 2, color = white);




     При построении графика поверхности, заданной параметрически,
процедура plot3d записывается следующим образом:
    plot3d([x(s, t), y(s, t), z(s, t)], s = s1 .. s2,
    t = t1 .. t2, options);
    > plot3d(1, s = Pi / 3 .. 2 * Pi, t = 0 .. Pi,
      coords = spherical, color = white);




     4. Анализ задач теоретической механики

     4.1. Кривошипно-шатунный механизм

> restart:
> with(plots):
  with(plottools):
> draw1 := proc(phi)
    local
      OA, AB, AC, h, psi,
      point1, point2, point3, point4, pointA, pointB, pointC,
      lineOA, lineAB, кривошип, шатун, ползун,
      шарнирO, шарнирA, шарнирB, textA, textB, textC;
    OA := 35; AB := 70; AC := 45; h := .35;
    point1 := [h*cos(phi+Pi/2), h*sin(phi+Pi/2)];
    point2 := [h*cos(phi+Pi/2) + OA*cos(phi),
               h*sin(phi+Pi/2) + OA*sin(phi)];
    point3 := [point2[1] + 2*h*cos(phi+3*Pi/2),
               point2[2] + 2*h*sin(phi+3*Pi/2)];
    point4 := [h*cos(phi+3*Pi/2), h*sin(phi+3*Pi/2)];


                                 23

Страницы