www.drupalprj.beloshenko.org.ua

integral(f(x),a,b)

// integral(f(x),a,b)
#include "iostream.h"
#include "math.h"

float f(float x)
{
return sin(x);
}

void main()
{
float integral;
float a;
float b;
float x;
float dx;

a=1;
b=2;
dx=0.001;

integral=0;
x=a;
while(x < b)
{
integral+=f(x)*dx;
x+=dx;
};

cout << integral;
cin >> integral;
}

Вихідні коди компілятору трьохвимірних графічних
примітивів написані мовою програмування - Паскаль.
Скачати ці коди Ви можете вільно, якщо перейдете за посиланням (http://beloshenko.ucoz.ru/My3Deditor/My3Deditor.html).
Ви можете використовувати їх вільно у
науковій діяльності, але не забувати про те, що
авторство належить Бєлошенко Микиті
Анатолійовичу і тому коопірайт
варто залишати у тексті програми,
або можна зробити так, як це роблять
розробники Linux - розроблено - (вказати хто),
правка внесена - (автор), застосовано в
прикладній задачі (автор).

Spline interpolation. (FORTRAN)

Beloshenko + 2007
-------------------------------------------------------------------------------
InterpSpl.for
program InterpSpl
integer Nt,Nf,i
real Xt(7),X(7),Y(7),h(7),Dy(7)
real A(7,7),s(7)
real Alpha(7),Betta(7)

open(unit=1,file='Data.txt',status='old')
read(1,*)Nt
if (Nt.GE.101) goto 1
do 2 i=1,Nt
read(1,3)Xt(i)
3 format(f4.7)
2 continue
read(1,*)Nf
if (Nf.GE.101) goto 1
do 4 i=1,Nf
read(1,5)(X(i),Y(i))
5 format(f6.9,f6.9)
4 continue
close(1)

do 6 i=1,Nf-1
h(i)=x(i+1)-x(i)
Dy(i)=y(i+1)-y(i)
6 continue
h(Nf)=0

Hello world!