Помогите с задачкой:
нужно изобразить продольный разрез выставочного зала, заданого функцией в полярных координатах
R=1-cos(f)
как это делается в Excel
Excel |
1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным.
В описании темы указываем язык!!!
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
Excel |
Yurka |
Сообщение
#1
|
Пионер Группа: Пользователи Сообщений: 143 Пол: Мужской Репутация: 0 |
Помогите с задачкой:
нужно изобразить продольный разрез выставочного зала, заданого функцией в полярных координатах R=1-cos(f) как это делается в Excel |
volvo |
Сообщение
#2
|
Гость |
У меня вот что получилось:
Код Sub Show_Click() Dim angle As Integer, r As Double Dim centerX, centerY As Integer Const Pi = 3.1415926 Const a = 100 centerX = ActiveWindow.Width / 2 centerY = ActiveWindow.Height / 4 For angle = 0 To 359 r = 1 - Cos(angle / (180 / Pi)) ActiveSheet.Shapes.AddShape(msoShapeOval, centerX + a * (r * Cos(angle / (180 / Pi))), centerX + a * (r * Sin(angle / (180 / Pi))), 2#, 2#).Select Next angle End Sub ' Clear - для удаления всех точек, образующих график, с листа Excel Sub Clear_Click() Dim shp As Shape For Each shp In ActiveWorkbook.ActiveSheet.Shapes If shp.AutoShapeType = msoShapeOval Then shp.Delete Next shp End Sub Вот так это выглядит: Эскизы прикрепленных изображений |
Текстовая версия | 3.05.2024 14:50 |