Помощь - Поиск - Пользователи - Календарь
Полная версия: Excel
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Ада и другие языки
Yurka
Помогите с задачкой:
нужно изобразить продольный разрез выставочного зала, заданого функцией в полярных координатах
R=1-cos(f)
как это делается в Excel
Lapp
Цитата(Yurka @ 4.10.2006 13:01) *

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

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

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

PS
перечитал несколько раз.. Может, я отстал от жизни и теперь в Экселе делается все - от шоу-рума до кирпичной кладки?.. sad.gif
Yurka
Цитата(lapp @ 4.10.2006 12:14) *


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

я написал условие которое в контрольной работе есть. вот такие задания ставят сейчас ), только как их делать...
Lapp
Цитата(Yurka @ 4.10.2006 13:19) *

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

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

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

Воть.. Построено в Advanced Grapher. smile.gif
Yurka
Цитата(Clerick @ 4.10.2006 14:55) *

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

Спасибо, ещи бы узнать кака в 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
Цитата(volvo @ 6.10.2006 12:30) *

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

Да, ты силён и могуч good.gif
Это преподавателя наверно обрадует smile.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.