Основы анализа конструкций в ANSYS. Конюхов А.В. - 55 стр.

      ! Создать массив для строковой переменной LABEL размерностью 1*2
      *DIM,LABEL,CHAR,1,2
      ! Создать массив для действительной переменной VALUE размерностью 1*3
      *DIM,VALUE,,1,3
      ! Присвоение значений переменной
      LABEL(1,1) = ' F,'
      LABEL(1,2) = ' (Hz) '
      ! Вычислить теоретическое значение собственной частоты
      FreqTh=SQRT(C/M)/(8*ATAN(1))
      ! Заполнить массив данными
      *VFILL,VALUE(1,1),DATA, FreqTh
      *VFILL,VALUE(1,2),DATA, FREQ
      *VFILL,VALUE(1,3),DATA, (FreqTh-FREQ)*100/FREQ
      ! Задать файл MODE.txt, в который напечатаны значения
      /OUT, MODE,txt
      ! Следующие значения будут содержать комментарии в файле
      /COM
      /COM,_________________________ RESULTS ___________________________
      /COM,
      /COM,              | THEORY           | ANSYS   | Eps (%)
      /COM,
      ! *VWRITE – это оператор печати в файл, следующая за ним строка
      ! содержит формат вывода данных. Синтаксис форматного вывода аналогичен
      ! оператору FORMAT в FORTRAN
      *VWRITE,LABEL(1,1),LABEL(1,2),VALUE(1,1),VALUE(1,2),VALUE(1,3)
      (1X,A8,A8,' ',F18.14,' ',F18.14,' ',F5.3)
      /COM,_____________________________________________________________
      /OUT
      FINISH

Результат выполнения программы будет в файле MODE,txt в следующем виде:

____________________________ RESULTS ___________________________

             | THEORY        | ANSYS         | Eps (%)

   F, (Hz)   0.15915494309190 0.15915494309190 0.000
____________________________________________________________________



Замечание.
                                                                          ω
В ANSYS выдается значение не круговой частоты ω, а обычной частоты ν =         . Из решения
                                                                          2π
                                 c          1
данной задачи следует, что ω =     =1, ν =    = 0,15915 .
                                 m         2π