Реферат: Вычисление элементарных функций
Умножим все выражение на Mf(x)
F(X) = F(Xs )×Mf(x) /Mf(xs) + D Xn-s ×F'(Xs ) Mf(x) /(Mf '( x ) ×MD x )
Подставляя значения полученные выше получим
F(X) = F(Xs ) + 2-5 ×D Xn-s ×F'(Xs )
где F(X)=f(x)×Mf(x) , F(Xs )=f(xs )×Mf(xs) , D Xn-s = D xn-s ×MD x ,
F'(Xs )= f'(xs )×Mf '( x ) , X = x*Mx - масштабированные значения
7. Граф – схема программы
8. Листинг и описание подпрограммы функции
8.1.Листинг подпрограммы функции
function Fx(masFx,masFhx:m;Xm:word;var ad:word):longint;
var
dx,fx1:word;
begin
ad:=Xm shr 3;
dx:=Xm and $6;
fx1:=dx*masFhx[ad];
fx1:=fx1 shr 5;
Fx:=masFx[ad]+fx1;
end;
8.2. граф – схема алгоритма
9. Листинг программы
program kir;
uses crt,dos,graph;
type
m=array[0..8] of word;
const
h=0.0625;
Mh=64;
Mf=64;
Mfh=32;
Mx=128;
function Fx(masFx,masFhx:m;Xm:word;var ad:word):longint;
var