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