Помогите с задачкой:
нужно изобразить продольный разрез выставочного зала, заданого функцией в полярных координатах
R=1-cos(f)
как это делается в Excel
Полная версия: Excel
Цитата(Yurka @ 4.10.2006 13:01) 
изобразить продольный разрез выставочного зала, заданого функцией в полярных координатах
R=1-cos(f)
как это делается в Excel
Зал задан функцией?..
Разрез вдоль чего?..
И при чем тут электронные таблицы??
И что будет выставляться в этом зале?..
Что ты имеешь в виду? нарисовать график этой функции?
PS
перечитал несколько раз.. Может, я отстал от жизни и теперь в Экселе делается все - от шоу-рума до кирпичной кладки?..
Цитата(lapp @ 4.10.2006 12:14)
перечитал несколько раз.. Может, я отстал от жизни и теперь в Экселе делается все - от шоу-рума до кирпичной кладки?..
я написал условие которое в контрольной работе есть. вот такие задания ставят сейчас ), только как их делать...
Цитата(Yurka @ 4.10.2006 13:19)
только как их делать...
Я не спец по Excel. Думаю, что надо просто построить график написанной функции (или хотя бы начать с этого). Как - не знаю, но как-то можно..
Цитата(lapp @ 4.10.2006 16:19)
Я не спец по Excel. Думаю, что надо просто построить график написанной функции (или хотя бы начать с этого). Как - не знаю, но как-то можно..
Воть.. Построено в Advanced Grapher.
Цитата(Clerick @ 4.10.2006 14:55)
Воть.. Построено в Advanced Grapher.
Спасибо, ещи бы узнать кака в Excel это делается
обычный график y=f(x) строится легко:
http://festival.1september.ru/2005_2006/in...mb_artic=314747
может, перейти от полярных координат к обычным?
кстати, к контрольным обычно идут примеры выполнения или метод. указания... неужели ничего не было?
http://festival.1september.ru/2005_2006/in...mb_artic=314747
может, перейти от полярных координат к обычным?
кстати, к контрольным обычно идут примеры выполнения или метод. указания... неужели ничего не было?
У меня вот что получилось:
Вот так это выглядит:
Код
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
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
Вот так это выглядит:
Цитата(volvo @ 6.10.2006 12:30)
У меня вот что получилось:
...
Да, ты силён и могуч
Это преподавателя наверно обрадует
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.