Исходные данные:
Таблица 3(исходные данные для расчета превышения)
№ |
|
|
ν |
|
|
г |
м |
||||
16 |
1.09 |
2464.70 |
-2 |
-45.0 |
4 |
1. Расчет в Microsoft Excel
При расчете превышения следует спланировать расчетную таблицу, например, так: В A2 поместим i1, в B2 – S1-2, в D2 – градусы угла ν1-2 , в E2 – минуты с десятыми долями угла ν1-2., в G2 – формулу: =РАДИАНЫ(D2+E2/60) (для перевода угла ν1-2 в радианы), в H2 - V2. Тогда в I2 следует поместить формулу: =B2*TAN(G2)+A2-H2+0,0675*(B2/1000)^2 (TAN – вычисление функции тангенс).
Для исходных данных получаются следующие результаты:
Таблица 4 (результаты полученные в ходе решения задачи о превышении)
A |
B |
C |
D |
E |
F |
G |
H |
I |
|
|
|
ν(r) |
ν(м) |
|
ν(р) |
V2 |
|
1,09 |
2464,7 |
|
-2 |
-45 |
|
-0,048 |
4 |
-120,888 |
Проверка (рис.8)
Расчет в Mathcad
Решение задачи на вычисление превышения в MathCad можно произвести с использованием следующего кода:
Видно, что получается то же значение, которое было получено при проведении расчетов при помощи электронных таблиц.
3. Расчет в MatLab
Решение задачи на вычисление превышения в MatLab можно произвести с использованием следующей последовательности операторов:
% превышение
clc
i1=input('i1------->');
s =input('s-------->');
v2=input('v2------->');
ng=input('nu(grad)->');
nm=input('nu(min)-->');
n=(ng+nm/60);
h=s*tan(n*pi/180)+i1-v2+0.0675*(s/1000)^2
i1------->1.09
s-------->2464.70
v2------->4
nu(grad)->-2
nu(min)-->-45.0
h = -120.8880
4. Расчет в Visual Basic
Рис.
9. Вид формы для решения задачи о
превышении. 
Подписи полей ввода созданы с помощью компонентов Label, а именно в свойство Caption помещено: i1, S1-2 и т.д.
Выполним два быстрых щелчка на кнопке Расчет. Тем самым будет создан каркас процедуры обработки события, возникающего при нажатии на кнопку при последующем исполнении программы:
Private Sub Command1_Click()
End Sub
Между этими двумя строками необходимо поместить операторы, производящие расчет превышения.
Сначала необходимо прочитать введенные в поля значения величин. Для первой величины это можно сделать с помощью конструкции: i1 = Val(Text1.Text).
Для величин S и V2 нужно поступать аналогичным образом.
Величина n может быть введена следующим образом: n = Val(Text4.Text) + Val(Text5.Text) / 60,
т.е. значение величины прочитывается с двух полей ввода.
После ввода исходных величин и задав постоянную величину pi = 3.1415926 необходимо выполнить вычисление превышения. Это можно сделать с помощью конструкции: h = s * Tan(n * pi / 180) + i1 - v2 + 0.0675 * (s / 1000) ^ 2.
Здесь знаком ^2 обозначена операция возведения в квадрат, множитель pi/180 служит для преобразования из градусов в радианы, Tan – обозначает вызов стандартной функции тангенс. После вычислений необходимо выдать результат на форму. Это можно сделать с помощью оператора: Label6.Caption = "h= " + Str(h). Таким образом, вся процедура будет иметь вид:
Private Sub CommandButton1_Click()
Pi = 3.1415926
i1 = Val(TextBox1.Text): s = Val(TextBox2.Text)
v2 = Val(TextBox3.Text)
n = Val(TextBox4.Text) + Val(TextBox5.Text) / 60
h = s * Tan(n * Pi / 180) + i1 - v2 + 0.0675 * (s / 1000) ^ 2
Label6.Caption = "h= " + Str(h)
End Sub