
- Definisikan fungsi x(f(x) dan turunan fungsi x (g(x));
- Masukan nilai awal x, toleransi error, dan jumlah iterasi;
- Inisialisasi i =0;
- fx[i] = fungsi(x[i]);
- gx[i] = tururan f(x[i])
- abso[i] = fx[i];
- jika fx[i]<0 data-blogger-escaped-abso="" data-blogger-escaped-i="" data-blogger-escaped-span="">
- Cetak nilai x[i], fx[i], gx[];
- i++;
- Jika abso[i] kurang dari e (toleransi error) atau i kurang dari jumlah iterasi;
- Ya : Keluar perulangan;
- Tidak : kembali ke 4.
Berikut
adalah listing Metode Newton Raphson
#include
#include
double
fungsix(double);
double
diffungsix(double);
main(){
double x[20]={0}, fx[20], gx[20],
e=0.0001,abso[20]; //gx merupakan turunan fx
int i =0, n=9;
puts("\t\t>>>>>>>METODE
NEWTON RAPSON<<<<<<<");
puts("\t\t\t f(x)=x+e^x");
puts("=================================================================");
printf("Masukan nilai x : ");
scanf("%lf", &x);
printf("Masukan nilai error : ");
scanf("%lf", &e);
printf("Masukan jumlah iterasi :
");
scanf("%d", &n);
puts("=================================================================");
printf("| n | x
| fx |
gx | absolut fx
|\n");
puts("=================================================================");
while(i<=n){
fx[i] = fungsix(x[i]);
gx[i] = diffungsix(x[i]);
x[i+1]= x[i] - (fx[i]/gx[i]);
abso[i] = fx[i];
if(abso[i]<0 data-blogger-escaped-span="">
abso[i] *=-1;
printf("|%2d | %12.9lf |
%12.9lf | %12.9lf | %12.9lf |\n",i+1, x[i], fx[i],gx[i],abso[i]);
if(abso[i] < e)
break;
i++;
}
puts("=================================================================");
printf("Akar terletak di x %9.9lf
dengan nilai fx %9.9lf\n",x[i], fx[i]);
}
double
fungsix (double a){
double hasil;
hasil = a - exp(-a); //bisa diganti sesuai
yang dingingankan
return hasil;
}
double
diffungsix (double b){
double hasil2;
hasil2 = 1 + exp(-b); //merupakan turunan
fungsi fx
return hasil2;
}terimakasih sobat bloger yang sudah berkunjung, berbagi itu menyenangkan.
sekian untuk pos hari ini.
sekilas motivasi : "Kesalahan terbesar yang di buat manusia di dalam kehidupannya adalah
terus-menerus mempunyai rasa takut bahwa mereka akan membuat kesalahan."~Elbert HUbart
Sangat bermanfaat, terimakasih
ReplyDeletemksh.. berguna sekali..
ReplyDeleteMaaf gan itu pakek vb apa gimna gan tolong pencerahannya
ReplyDeleteLangsung jadi peringkat pertama 😂🤣
ReplyDelete