 Линза, Помогите нарисовать линзу! |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| ODVk |
 21.01.2011 19:19
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Репутация:  0   |
.
Сообщение отредактировано: ODVk - 23.01.2011 20:10 |
   |
 
|
  |
Ответов
| TarasBer |
21.01.2011 21:39
Сообщение
#2
|
 Злостный любитель  Группа: Пользователи Сообщений: 1 755 Пол: Мужской Репутация: 62 |
В общем для двояковыпуклой линзы для радиусов r1 и r2
координаты центров будут x1 := Width div 2 + sqrt(sqr(r1)-sqr®) и x2 := Width div 2 - sqrt(sqr(r2)-sqr®) а углы будут +-arctg(R/x1) и 180+- arctg(R/x2); -------------------- |
|
|
|
Сообщений в этой теме
ODVk Линза 21.01.2011 19:19
Lapp [b]Пожалуйста, помогите нарисовать линзу, но чтобы... 21.01.2011 20:38 ODVk . 21.01.2011 21:14 TarasBer Эти дуги имеют разные угловые величины, а ты в код... 21.01.2011 21:30 ODVk . 21.01.2011 21:35 ODVk . 21.01.2011 21:45 TarasBer Для вогнуто-выпуклой так:
То же самое, но для x2 ... 21.01.2011 21:49 мисс_граффити ODVk, и зачем ты это сделал? 24.01.2011 9:14 -TarasBer- Опять небось боится, чтобы его училка запалила.
По... 24.01.2011 10:42
volvo Куда уж ужимать-то? Раньше было 43200 минут = 30 с... 24.01.2011 11:25 Lapp Раньше было 43200 минут = 30 суток. Сейчас ужали д... 24.01.2011 21:23 |
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 31.07.2025 9:49 |