Excel Опции

[Yurka]

Помогите с задачкой:
нужно изобразить продольный разрез выставочного зала, заданого функцией в полярных координатах
R=1-cos(f)
как это делается в Excel

[Lapp]

изобразить продольный разрез выставочного зала, заданого функцией в полярных координатах
R=1-cos(f)
как это делается в Excel

Зал задан функцией?..
Разрез вдоль чего?..
И при чем тут электронные таблицы??
И что будет выставляться в этом зале?..

Что ты имеешь в виду? нарисовать график этой функции?

PS
перечитал несколько раз.. Может, я отстал от жизни и теперь в Экселе делается все - от шоу-рума до кирпичной кладки?..

[Yurka]

перечитал несколько раз.. Может, я отстал от жизни и теперь в Экселе делается все - от шоу-рума до кирпичной кладки?..

я написал условие которое в контрольной работе есть. вот такие задания ставят сейчас ), только как их делать...

[Lapp]

только как их делать...

Я не спец по Excel. Думаю, что надо просто построить график написанной функции (или хотя бы начать с этого). Как - не знаю, но как-то можно..

[Clerick]

Я не спец по Excel. Думаю, что надо просто построить график написанной функции (или хотя бы начать с этого). Как - не знаю, но как-то можно..

Воть.. Построено в Advanced Grapher.

[Yurka]

Воть.. Построено в Advanced Grapher.

Спасибо, ещи бы узнать кака в Excel это делается

[мисс_граффити]

обычный график y=f(x) строится легко:
http://festival.1september.ru/2005_2006/in...mb_artic=314747
может, перейти от полярных координат к обычным?
кстати, к контрольным обычно идут примеры выполнения или метод. указания... неужели ничего не было?

[volvo]

У меня вот что получилось:

Код

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

Вот так это выглядит:

[Yurka]

У меня вот что получилось:
...

Да, ты силён и могуч
Это преподавателя наверно обрадует