шара » Поиск

Результаты по ключевому слову: шара

Как в 1С посчитать расстояние между двумя географическими координатами?

На одном проекте была платная работа с картами и отображением складов на них, часто требовалось рассчитать расстояние между географическими координатами.

Земля может быть описана как сфера, поэтому для вычисления расстояния между точками на поверхности земли мы можем использовать уравнения для расчета сферического расстояния большого круга. При расчете мы берем сферу радиусом 6372795 метров. Ввиду того что земля на самом деле не сфера, а эллипсоид, - пограшность вычисления расстояния может составлять около 0.5%.

В результате были использованы следующие функции:

Код 1C v 8.3

 

Функция ABS(Число) 

   Если Число<0 Тогда 

       Возврат -1*Число; 

   Иначе 

       Возврат Число; 

   КонецЕсли; 

КонецФункции 



Функция РастояниеВМетрахОтДо(Ширина1,Долгота1,Ширина2,Долгота2)

	Пи=3.14; РадиусЗ = 6372795; 

	Расстояние = РадиусЗ*ATAN(Sqrt(Pow(COS(Пи*Ширина2/180)*SIN(ABS(Пи*Долгота2/180-Пи*Долгота1/180)),2)+Pow(COS(Пи*Ширина1/180)*SIN(Пи*Ширина2/180)-SIN(Пи*Ширина1/180)*COS(Пи*Ширина2/180)*COS(ABS(Пи*Долгота2/180-Пи*Долгота1/180)),2))/(SIN(Пи*Ширина1/180)*SIN(Пи*Ширина2/180)+COS(Пи*Ширина1/180)*COS(Пи*Ширина2/180)*COS(ABS(Пи*Долгота2/180-Пи*Долгота1/180)))); 

	Возврат Расстояние;     

КонецФункции



//Пример 2

Функция ПросчитатьРастояниеОтДо(ШиротаКоординаты1,ДолготаКоординаты1,ШиротаКоординаты2,ДолготаКоординаты2)

//    cos(d) = sin(φА)*sin(φB) + cos(φА)*cos(φB)*cos(λА − λB),

//    где φА и φB & широты, λА, λB & долготы данных пунктов, d & расстояние между пунктами, измеряемое в радианах 

//      длиной дуги большого круга земного шара. 

//    Расстояние между пунктами, измеряемое в километрах, определяется по формуле:

//    L = d·R,

//    где R = 6371 км & средний радиус земного шара.

    Возврат (ASin(sin(ШиротаКоординаты1)*sin(ШиротаКоординаты2) + cos(ШиротаКоординаты1)*cos(ШиротаКоординаты2)*cos(ДолготаКоординаты1 - ДолготаКоординаты2)))*6371;     

КонецФункции

Категория: Полезные, Универсальные Функции

Функция возведения числа в степень, в дробную степень

Для возведения числа в степень в 1С 8.х есть встроенная функция
pow(основание, степень);
Возвращает результат возведения основания в указанную степень.
* основание: число
* степень: число

Код 1C v 8.х

  //Возведем число 5 в степень 3

Результат = pow(5,3);

//Результат = 125





// Вычисление объема шара по значению радиуса

Pi=3.1415926535897932;

Радиус=3;

V=4*Pi*Pow(Радиус,3)/3;

Сообщить("Объем шара с радиусом "+Радиус+" равен "+Формат(V,"ЧДЦ=2"));    



//Пример расчета сложного процента используя POW

Функция СложныйПроцент(Кредит, Ставка, Срок = 1)

	Возврат Кредит*Pow(1 + Ставка/100, Срок); 

КонецФункции

Возведение в дробную степень

Код 1C v 7.x

 

//В диалоговой форме - Лимит, Точность, СамоЧисло(неотрицательное) и //Степень.

Функция ЦелаяСтепень(а,б)

     Результат=1;

     Для К=1 По б Цикл

          Результат=Результат*а;

     КонецЦикла;

     Возврат Результат;

КонецФункции



Функция ЗнаковПослеТочки(Стр)

     Перем К;

     Номер=Найти(Стр,".");

     Если Номер=0 Тогда

          Возврат 0;

     КонецЕсли;

     НачалоНулей=Номер+1;

     Для К=Номер+1 По СтрДлина(Стр) Цикл

          Если Сред(Стр,К,1)<>"0" Тогда

               НачалоНулей=К;

          КонецЕсли;

     КонецЦикла;

     Возврат Макс(НачалоНулей-Номер,0);

КонецФункции



Функция Знак(Ч)

     Если Ч=0 Тогда

          Возврат 0;

     ИначеЕсли Ч>0 Тогда

          Возврат 1;

     Иначе

          Возврат -1;

     КонецЕсли;

КонецФункции



Функция Корень10ВСтепени(Ч,Степень)

     Перем а,б;

     Если Степень<0 Тогда

          Сообщить("Степень <0");

     КонецЕсли;

     _10ВСтепени=ЦелаяСтепень(10,Степень);

     Если _10ВСтепени>1 Тогда

          а=0;

          б=Лимит;

          РезА=Ч-ЦелаяСтепень(а,_10ВСтепени);

          РезБ=Ч-ЦелаяСтепень(б,_10ВСтепени);

          Пока 1=1 Цикл

               Текущее=(а+б)/2;

               Рез=Ч-ЦелаяСтепень(Текущее,_10ВСтепени);

               Если Знак(Рез)*Знак(РезА)<0 Тогда

                    б=Текущее;

               Иначе

                    а=Текущее;

               КонецЕсли;

               Если (а-б<Точность) И (а-б>-Точность) Тогда

                    Возврат Текущее;

               КонецЕсли;

          КонецЦикла;

     ИначеЕсли Степень=1 Тогда

          Возврат Ч;

     Иначе

          Возврат 1;

     КонецЕсли;

КонецФункции



Функция Степень_xyz(f,x,y,z)

     Возврат ЦелаяСтепень(f,x)*ЦелаяСтепень(f,y)/Корень10ВСтепени(f,z);

КонецФункции



Функция ПоложительнаяДробнаяСтепень(а,ПоказательСтепени)

     Перем Знак;

     ЦелаяЧасть=Число(Строка(Цел(ПоказательСтепени)));

     ДрЧасть=Сред(ПоказательСтепени,СтрДлина(Строка(ЦелаяЧасть))+2);

     ВерхДробной=Число(СтрЗаменить(ДрЧасть,".",""));

     Если ВерхДробной>0 Тогда

          ДлинаДробной=ЗнаковПослеТочки(Строка(ПоказательСтепени));

     Иначе

          ДлинаДробной=0;

     КонецЕсли;

     x=ЦелаяСтепень(а,ЦелаяЧасть)*Корень10ВСтепени(ЦелаяСтепень(а,ВерхДробной),ДлинаДробной);

     Возврат x;

КонецФункции



Функция Степень(а,б)

     Если б<0 Тогда

          НашаА=1/а;

          НашаБ=-б;

     Иначе

          НашаА=а;

          НашаБ=б;

     КонецЕсли;

     Сообщить(ПоложительнаяДробнаяСтепень(НашаА,НашаБ));

     Возврат ПоложительнаяДробнаяСтепень(НашаА,НашаБ);

КонецФункции

Лимит=9999999;

Точность=0.001;

//<сообщил Пудель>

Категория: Работа с Числами