Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
alumind
0 / 0 / 0
Регистрация: 07.07.2014
Сообщений: 6
1

Построить эпициклоиду

26.07.2014, 17:47. Просмотров 952. Ответов 1
Метки нет (Все метки)

X=(a+b)*Cos(t)-a*Cos((a+b)*t/a); Y=(a+b)*Sin(t)-a*Sin((a+b)*t/a); a=12; b=5; 0 <= t<= 2*PI
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.07.2014, 17:47
Ответы с готовыми решениями:

Построить эпициклоиду
Здраствуйте. Нужно нарисовать циклоиду: ...

Построить эпициклоиду
Здраствуйте. Помогите построить эпициклоиду: x=(a+b)*cos(t)-a*cos((a+b)*t/a)...

Построить эпициклоиду, заданный функцией
Все написал, весь код, но потом стал выходить ошибка нельзя преобразовать тип...

Построить эпициклоиду по заданным параметрическим уравнениям
Построить эпициклоиду по заданным параметрическим уравнениям...

Delphi - Построить эпициклоиду по заданным параметрическим уравнениям
Построить эпициклоиду по заданным параметрическим уравнениям...

1
The trick
Модератор
7371 / 2587 / 757
Регистрация: 22.02.2013
Сообщений: 3,801
Записей в блоге: 76
26.07.2014, 18:03 2
Лучший ответ Сообщение было отмечено alumind как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
 
Private Sub Form_Load()
    Dim x As Single, y As Single, a As Single, b As Single, t As Single, col As Long
    AutoRedraw = True: Scale (-28, -28)-(28, 28): DrawMode = vbXorPen
    ' ГЋГ±ГЁ ГЁ Г±ГҐГІГЄГ*
    For t = ScaleLeft To ScaleLeft + ScaleWidth Step 4
        If t = 0 Then col = vbYellow Else col = &H101010
        Line (t, ScaleTop)-Step(0, ScaleHeight), col: CurrentY = 0: Print t
        Line (ScaleLeft, t)-Step(ScaleWidth, 0), col: CurrentX = 0: Print t
    Next
    ' ÝïèöèêëîèäГ*
    a = 12: b = 5
    For t = 0 To 6.28 Step 0.01
        x = (a + b) * Cos(t) - a * Cos((a + b) * t / a)
        y = (a + b) * Sin(t) - a * Sin((a + b) * t / a)
        If t = 0 Then PSet (x, y) Else Line -(x, y), vbCyan
    Next
End Sub
1
Миниатюры
Построить эпициклоиду  
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.07.2014, 18:03

Построить эпициклоиду — кривую, заданную параметрическим уравнением
Построить эпициклоиду - кривую, заданную параметрическим уравнением x=(a+b)...

Нарисовать эпициклоиду за 3600 шагов
Нарисовать эпициклоиду за 3600 шагов: x:=320+round(6.2Rsin(t)+Rsin(6.2t));...

Нужно построить график функций, вычислить и построить диаграмму и сделать легенду.
http://rghost.ru/private/51147973/42d3fdac651f8296a3ad0c7b14f1686e Нужно...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru