Первые шаги разработки
Макросы в Calc
О проекте
Контакты
Полезные ссылки
Карта сайта
Вход для участников

Макросы, диалоги и библиотеки (Basic)

Связка OpenOffice Calc + Basic для инженерных расчетов. Часть 1 Печать
Макросы, диалоги и библиотеки (Basic)
Автор Алифанов Леонид (aka Albuquerque)   
23.12.2009 г.

Производительность труда современного инженера зависит от эффективности использования им персонального компьютера. Навыки программирования — один из ключевых факторов эффективной работы инженера в большинстве приложений, от AutoCAD до офисного пакета.

В статье речь пойдет о программировании расчетов, выполняемых по инженерным методикам, по алгоритмам ГОСТ, СНиП, СП, Eurocode и других аналогичных документов. Статья, в основном, будет касаться выполнения несложных инженерных расчетов строительных конструкций, однако все изложенное ниже применимо и к расчетам в других сферах деятельности: машиностроении, промышленной безопасности, экономике и финансах.

Допустим, нужно выполнить сбор нагрузок, рассчитать прочность балки или узлового соединения элементов. Есть несколько способов для реализации задачи:

I. Все расчеты выполнить вручную

Взять чистый лист с рамкой, карандаш с ластиком (или авторучку с корректором), калькулятор, нормативный документ и сделать то, что нужно.

Достоинства
  1. Не нужно тратить деньги на компьютер, операционную систему и программы.
  2. При наличии соответствующих навыков на выходе получается своего рода произведение искусства - аккуратный почерк, приятные глазу схемы и рисунки. Пометки и правки легко расположить таким образом, что текст останется удобочитаемым. 
  3. Некоторые заказчики легко соглашаются заплатить за работу максимальную цену, если узнают, что она связана с затратами «ручного» труда.
Недостатки
  1. Сложность внесения изменений. Расчет сделан, подшит, внезапно меняется техническое задание. В дело идут корректор, ластик, ножницы, полоски бумаги - вся «красота» улетучивается. Очень часто приходится переделывать все заново. Вдобавок чертежник, работающий совместно с расчетчиком, должен будет некоторое время ждать новых результатов, чтобы внести изменения в проект.
  2. Необходимость тщательной проверки. Каждому новому расчету нужна индивидуальная проверка, включая проверку элементарных вычислений. Увы, невнимательным может оказаться любой человек.

II. Купить специальную программу или набор программ и выполнять расчеты с ее помощью

Достоинства
  1. Не во всякой организации работают инженеры, способные разобраться с общей нормативной методикой расчета. Используя готовую программу, можно до некоторой степени рассчитывать на упрощение задачи, поскольку расчет там сводится только к вводу необходимых данных.
  2. Легче переделывать расчеты, легко отслеживать изменения результатов при вариации исходных данных.
Недостатки
  1. Стоимость. Программы стоят денег. Полный набор программ для расчета одних только металлоконструкций потянет на несколько месячных зарплат среднего провинциального инженера. Доходы организации могут упасть, а цены на софт - вряд ли.
  2. Старение. Нормативы меняются, программы устаревают, некоторые из них отказываются полноценно работать на новых версиях и сервис-паках операционных систем. Неудобство доставляет и необходимость использования электронного ключа защиты, который нужно носить с собой.
  3. Ошибки. К сожалению, любая программа может ошибаться, в том числе и платная. Разработчики программ или органы сертификации не несут ответственности даже в том случае, если ошибка в программе станет причиной крупной аварии, и это будет доказано при расследовании причин. Ошибки часто возникают от неверного взаимодействия с программой, неправильной интерпретации пользователем ее возможностей. Даже владея методикой, бывает не так просто разобраться, какой смысл вложен в понятия и величины, которыми разработчики предлагают иногда оперировать в погоне за простотой и универсальностью. Программы на продажу редко пишутся практикующими инженерами, а разработчики программ часто упрощают отдельные фрагменты алгоритма или не предусматривают ввод данных, которые могут оказать влияние на результат.
  4. Несовершенство отчета. Отчет программы может оказаться как излишне подробным, содержащим ненужные мелочи, так и неоправданно сокращенным. Промежуточные выкладки часто не приводятся, что затрудняет контроль правильности расчета.

III. Скачать бесплатную программу или шаблон

Достоинства

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

Недостатки
  1. По-настоящему хороших бесплатных программ не так много.
  2. Такого рода шаблоны и программы нужно тестировать и проверять более придирчиво, чем платные. Вероятность ошибок в них намного больше, чем в коммерческих программах. Если программа закрытая, то в случае возникновения ошибки вы не сможете понять ее причины и исправить самостоятельно.

IV. Написать собственную программу и выполнять расчеты с ее помощью

Поскольку вся статья и посвящена этому способу, то и достоинства с недостатками будут обсуждаться далее по тексту. Сразу можно отметить, что в этом случае не нужно тратить деньги на покупку готовых программ и время на поиск бесплатных.

Расчетные приложения, как правило, простые, и их разработка требует в большей мере знания самого предмета, нежели программирования. В процессе разработки вы будете иметь возможность протестировать программу самостоятельно, а при возникновении ошибок - отследить причины и исправить их самостоятельно.

Все описанные выше способы осуществления расчетов подтвердили свою жизнеспособность на практике и каждый, благодаря своим специфическим достоинствам имеет право на существование. Так как любой выполненный расчет, независимо от способа нуждается в проверке, то можно варьировать инструменты, используя один способ для проверки результатов другого.

В чем писать расчеты?

Существует большое количество языков и сред программирования. Выбор языка - не предмет обсуждения настоящей статьи; в основном, каждый пишет в том, в чем умеет.

Какие приложения предпочтительней - самостоятельные, которые могут быть скомпилированы в исполняемый файл, или в виде расчетных шаблонов с использованием интерпретируемых языков?

Основное преимущество последних - простота, скорость разработки и тестирования. Недостаток - кроме операционной системы нужен соответствующий пакет. Само по себе наличие пакета-«посредника» не является недостатком (например, для работы .exe файлов в Windows также необходимы скрытые от глаз пользователя библиотеки или соответствующая версия .NET Framework). Гораздо более серьезным осложнением является то, что большинство пакетов такого рода, во-первых, имеют чрезмерный для инженерной деятельности математический или оформительский уклон, во-вторых, стоят приличных денег.

Одним из оптимальных по простоте и функциональности решений является MS Excel в составе пакета MS Office. Электронные таблицы используются для инженерных расчетов достаточно широко, на них написано много удобных и полезных инженерных шаблонов. Но хорошо проработанные экселевские шаблоны чаще всего не бесплатны: за рубежом цена их за штуку в среднем варьируется от $30 до $200. Легальная установка самого MS Office (не считая обучения) также требует материальных затрат, довольно существенных, особенно если покупать коробочные версии на существующие машины.

Другой офисный пакет - OpenOffice.org - этого недостатка лишен, а все достоинства в части выполнения с его помощью расчетов присутствуют в полном объеме.

 

Многие инженеры, использующие электронные таблицы, настороженно относятся к VBA в Excel и, соответственно, к OpenOffice.org Basic в Calc. Негласные «правила хорошего тона» предполагают, что расчетный шаблон должен быть, по возможности, создан базовыми средствами программы без пользовательских функций и макросов. Сложно сказать, в чем причины такого предубеждения. Я полагаю, что, скорее всего, дело в пугающем стандартном предупреждении о возможных макровирусах, которое появляется при настройке на «средний уровень безопасности» и на подсознательном уровне не располагает связываться с макросами вообще. В результате для того, чтобы запрограммировать более или менее сложный расчет, инженеры вынуждены прибегать к ухищрениям вроде многоуровнего пересчета по формулам в скрытых ячейках. В таких случаях контроль за алгоритмом затруднен, часто приходится действовать на ощупь. Не говоря уже о трудночитаемом «коде» вида «$A$1/($B2*IF(IF(.....», ввести и проверить который бывает не так просто, а случайно повредить при правке легко.

После многочасовых бдений за монитором и нескольких неожиданных «фортелей» с результатами я отказался от такого способа сочинения «правильных» шаблонов и окончательно остановил свой выбор на использовании макроязыка. Программа на мой взгляд должна не просто работать, а работать понятно, отлаживаться легко, а любая неточность в коде - мгновенно выхватываться и исправляться.

Замечу также, что в тех случаях, когда большая часть расчета реализована и отлажена средствами языка OpenOffice.org Basic, не составляет труда «перевести» программу в отдельно работающее «оконное» приложение при помощи любого подходящего компилятора Basic, например FreeBasic .

После того, как вопрос расчетной оценки той или иной величины будет вами решен, у вас появится возможность улучшать проектные параметры конструкций и узлов, например, с помощью надстройки нелинейной оптимизации.

Как написать расчетный шаблон, с чего начать?

Для начала достаточно запустить OpenOffice.org Calc, сохранить файл со своим именем, как .ods файл и нажать на клавиатуре [Alt+F11]. Появляется окно OpenOffice.org Basic Macros (рис. 1).

Находим в окне Макрос из (Macro From...) свой файл и жмем Создать (New). Новый модуль, в котором будет содержаться требуемый код, по умолчанию - Module1, создан, и на мониторе появляется активное окно редактора кода, где собственно и будет работать программа (рис. 2).


Объяснять по шагам, как начать программировать, я не буду, замечу только что доступной литературы по OpenOffice Basic достаточно для пользователя любого уровня. Более того, для начинающего сойдет литература и по VBA для Excel, особенно в части написания пользовательских функций (в свое время я начинал осваивать этот инструмент по экселевской «Библии»).

Вот несколько видеоуроков, иллюстрирующих написание и работу простейших функций (для того, чтобы разглядеть детали, разверните видео на весь экран).

Первый ролик - простейшая функция в одну строчку, не считая стандартного объявления функции, завершения и комментария. Переменные не объявляются, подразумевается тип Variant. Известно, что такой подход в ряде случаев может приводить к ошибкам интерпретации значения, но раз существует «универсальная» переменная, то где-то она должна быть использована?
Этот пример - не очень удачный в том смысле, что здесь можно было запросто обойтись и стандартной формулой:

=2*B1*B4^3/12+2*B1*B4*(B2/2-B4/2)^2+B3*(B2-2*B4)^3/12

Более того, в данном случае возможен вариант, при котором можно было вбить формулу =2*b*t^3/12+2*b*t*(h/2-t/2)^2+s*(h-2*t)^3/12 непосредственно в ячейку, предложив программе самой распознать переменные и присвоить им соответствующие значения. Я не использую его никогда в своей практике - не люблю, когда программа "думает" за меня. Но все способы, тем не менее, работают, что и требовалась доказать.

Рассмотрим другой пример. Тут требуется найти решение кубического уравнения, к которому сводится задача расчета оттяжки или кабеля, провисающего под поперечной нагрузкой. Само решение легко находится в wxMaxima. Выбираем нужный (вещественный) корень уравнения, выбираем в контекстном меню «скопировать как текст», копируем и вставляем в код функции. Маленькая правка (замена "sqrt" на бэйсиковское "sqr") - и функция готова. Меньше ручных операций - меньше вероятность ошибки (хотя проверка, в любом случае, не помешает никогда).
Наконец, рассмотрим пример, когда функция возвращает не число, а целый отчет с текстом и численными значениями. См. код:

Function BeamCalculation(q,L,Jx,Wx,Em)

'Возвращает результаты расчета балки в виде текстовой строки
'Переменные
'q - нагрузка в кгс/м
'L - пролет балки, м
'Jx - момент инерции сечения, см4
'Wx - момент сопротивления сечения, см3
'Em - модуль Юнга материала (кгс/см2)

'Изгибающий момент, кгс*м
Mom=q*L^2/8

'Напряжение, кгс/см2
sigma=Mom*100/Wx

'Прогиб балки, см
ybeam=(5/384)*((q/100)*(L*100)^4/(Em*Jx))

'Результат функции
BeamCalculation="Изгибающий момент М= " & Str(Round(Mom,2)) & " кгс*м; Максимальное напряжение - "&_ Str(Round(sigma,0)) & " кгс/см2; Прогиб балки - " & Str(Round(ybeam,1)) & " см, составляет 1/"&_ Str(Round(L*100/ybeam,0)) & " от пролета."

End Function


Function Round(xxx,nnn)
'Пользовательская функция возвращает округленное до nnn знаков число aaa
Round=Fix(xxx * 10^nnn + 0.5) / 10^nnn
End Function

Функция округления Round(x,a) в VBA есть, а в OpenOffice.org Basic - отсутствует. Достаточно воспользоваться предложением Эндрю Питоньяка, чтобы создать свою.
Есть и другие разновидности функций в OpenOffice.org Basic. Например, результатом функции может быть не только число или текстовая переменная, но и произвольный массив чисел и строк. Такие функции вводятся в ячейку с одновременным нажатием клавиш "Ctrl+Shift+Enter" и размещают результаты на заданной области рабочей книги. См. пример:

Function BeamCalculation2(array)
'Возвращает результаты расчета балки в виде смешанного массива
'(вводится через Ctrl+Shift+Enter)
'Переменные получаем из исходного вектор-столбца array
'q - нагрузка в кгс/м
q=array(1,1)
'L - пролет балки, м
L=array(2,1)
'Jx - момент инерции сечения, см4
Jx=array(3,1)
'Wx - момент сопротивления сечения, см3
Wx=array(4,1)
'Em - модуль Юнга материала (кгс/см2)
Em=array(5,1)


'Изгибающий момент, кгс*м
Mom=q*L^2/8

'Напряжение, кгс/см2
sigma=Mom*100/Wx

'Прогиб балки, см
ybeam=(5/384)*((q/100)*(L*100)^4/(Em*Jx))

'Создаем массив 3 х 3 для результатов
Dim res(1 To 3,1 To 3)

res(1,1)="Изгибающий момент M = "
res(1,2)=Mom
res(1,3)=" кгс*м"

res(2,1)="Напряжение = "
res(2,2)=sigma
res(2,3)=" кгс/см2"

res(3,1)="Прогиб балки = "
res(3,2)=ybeam
res(3,3)=" см"

BeamCalculation2=res

End Function

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

  • оператор If...Then...Else, 
  • инструкция Select...Case, 
  • циклы For...Next и Do ... Loop, 
  • действия с массивами и элементами массивов.

Допустим, что вы уже освоили простые функции на OpenOffice.org Basic, самостоятельно написали несколько собственных примеров и убедились в их работоспособности.
Рабочий шаблон начинается с освоения расчетной методики. Желательно иметь перед глазами рассчитанный вами вручную пример, чтобы по ходу отладки у вас было с чем сравнивать. Вот приблизительный перечень вопросов, которые вам нужно решить:

  1. Для какой части расчета достаточно стандартных формул электронных таблиц, а для какой целесообразней воспользоваться OpenOffice.org Basic?
  2. Каков примерный перечень пользовательских функций для расчета и возможность использования тех функций, которые у вас уже есть в наличии? Нерационально помещать весь расчет в одну или две функции, лучше всего предусмотреть отдельные функции для каждой проверки и для каждого коэффициента. Каждая из таких функций отлаживается и проверяется отдельно.
  3. Сколько будет переменных, каковы их имена (и, возможно, типы, отличные от Variant по умолчанию), как исходных для пользовательских функций, так и промежуточных в теле функции?

Для начала лучше ограничиться самым простым внешним оформлением шаблона, потому что оформительскую часть работы смешивать с частью, ответственной за конечные результаты крайне нежелательно.
Можно построить блок-схему для расчета, но это совсем не обязательно: если расчет несложен, и вы уже делали его ранее, то блок-схема должна быть у вас в голове.

  

Обсудить на форуме...

  •  Алифанов Леонид, ведущий инженер ЗАО СибПСК, автор научных статей по специальности "Динамика и прочность". E-mail: Этот e-mail защищен от спам-ботов. Для его просмотра в вашем браузере должна быть включена поддержка Java-script
  •  Продолжение следует
Последнее обновление ( 09.09.2012 г. )
 
След. »

Главная arrow Макросы, диалоги и библиотеки (Basic) arrow Связка OpenOffice Calc + Basic для инженерных расчетов. Часть 1

MyOOo.ru, 2008 — 2017. Хостинг предоставлен компанией Netangels