";
echo $zingsnis;
echo "
";
//sudarom masyva, kad kiekvienas elementas atitiktu savo vieta
for ($ciklui=0; $ciklui<$r1; $ciklui++)
{
$mas[$ciklui]=$mas[$ciklui]-3;
}
echo "
";
//pagal zingsni apskaiciuojame x'us
echo "x'u reiksmes";
echo "
";
for ($xxui=0; $xxui<$r1+0.001; $xxui++)
{
echo "x";
echo $xxui;
echo "=";
echo $mas[$xxui]=$mas[0]+$xxui*$zingsnis;
echo "
";}
echo "
";
//sudarom y masyva
echo "y'u reiksmes";
echo "
";
for ($yrg=0; $yrg<$r1+0.001; $yrg++){
echo "y";
echo $yrg;
echo "=";
echo $ymas[$yrg]=($mas[$yrg]*$mas[$yrg])/(3+$mas[$yrg]*$mas[$yrg]);
echo "
";}
//uzrasom h reismes
echo "
";
for ($hash=0; $hash<$r1; $hash++){
echo "h";
echo $hash;
echo "=";
echo $h[$hash]=$zingsnis;
echo "
";}
//ieskom F(x-1,x)
echo "
";
for ($ef=1; $ef<=$r1; $ef++)
{
echo "f"."("."x";
echo $ef-1;
echo ",";
echo "x";
echo $ef;
echo ")";
echo "=";
echo $fe[$ef-1]=($ymas[$ef]-$ymas[$ef-1])/$h[$ef-1];
echo "
";
}
//triistrizaine matrica
// priskiriam d masyvui
echo "
";
for ($de=0; $de<$r1-1; $de++)
//priskiriam d elementus masyvui
{ $D[$de]=(6*($fe[$de+1]-$fe[$de]));
}
//priskiriam a, b, c elementus masyvams
$A[0]=0;
$A[1]=$A[2]=$A[3]=$A[4]=$C[1]=$C[2]=$C[3]=$C[4]=$h[1];
$B[1]=$B[2]=$B[3]=$B[4]=$B[5]=2*($h[1]+$h[1]);
$C1[1]=-(($C[1]) / ($B[1]));
$D1[1]=($D[4]/$B[1]);
// skaiciuojam C ir D koficientus
for ($cee=0; $cee<$r-2; $cee++)
{
echo "C";
echo $cee+1;
echo "=";
echo $C1[$cee+1]=-($C[$cee+1]/($B[$cee+1]+$C1[$cee]*$A[$cee]));
echo "
";
}
echo "D1=";
echo $D[1];
echo "
";
for ($dee=1; $dee<$r1-2; $dee++) {
echo "D";
echo $dee+1;
echo "=";
echo $D1[$dee+1]=($D[$dee]-($D1[$dee]*$A[$dee]))/($B[$dee+1]+($C1[$dee]*$A[$dee+1]));
echo "
";}
echo "
";
echo "X'u reiksmes, siuo atveju g";
echo "
";
//Atbuline eiga
echo "g";
echo $r-1;
echo "=";
echo $G[$r-1]=(($D[$r-2]-$D1[$r-2]*$A[$r-2])/($B[$r-1]+$C1[$r-2]*$A[$r-2]));
echo "
";
//randame kitus x'us mazejanciu ciklu
for ($maz=$r-2; $maz>0; $maz--)
{
echo "g";
echo $maz;
echo "=";
echo $G[$maz]=($C1[$maz]*$G[$maz+1])+$D1[$maz];
echo "
";}
$G[0]=$G[$r]=0;
echo "
";
for ($gie_d=0; $gie_d<$r; $gie_d++){
$g_dyd[$gie_d]=($G[$gie_d])/2;
$h_dyd[$gie_d]=($G[$gie_d+1]+$G[$gie_d])/(6*$h[$gie_d]);
$e_dyd[$gie_d]=($fe[$gie_d]-((($G[$gie_d+1])*$h[1])/6)-((($G[$gie_d])*$h[0])/3));
}
echo "
";
echo "Spainas";
echo "
";
//darom splaina
$ivedimas="x";
for ($splain=0; $splain<$r; $splain++){
echo "S".""."3"."".""."$splain".""."("."x".")"."=";
echo $ymas[$splain]."+";
echo $e_dyd[$splain];
echo "*";
echo "("."X"."-"."$mas[$splain]".")";
echo "+"."$g_dyd[$splain]"."*"."("."X"."-"."$mas[$splain]".")".""."2"."";
echo "+"."$h_dyd[$splain]"."*"."("."X"."-"."$mas[$splain]".")".""."3"."";
echo ","."[";
echo $mas[$splain];
echo ";";
echo $mas[$splain+1];
echo "]";
echo "
";
echo "
";}
//kuriam lenetele ivedimui nezinomojo, is intervalo
?>
3.0001){
echo "Tokio skaiciaus nera intervale";
break;
}
else { echo $tu=$nezinomasis*$nezinomasis/(3+$nezinomasis*$nezinomasis);
echo "
";
if ($nezinomasis>=$mas[0] AND $nezinomasis<$mas[1]) {
echo "Atsakymas"."=";
echo $rrr1=$ymas[0]+($e_dyd[0])*($nezinomasis-$mas[0])+($g_dyd[0])*($nezinomasis-$mas[0])*($nezinomasis-$mas[0])+($h_dyd[0])*($nezinomasis-$mas[0])*($nezinomasis-$mas[0])*($nezinomasis-$mas[0]);
echo "
";
echo "Paklaida=";
echo $kkk1=$tu-$rrr1;}
if ($nezinomasis>=$mas[1] AND $nezinomasis<$mas[2]) {
echo "Atsakymas"."=";
echo $rrr1=$ymas[1]+($e_dyd[1])*($nezinomasis-$mas[1])+($g_dyd[1])*($nezinomasis-$mas[1])*($nezinomasis-$mas[1])+($h_dyd[1])*($nezinomasis-$mas[1])*($nezinomasis-$mas[1])*($nezinomasis-$mas[1]);
echo "
";
echo "Paklaida=";
echo $kkk1=$tu-$rrr1;}
if ($nezinomasis>=$mas[2] AND $nezinomasis<$mas[3]) {
echo "Atsakymas"."=";
echo $rrr1=$ymas[2]+($e_dyd[2])*($nezinomasis-$mas[2])+($g_dyd[2])*($nezinomasis-$mas[2])*($nezinomasis-$mas[2])+($h_dyd[2])*($nezinomasis-$mas[2])*($nezinomasis-$mas[2])*($nezinomasis-$mas[2]);
echo "
";
echo "Paklaida=";
echo $kkk1=$tu-$rrr1;}
if ($nezinomasis>=$mas[3] AND $nezinomasis<$mas[4]) {
echo "Atsakymas"."=";
echo $rrr1=$ymas[3]+($e_dyd[3])*($nezinomasis-$mas[3])+($g_dyd[3])*($nezinomasis-$mas[3])*($nezinomasis-$mas[3])+($h_dyd[3])*($nezinomasis-$mas[3])*($nezinomasis-$mas[3])*($nezinomasis-$mas[3]);
echo "
";
echo "Paklaida=";
echo $kkk1=$tu-$rrr1;}
if ($nezinomasis>=$mas[4] AND $nezinomasis<$mas[5]) {
echo "Atsakymas"."=";
echo $rrr1=$ymas[4]+($e_dyd[4])*($nezinomasis-$mas[4])+($g_dyd[4])*($nezinomasis-$mas[4])*($nezinomasis-$mas[4])+($h_dyd[4])*($nezinomasis-$mas[4])*($nezinomasis-$mas[4])*($nezinomasis-$mas[4]);
echo "
";
echo "Paklaida=";
echo $kkk1=$tu-$rrr1;}
if ($nezinomasis>=$mas[5] AND $nezinomasis<$mas[6]+0.0001) {
echo "Atsakymas"."=";
echo $rrr1=$ymas[5]+($e_dyd[5])*($nezinomasis-$mas[5])+($g_dyd[5])*($nezinomasis-$mas[5])*($nezinomasis-$mas[5])+($h_dyd[5])*($nezinomasis-$mas[5])*($nezinomasis-$mas[5])*($nezinomasis-$mas[5]);
echo "
";
echo "Paklaida=";
echo $kkk1=$tu-$rrr1;}
}}
?>