IPB
ЛогинПароль:

> Внимание!

1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным. В описании темы указываем язык!!!

 
 Ответить  Открыть новую тему 
> Excel
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 143
Пол: Мужской

Репутация: -  0  +


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


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(Yurka @ 4.10.2006 13:01) *

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

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

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

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


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Пионер
**

Группа: Пользователи
Сообщений: 143
Пол: Мужской

Репутация: -  0  +


Цитата(lapp @ 4.10.2006 12:14) *


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

я написал условие которое в контрольной работе есть. вот такие задания ставят сейчас ), только как их делать...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(Yurka @ 4.10.2006 13:19) *

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

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


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


студент..
***

Группа: Пользователи
Сообщений: 287
Пол: Мужской
Реальное имя: Дмитрий

Репутация: -  2  +


Цитата(lapp @ 4.10.2006 16:19) *

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

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


Эскизы прикрепленных изображений
Прикрепленное изображение

--------------------
После дождя обязательно выглянет солнце)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Пионер
**

Группа: Пользователи
Сообщений: 143
Пол: Мужской

Репутация: -  0  +


Цитата(Clerick @ 4.10.2006 14:55) *

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

Спасибо, ещи бы узнать кака в Excel это делается
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


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


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Гость






У меня вот что получилось:
Код
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


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


Эскизы прикрепленных изображений
Прикрепленное изображение
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Пионер
**

Группа: Пользователи
Сообщений: 143
Пол: Мужской

Репутация: -  0  +


Цитата(volvo @ 6.10.2006 12:30) *

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

Да, ты силён и могуч good.gif
Это преподавателя наверно обрадует smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 22.11.2017 17:57
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"