Написана программа на VBA для решения трансцендентного уравнения в Excel f = 9000 / (550 - x) + 80 * Sin(5.5 * x*Pi/180) + 100 * Sin(4.5 * x*Pi/180) - 29 * Cos(3.5 * x*Pi/180). Но результаты программных расчетов не совпадают с расчетами по формулам Excel и MathCAD. В уравнении в тригонометрических функциях аргументы в радианах, Если использовать функцию как есть, то VBA отказывается считать. Если убрать Pi/180, результат неправильный (на отрезке [56;76] с точностью 0,001 должен быть результат 70,538, а не 71,674) Кто знает, как задать такую функцию в VBA, отпишите, пож-та
Написана программа на VBA для решения трансцендентного уравнения в Excel f = 9000 / (550 - x) + 80 * Sin(5.5 * x*Pi/180) + 100 * Sin(4.5 * x*Pi/180) - 29 * Cos(3.5 * x*Pi/180). Но результаты программных расчетов не совпадают с расчетами по формулам Excel и MathCAD. В уравнении в тригонометрических функциях аргументы в радианах, Если использовать функцию как есть, то VBA отказывается считать. Если убрать Pi/180, результат неправильный (на отрезке [56;76] с точностью 0,001 должен быть результат 70,538, а не 71,674) Кто знает, как задать такую функцию в VBA, отпишите, пож-таdolka