Аналитика

Цифровая фотограмметрия, картография и землеустройство
Текущее время: 28 мар 2024 16:05

Часовой пояс: UTC + 2 часа




Начать новую тему Ответить на тему  [ Сообщений: 5 ] 
Автор Сообщение
 Заголовок сообщения: 3d площадь????
СообщениеДобавлено: 18 мар 2014 15:15 
Специалист
Специалист

Зарегистрирован:
30 дек 2010 15:49
Сообщения: 24
Здраствуйте! возникла проблема! нужно измерять площадь полей на больших уклонах....площадь на плоскости известна, но уклони большие нужно вичислить площадь конкретного многоугольника построенного по трем координатам или же конкретной 3d плокости????


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: 3d площадь????
СообщениеДобавлено: 18 мар 2014 15:29 
Гуру
Гуру

Зарегистрирован:
01 мар 2008 11:46
Сообщения: 218
меня в институте учили что площадь только на плоскости((((


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: 3d площадь????
СообщениеДобавлено: 18 мар 2014 17:34 
Гуру
Гуру

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 2298
Откуда: Vinnytsia
romchik писал(а):
Здраствуйте! возникла проблема! нужно измерять площадь полей на больших уклонах....площадь на плоскости известна, но уклони большие нужно вичислить площадь конкретного многоугольника построенного по трем координатам или же конкретной 3d плокости????

Скрипт вычисляет площадь (кв.м.) помеченного треугольника
Код:
$SO=@Map.SelectedObject
$C=@Map.Object[$SO].Count
@if $C<>4 then @Break Помеченный объект не является треугольником
$Cl=@Map.Object[$SO].Closed
@if $Cl=0 then @Break Помеченный объект разомкнут
$XYZ1=@Map.Object[$SO].Point[1]
$X1=@StringPart 1 $XYZ1
$Y1=@StringPart 2 $XYZ1
$Z1=@StringPart 3 $XYZ1
$XYZ2=@Map.Object[$SO].Point[2]
$X2=@StringPart 1 $XYZ2
$Y2=@StringPart 2 $XYZ2
$Z2=@StringPart 3 $XYZ2
$XYZ3=@Map.Object[$SO].Point[3]
$X3=@StringPart 1 $XYZ3
$Y3=@StringPart 2 $XYZ3
$Z3=@StringPart 3 $XYZ3
$AX=$X2-$X1
$AY=$Y2-$Y1
$AZ=$Z2-$Z1
$BX=$X3-$X1
$BY=$Y3-$Y1
$BZ=$Z3-$Z1
$VI=$AY*$BZ-$AZ*$BY
$VJ=$AZ*$BX-$AX*$BZ
$VK=$AX*$BY-$AY*$BX
$Area3D=@Calc 0.5*(sqrt($VI*$VI+$VJ*$VJ+$VK*$VK))
@Dialog.Message $Area3D


P.S. С многоугольниками сложнее, потому как их можно по разному разбить на треугольники и соответственно результат может отличатся.

_________________
Команда разработчиков Digitals
(наш e-mail и ICQ находятся в меню Помощь|О программе)
Новичкам сюда | Новые возможности программы | Купить Digitals


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: 3d площадь????
СообщениеДобавлено: 18 мар 2014 20:31 
Гуру
Гуру

Зарегистрирован:
01 мар 2008 11:46
Сообщения: 218
romchik если Вам не трудно выложите результаты на сколько разница по площадям в плане и 3Д, спасибо


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: 3d площадь????
СообщениеДобавлено: 20 мар 2014 16:56 
Гуру
Гуру

Зарегистрирован:
26 фев 2007 12:04
Сообщения: 1751
Откуда: Vinnitsa
Можно обойтись без скрипта. Для TIN (ЦМР>Создать TIN) расчитывается площадь поверхности, а не площадь проекции на горизонтальную плоскость как для всех полигонов. Пробуйте.

_________________
Команда разработчиков Digitals
(наш e-mail и ICQ находятся в меню Помощь|О программе)
Новичкам сюда | Новые возможности программы | Купить Digitals


Вернуться к началу
 Профиль Отправить email  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 5 ] 

Часовой пояс: UTC + 2 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 114


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB