1. ВНИМАНИЕ! В течении пары дней +- будет переезд форума на более защищённый сервер. Возможны периодические перебои в работе.

Решение геодезических задач в MS Excel

Discussion in 'Другие программы' started by kub13, Jan 5, 2013.

  1. kub13

    kub13 Форумчанин

    Выкладываю файл подготовленный мной, по просьбе знакомого геодезиста, давно, лет 10-15 назад. Сам этим методом не пользовался.
     

    Attached Files:

    мирось and Lex K-G like this.
  2. Вопрос 1.

    Нашёл ошибку в программе, в файле "Вертикальность_Мачты_МТГ". Проявляется в неверном допуске отклонения для мачт:
    оригинальная строка:
    =ЕСЛИ(C16="";"";ЕСЛИ($S$2="Мачта";C16-$C$8/1,5;ЕСЛИ($S$2="Башня";C16-$C$8;"")))
    исправленная строка
    =ЕСЛИ(C16="";"";ЕСЛИ($S$2="Мачта";(C16-$C$8)/1,5;ЕСЛИ($S$2="Башня";C16-$C$8;"")))


    Можете ли исправить файл, у меня при сохранении пишет такое:

    Отчет о совместимости для Вертикальность_Мачты_МТГ.xls
    Дата отчета: 10.06.2016 12:01
    Некоторые свойства данной книги не поддерживаются более ранними версиями Excel. Открытие книги в более ранней версии Excel или ее сохранение в формате более ранней версии приведет к потере или ограничению функциональности этих свойств.
    Существенная потеря функциональностиЧисло экземпляровВерсия
    Одна или несколько ячеек книги содержат правила проверки данных, использующие ссылки на значения, находящиеся на других листах. Такие правила проверки данных не будут сохранены.  1 
       X'!D2Excel 97-2003
    Несущественная потеря точности
    Книга содержит формулы, которые ссылаются на другие закрытые книги. Если связанные книги закрыты, то при пересчете в более ранних версиях Excel значения этих формул будут ограничены 255 знаками.  14
    Определенные имена
    Excel 97-2003

    Вопрос 2:
    В труде "Руководство по геодезическому контролю в процессе строительства, монтажа и эксплуатации высотных сооружений связи", разработки ООО НТЦ "Техкон", указано:

    Допустимые отклонения оси ствола для мачт не более 0,0007 м от высоты.

    Вопрос, как правильнее вычислять отклонение у мачт делить высоты на 1,5(как в вашем файле), или умножать высоту на 0,7 ?
     
    MarkGeo likes this.
  3. Lex K-G

    Lex K-G Форумчанин

    КРЕДО-ДОС это прекрасно считала;) Сейчас такого софта нет... Не, ну Exell, конечно, считает все;)
     
  4. X-Y-H

    X-Y-H Администратор Staff Member

    Кредо дат.
     
  5. Lex K-G

    Lex K-G Форумчанин

    Кредо ДАТ WINDOWS рейку не воспринимает. КРЕДО ДАТ ДОС.
     
  6. ЮС

    ЮС Форумчанин

    Принимает:
    QIP Shot - Screen 382.jpg
    Даже профессионалы от реек не отказались, а уж LITE или 3.1 тем более "ЗА". ::biggrin24.gif::
     
    Lex K-G likes this.
  7. Lex K-G

    Lex K-G Форумчанин

    Spoiler

    Вот блин... Все они предусмотрели!;) У меня ломаный ДАТ был лет эдак пять тому назад.
    Отсюда мораль - ПОЛЬЗОВАТЬСЯ НАДО ЛИЦЕНЗИОННЫМ ПО!:)
     
  8. kub13

    kub13 Форумчанин

    Не совсем по теме, но на геометрию задача похожа.
    К Новому 2017 году "Фракталы-снежинки". Проверено в Ексел 2010, 2016.
     

    Attached Files:

    Lex K-G likes this.
  9. Lex K-G

    Lex K-G Форумчанин

    Spoiler
    БОЛЬШОЕ СПАСИБО! Баловались Вашими фракталами на Новый Год! Подымаю тост за Ваше здоровье, за благополучие Вашей семьи, за любовь и удачу в Вашем доме! Спасибо большое за уроки в EXCEL! С наступающим Новым Годом по очередной версии календаря!
     
  10. Не подскажите как сделать чтоб excel не переводил угол из градусов в радианы когда считаешь синус?!
     
  11. В.Шуфотинский

    В.Шуфотинский Модератор Staff Member

    Он не переводит. "Excel" работает с радианами, а для удобства пользователя вводить данные и выводить результаты в градусной мере, используют подпрограммки перевода.
     
  12. В общем мне нужно получить синус угла в градусной мере, как это сделать? Какие именно подпрограмки?) или может формулы есть какие то?
     
    Lex K-G likes this.
  13. В.Шуфотинский

    В.Шуфотинский Модератор Staff Member

    Синус не может быть в градусной мере, т.к. это не угол, не температура и не крепость напитка. Это тригонометрическая функция, потому она безразмерная.

    Если Вам надо перевести немного углов, то проще это сделать на калькуляторе. Там же и вычислить синусы. Если же углов тысячи, то самое простое, это не подпрограммки, которые Вы, как я понимаю, всё равно не введёте в Microsoft Visual Basic, а поколонковое вычисление радианов. В каждой колонке делаете по несколько простых действий, в конце получите радианы, из которых в последней колонке вычислите синус. Такое вычисление можно протянуть и на сотни тысяч углов.

    1радиан = 180º/3.1415926
     
  14. stout

    stout Форумчанин

    Если в А1 угол, то =SIN(РАДИАНЫ(A1))
     
    Lex K-G likes this.
  15. kub13

    kub13 Форумчанин

    Задача не совсем ясно сформулирована.
    В прилагаемом файле подготовлена таблица для вычисления синусов и косинусов.
    Если войти в редактор VBA, предварительно нажав Alt+F11, можно ознакомится, изучить, выбрать и воспользоваться подпрограммами-функциями, заготовленными для геодезических нужд. Например, на листе в таблице применялась функция:
    'Перевод углов из ГГГ.ММСС в радианы
    Function Rad(GMS As Double) As Double
    Rad = GDD(GMS) / 180 * Pi
    End Function
     

    Attached Files:

  16. Lex K-G

    Lex K-G Форумчанин

    Спасибо БОЛЬШОЕ! Вы открыли для нас EXCEL! И VBA!
     
  17. maris_st

    maris_st Форумчанин

    а с координатами WGS-84 не пытались подружить EXCEL ?
    kub13,
    kub13,
    stout,
     
    Lex K-G likes this.
  18. trir

    trir Форумчанин

  19. Valang

    Valang Форумчанин

    Синус, косинус и т.д. - это отношение сторон в треугольнике: длину одной стороны, делим на длину другой стороны. Если быть точнее, то синус - это отношение противолежащей стороны к гипотенузе. Результат деления никак не может быть в градусах.
     
  20. geod64

    geod64 Форумчанин

    Добрый день, подскажите пожалуйста, есть ли у кого пример вычисления азимута в EXCEL по прямоугольным координатам двух точек линии. Пробую сам сделать не получается
     
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice