Аналитика

Цифровая фотограмметрия, картография и землеустройство
Текущее время: 20 ноя 2017 17:03

Часовой пояс: 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
Сообщения: 1863
Откуда: Vinnitsa
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 часа


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

Сейчас этот форум просматривают: Руслан Пархуць и гости: 8


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

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