Business

This is default featured slide 1 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

This is default featured slide 2 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

This is default featured slide 3 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

This is default featured slide 4 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

This is default featured slide 5 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

Showing posts with label Science. Show all posts
Showing posts with label Science. Show all posts

Wednesday, 1 July 2015

Pemrograman (Metode Pembuatan Matriks)

#include<conio.h>
#include<stdio.h>
#include<iomanip.h>
#include<iostream.h>
#include<math.h>
main()
{
int A[10][10];
int B[10][10];
int C[10][10];
int temp;
int a1,b1,a,b,c;
char P;
cout<<endl;

cout<<endl;
cout<<endl;
cout<<"====================================================";cout<<endl;
cout<<"                 TUGAS ANALISIS NUMERIK             ";cout<<endl;
cout<<"                    OPERASI MATRIKS                 ";cout<<endl;
cout<<"=====================================================";cout<<endl;
cout<<endl;

textcolor(9);cprintf("   TAMPILAN MATRIKS A DAN MATRIK B   ");cout<<endl;
cout<<endl;
cout<<" Masukkan jumlah kolom matriks=";cin>>a1;
cout<<" Masukkan jumlah baris matriks=";cin>>b1;
cout<<endl;
cout<<"\n Input Elemen Martriks A : \n";
for( a=1;a<=a1;a++)
    {
for( b=1;b<=b1;b++)
    {
cout<<" masukkan elemen ke ("<<a<<","<<b<<")= ";
cin>>A[a][b];
}
}
textcolor(13);cprintf("\n Martriks A \n");cout<<endl;
for( a=1;a<=a1;a++)
    {
for( b=1;b<=b1;b++)
    {
cout<<A[a][b];
cout<<"     ";
}
cout<<endl;
}
cout<<endl;
cout<<" Masukkan jumlah kolom matriks=";cin>>a1;
cout<<" Masukkan jumlah baris matriks=";cin>>b1;
cout<<endl;
cout<<"\n Input Elemen Martriks B : \n";
for( a=1;a<=a1;a++)
    {
for( b=1;b<=b1;b++)
    {
cout<<" masukkan elemen ke ("<<a<<","<<b<<")= ";
cin>>B[a][b];
}
}
textcolor(12);cprintf("\n Martriks B \n");cout<<endl;
for( a=1;a<=a1;a++)
    {
for( b=1;b<=b1;b++)
    {
cout<<A[a][b];
cout<<"     ";
}
cout<<endl;
}
cout<<endl;
textcolor(15);cprintf(" Pilihan Operasi Matriks : ");cout<<endl;
textcolor(15);cprintf(" 1. (+) Penjumlahan ");cout<<endl;
textcolor(15);cprintf(" 2. (-) Pengurangan ");cout<<endl;
textcolor(15);cprintf(" 3. (T) Transpose ");cout<<endl;
textcolor(15);cprintf(" 4. (*) Perkalian ");cout<<endl;
textcolor(15);cprintf(" Ingin operasi matriks dengan simbol yang mana?  ");cin>>P;
if(P=='+')
{
cout<<endl;
textcolor(9);cprintf("   Penjumlahan Matriks (A + B) : ");cout<<endl;
textcolor(9);cprintf("\n Matriks C \n");cout<<endl;
for ( a=1;a<=a1;a++)
    {
for ( b=1;b<=b1;b++)
   {
   C[a][b]=(A[a][b])+(B[a][b]);
    printf(" %4d ",C[a][b]);
}
cout<<endl;
}
}
else if(P=='-')
{
cout<<endl;
textcolor(11);cprintf("   Pengurangan Matriks (A - B) : ");cout<<endl;
textcolor(11);cprintf("\n   Matriks C \n");cout<<endl;
for ( a=1;a<=a1;a++)
    {
for ( b=1;b<=b1;b++)
   {
    C[a][b]=(A[a][b])-(B[a][b]);
    printf(" %4d ",C[a][b]);
}
cout<<endl;
}
}
else if (P=='T')
{
cout<<endl;
textcolor(12);cprintf("      TRANSPOSE Martriks A : ");cout<<endl;
for( a=1;a<=b1;a++)
    {
for( b=1;b<=a1;b++)
    {
    cout<<A[b][a];
    cout<<"     ";
}
cout<<endl;
}
cout<<endl;
textcolor(12);cprintf("     TRANSPOSE Martriks B : ");cout<<endl;
for( a=1;a<=b1;a++)
    {
for( b=1;b<=a1;b++)
    {
    cout<<B[b][a];
    cout<<"     ";
}
cout<<endl;
}
}
else if(P=='*')
{
cout<<endl;
textcolor(13);cprintf("   Perkalian Matriks (A x B) : ");cout<<endl;
cout<<endl;
cout<<"\Matriks C \n";
for ( a=1;a<=a1;a++)
    {
for ( b=1;b<=b1;b++)
    {
C[a][b]=0;
for ( c=1;c<=b1;c++)
    {
temp=A[a][c]*B[c][b];
C[a][b]=C[a][b]+temp;
}
}
}
cout<<endl;
for ( a=1;a<=a1;a++)
    {
for ( b=1;b<=b1;b++)
    {
    cout<<C[a][b];
    cout<<"  ";
}
cout<<endl;
}
}
getche();
}

Pemrograman (Metode Secant)

 Metode Secant
#include<iostream.h>
#include<iomanip.h>
#include<stdio.h>
#include<conio.h>
#include<math.h>
#define epsilon 1E-15

main()
{
int it;
long double x[100],fx[100],fs;

textcolor(10);cprintf(" Nama  : Asrul Maiwa");cout<<endl;
textcolor(10);cprintf(" NIM   : 1312140015");cout<<endl;
textcolor(10);cprintf(" Kelas : SAINS(C)");cout<<endl;
textcolor(2);cprintf("================================================");cout<<endl;
textcolor(12);cprintf("               METODE   SECANT                 ");cout<<endl;
textcolor(2);cprintf("================================================");cout<<endl;
cout<<endl;
textcolor(12);cprintf("  1.  1+x-tan(x)= 0");cout<<endl;
cout<<endl;
textcolor(10);cprintf("================================================");cout<<endl;
textcolor(10);cprintf("|");
printf(" Iterasi ");
textcolor(10);cprintf("|");
printf("     x     ");
textcolor(10);cprintf("|");
printf("    f(x)   ");
textcolor(10);cprintf("|");
printf(" KETERANGAN ");
textcolor(10);cprintf("|");cout<<endl;
textcolor(10);cprintf("================================================");cout<<endl;
it=0;
x[it]=1;
fx[it]=1+x[it]-tan(x[it]*3.14/180);

textcolor(10);cprintf("|");
printf(" %4d    ",it);
textcolor(10);cprintf("|");
printf("%10.2Le ",x[it]);
textcolor(10);cprintf("|");
printf("%10.2Le ",fx[it]);
textcolor(10);cprintf("|");
printf("            ");
textcolor(10);cprintf("|");cout<<endl;
it=1;
x[it]=2;
fx[it]=1+x[it]-tan(x[it]*3.14/180);
textcolor(10);cprintf("|");
printf(" %4d    ",it);
textcolor(10);cprintf("|");
printf("%10.2Le ",x[it]);
textcolor(10);cprintf("|");
printf("%10.2Le ",fx[it]);
textcolor(10);cprintf("|");
printf("            ");
textcolor(10);cprintf("|");cout<<endl;
do
{
it+=1;
x[it]=x[it-1]-((fx[it-1]*(x[it-1]-x[it-2]))/(fx[it-1]-fx[it-2]));
fx[it]=1+x[it]-tan(x[it]*3.14/180);
fs=fabs(x[it]-x[it-1]) ;
textcolor(10);cprintf("|");
printf(" %4d    ",it);
textcolor(10);cprintf("|");
printf("%10.2Le ",x[it]);
textcolor(10);cprintf("|");
printf("%10.2Le ",fx[it]);
textcolor(10);cprintf("|");

if(fs<=epsilon)
{
printf("   SELESAI  ");
}
else
{
printf("   LANJUT   ");
}
textcolor(10);cprintf("|");
cout<<endl;

if(it % 2 == 0 )
{
textcolor(10);cprintf("|");
textcolor(2);cprintf("      Nilai Akar : %20.13Le", x[it]);
textcolor(10);cprintf("       |");cout<<endl;

}
}
while(it<=90 && fs>=epsilon);
textcolor(10);cprintf("================================================");cout<<endl;
cout<<endl;

textcolor(12);cprintf(" Nilai Akar : %20.13Le", x[it]);cout<<endl;
printf("   Selesai Pada Iterasi Ke- %d",it);cout<<endl;

getche();
}

Pemrograman (Metode Newton Rapshon)

#include<iostream.h>
#include<iomanip.h>
#include<stdio.h>
#include<conio.h>
#include<math.h>
#define epsilon 1E-15
main()
{
int p,it;
char lagi;
long double x, fx, f_x,fs,xl,fxl,f_xl;
awal:
clrscr();

textcolor(10);cprintf("========================================================================");cout<<endl;
textcolor(12);cprintf("                            NEWTON RAPHSON                              ");cout<<endl;
textcolor(10);cprintf("========================================================================");cout<<endl;
cout<<endl;
cout<<endl;
printf("Soal-soal dengan penyelesaian Metode Newton Repson : ");cout<<endl;
cout<<endl;
textcolor(12);cprintf("1. 3x-cos(x)=0");cout<<endl;
textcolor(12);cprintf("2. tan(x)=1-x");cout<<endl;
cout<<endl;
cout<<endl;
textcolor(10);cprintf("Ingin Jawaban Nomer Berapa ? ");cin>>p;cout<<endl;

if(p==1)
{
   clrscr();
    textcolor(2);cprintf("============================================================");cout<<endl;
    textcolor(12);cprintf("                     NEWTON  RAPHSON                       ");cout<<endl;
    textcolor(2);cprintf("============================================================");cout<<endl;
    cout<<endl;
    textcolor(12);cprintf("  Soal No. 1. 3x-cos(x)=0");cout<<endl;
   cout<<endl;
    textcolor(10);cprintf("==============================================================");cout<<endl;
    textcolor(10);cprintf("|");
    printf(" Iterasi ");
    textcolor(10);cprintf("|");
    printf("     x     ");
    textcolor(10);cprintf("|");
    printf("    f(x)   ");
    textcolor(10);cprintf("|");
    printf("   f'(x)   ");
    textcolor(10);cprintf("|");
    printf(" KETERANGAN ");
    textcolor(10);cprintf("|");cout<<endl;
    textcolor(10);cprintf("============================================================");cout<<endl;

    it=0;
    x=1;
    fx=(3*x)-cos(x*3.14/180);
    f_x=(3+sin(x*3.14/180));
    textcolor(10);cprintf("|");
    printf(" %4d    ",it);
    textcolor(10);cprintf("|");
    printf("%10.2Le ",x);
    textcolor(10);cprintf("|");
    printf("%10.2Le ",fx);
    textcolor(10);cprintf("|");
    printf("%10.2Le ",f_x);
    textcolor(10);cprintf("|");
    printf("            ");
    textcolor(10);cprintf("|");cout<<endl;

    do
    {
    it+=1;
    xl=x-(fx/f_x);
    fxl=(3*xl)-cos(xl*3.14/180);
    f_xl=(3+sin(xl*3.14/180));
    fs=fabs(xl-x);

    textcolor(10);cprintf("|");
    printf(" %4d    ",it);
    textcolor(10);cprintf("|");
    printf("%10.2Le ",xl);
    textcolor(10);cprintf("|");
    printf("%10.2Le ",fxl);
    textcolor(10);cprintf("|");
    printf("%10.2Le ",f_xl);
    textcolor(10);cprintf("|");

    x=xl;
    fx=fxl;
    f_x=f_xl;

    if(fs<=epsilon)
    {
    textcolor(12);cprintf("   SELESAI  ");
    }
    else
    {
    printf("   LANJUT   ");
    }
    textcolor(10);cprintf("|");
    cout<<endl;
    }
    while(it<=90 && fs>=epsilon);
    textcolor(10);cprintf("============================================================");cout<<endl;
    cout<<endl<<endl;

    printf("   Nilai Akar : %20.17Le",xl);cout<<endl;
    printf("   Selesai Pada Iterasi Ke- %d",it);cout<<endl;

    textcolor(2);cprintf(" Masih Mau dengan Soal yang Lainnya ? [Y/T] : \n");

    lagi=getche();
    if(lagi=='Y' || lagi=='y')
    goto awal;

    getche();
    }
else if(p==2)
{
clrscr();
textcolor(2);cprintf("============================================================");cout<<endl;
textcolor(12);cprintf("                     NEWTON  RAPHSON                       ");cout<<endl;
textcolor(2);cprintf("============================================================");cout<<endl;
cout<<endl;
textcolor(12);cprintf("  Soal No. 2 : tan(x)=1-x");cout<<endl;
textcolor(10);cprintf("============================================================");cout<<endl;
textcolor(10);cprintf("|");
printf(" Iterasi ");
textcolor(10);cprintf("|");
printf("     x     ");
textcolor(10);cprintf("|");
printf("    f(x)   ");
textcolor(10);cprintf("|");
printf("   f'(x)   ");
textcolor(10);cprintf("|");
printf(" KETERANGAN ");
textcolor(10);cprintf("|");cout<<endl;
textcolor(10);cprintf("============================================================");cout<<endl;
it=0;
x=1;
fx =tan(x*3.14/180)-1+x;
f_x= 1/pow(cos(x*3.14/180),2)+1;
textcolor(10);cprintf("|");
printf(" %4d    ",it);
textcolor(10);cprintf("|");
printf("%10.2Le ",x);
textcolor(10);cprintf("|");
printf("%10.2Le ",fx);
textcolor(10);cprintf("|");
printf("%10.2Le ",f_x);
textcolor(10);cprintf("|");
printf("            ");
textcolor(10);cprintf("|");cout<<endl;

do
{
it+=1;
xl=x-(fx/f_x);
fxl= tan(xl*3.14/180)-1+xl;
f_xl=1/pow(cos(xl*3.14/180),2)+1;

fs=fabs(xl-x);

textcolor(10);cprintf("|");
printf(" %4d    ",it);
textcolor(10);cprintf("|");
printf("%10.2Le ",xl);
textcolor(10);cprintf("|");
printf("%10.2Le ",fxl);
textcolor(10);cprintf("|");
printf("%10.2Le ",f_xl);
textcolor(10);cprintf("|");

x=xl;
fx=fxl;
f_x=f_xl;

if(fs<=epsilon)
{
textcolor(12);cprintf("   SELESAI  ");
}
else
{
printf("   LANJUT   ");
}
textcolor(10);cprintf("|");
cout<<endl;
if(it%10==0)
{
getche();
}

}
while(it<=90 && fs>=epsilon);
textcolor(10);cprintf("============================================================");cout<<endl;
cout<<endl<<endl;

printf("   Nilai Akar : %20.17Le",xl);cout<<endl;
printf("   Selesai Pada Iterasi Ke- %d",it);cout<<endl;

textcolor(2);cprintf(" Masih Mau dengan Soal yang Lainnya ? [Y/T] : \n");

lagi=getche();
if(lagi=='Y' || lagi=='y')
goto awal;

getche();
}
else
{
printf("Nomer Yang Anda Masukkan Tidak Terdaftar dalam Soal");cout<<endl;
textcolor(2);cprintf(" Masih Mau dengan Soal yang Lainnya ? [Y/T] : \n");

lagi=getche();
if(lagi=='Y' || lagi=='y')
goto awal;
}
getche();
}

Pemrograman ( Metode Titik Tetap )

Metode Titik Tetap


#include<iostream.h>
#include<iomanip.h>
#include<stdio.h>
#include<conio.h>
#include<math.h>
#define epsilon 1E-13

main()
{
int it;
long double x=0.921, g_x ,fs;


textcolor(12);cprintf("                     METODE TITIK TETAP                       ");cout<<endl;
textcolor(2);cprintf("==============================================================");cout<<endl;

printf(" Eror         : ");cout<<epsilon<<endl;
printf(" Nilai X awal : %2.1Le\n",x);
textcolor(10);cprintf("==============================================================");cout<<endl;
textcolor(10);cprintf("|");
printf(" Iterasi ");
textcolor(10);cprintf("|");
printf("     x     ");
textcolor(10);cprintf("|");
printf("    g(x)   ");
textcolor(10);cprintf("|");
printf("    g(x)-x   ");
textcolor(10);cprintf("|");
printf(" KETERANGAN ");
textcolor(10);cprintf("|");cout<<endl;
textcolor(10);cprintf("==============================================================");cout<<endl;

it=-1;
do
{
it+=1;
g_x = log(2)-log(sin(x));
fs=fabs(g_x -x);

textcolor(10);cprintf("|");
printf(" %4d    ",it);
 textcolor(10);cprintf("|");
printf("%10.2Le ",x);
 textcolor(10);cprintf("|");
printf("%10.2Le ",g_x);
 textcolor(10);cprintf("|");
printf("%12.5Le ",fs);
 textcolor(10);cprintf("|");

x=g_x;

if(fs>=epsilon)
{
printf("   LANJUT   ");
}
else
{
textcolor(12);cprintf("  SELESAI   ");
}
textcolor(10);cprintf("|");cout<<endl;

if(it==3)                                                                    
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==6)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==9)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==12)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==15)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==18)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==21)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==24)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==27)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==30)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==33)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==36)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==39)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==42)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==45)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==48)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==51)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==54)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==57)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==60)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==63)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}

else if(it==66)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==69)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==72)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==75)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==78)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==81)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==84)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==87)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==90)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==93)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==96)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==99)
{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
else if(it==102)

{
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;
getche();
}
}
while(it<=200 && fs>=epsilon);
textcolor(10);cprintf("==============================================================");cout<<endl;
cout<<endl<<endl;
printf("   Selesai Pada Iterasi Ke- %d",it);cout<<endl;
textcolor(12);cprintf("   Nilai X sementara =  %20.16Le",g_x);cout<<endl;

}

Pemrograman (Metode Bagi Dua )

Metode Bagi Dua  


#include<stdio.h>
#include<iomanip.h>
#include<conio.h>
#include<math.h>
#include<iostream.h>
#define epsilon 1E-13
main()
{
int it;
long double a=-1,b=2,T,fa,fb,fT,faT,e=2.718281828,KET;

cout<<"**************************************************************************";cout<<endl;
cout<<"          ANALISIS NUMERIK  / Metode Bagi Dua                              ";cout<<endl;
cout<<"**************************************************************************";cout<<endl;
printf("============================================================================");cout<<endl;
printf("| it|    a    |    b    |   f(a)  |   f(b)  |    T   |   f(T)  |f(a)f(T)| Ket |");cout<<endl;
printf("============================================================================");cout<<endl;

it=0;
fa=pow(e,a)-6*pow(a,2);
fb=pow(e,b)-6*pow(b,2);
T=(a+b)/2;
fT=pow(e,T)-6*pow(T,2);
faT=fa*fT;
printf("|%3d| %5.1Le| %5.1Le|%5.1Le |%5.1Le |%5.1Le | %5.1Le |%5.1Le |",it,a,b,fa,fb,T,fT,faT);cout<<endl;

do
{
if(faT<0)
{b=T;fT=fb;}
else
{a=T;fT=fa;}

it=it+1;
T=(a+b)/2;
fT=pow(e,T)-6*pow(T,2);
faT=fa*fT;
KET=fabs(fT);

printf("|%3d| %5.1Le| %5.1Le|%5.1Le |%5.1Le | %5.1Le | %5.1Le |%5.1Le |",it,a,b,fa,fb,T,fT,faT);
if(KET<=epsilon)
{printf("SELESAI|");}
else
{cout<<"LANJUT |";}
cout<<endl;
}
while(it<=100 && fabs(fT)>=epsilon);
printf("============================================================================");cout<<endl;
printf("==> Jadi nilai akarnya ( %3.5Le ) pada iterasi ke %3d .",T,it);

getche();
}

Pemrograman (Metode Posisi Palsu)

Pada kesempatan ini saya akan membagikan artikel mengenai Bahasa pemrograman yaitu bahasa C++  dimana dalam bahasa C++ kita sapat menjumpai Program Borland C++ yang di gunakan Misalnya kawan ada mata kuliah nya Analisa Numerik Atau Komputasi di Perguruan Tinggi yang Kawan kawan tempati. Dalam Hal ini saja akan Membagikan tentang Metode Posisi Palsu.


#include<iostream.h>
#include<iomanip.h>
#include<stdio.h>
#include<conio.h>
#include<math.h>
#define epsilon 1E-13     
main()
{
long double a,b,c,f_a,f_b,f_c,f_ac,ffac;
int max=100;
int it;
char lagi;

awal:
clrscr();
it=-1;
textcolor(13);cprintf("======================================");
textcolor(10);cprintf("=");
textcolor(13);cprintf("========================================");cout<<endl;
textcolor(10);cprintf("=============================");
textcolor(12);cprintf(" Metode Posisi Palsu ");
textcolor(10);cprintf("=============================");cout<<endl;
textcolor(13);cprintf("======================================");
textcolor(10);cprintf("=");
textcolor(13);cprintf("========================================");cout<<endl;
cout<<endl;
cout<<endl;
textcolor(10);cprintf("                              2");cout<<endl;
textcolor(12);cprintf(" Persamaan yang digunakan : ");textcolor(10);cprintf(" X  + X - 3");cout<<endl;cout<<endl;
textcolor(10);cprintf(" Nilai Eror : ");cout<<epsilon<<endl<<endl;
textcolor(14);cprintf("Coba Dengan");textcolor(10);cprintf(" a=1");
textcolor(14);cprintf(" dan ");textcolor(12);cprintf("b=3 ");cout<<endl;;cout<<endl;
textcolor(10);cprintf("Masukkan Nilai a : ");cin>>a;cout<<endl;
textcolor(12);cprintf("Masukkan Nilai b : ");cin>>b;cout<<endl;
cout<<endl;
   textcolor(10);cprintf("================================================================================");cout<<endl;
    textcolor(10);cprintf("|");textcolor(11);cprintf(" No ");
   textcolor(10);cprintf("|");textcolor(12);cprintf("    a    ");
   textcolor(10);cprintf("|");textcolor(13);cprintf("    b    ");
   textcolor(10);cprintf("|");textcolor(14);cprintf("    c    ");
   textcolor(10);cprintf("|");textcolor(15);cprintf("   F(a)   ");
   textcolor(10);cprintf("|");textcolor(9);cprintf("   F(b)   ");
   textcolor(10);cprintf("|");textcolor(7);cprintf("   F(c)   ");
   textcolor(10);cprintf("|");textcolor(19);cprintf(" F(a)xF(c)");
   textcolor(10);cprintf("|");cout<<endl;
    textcolor(10);cprintf("================================================================================");cout<<endl;


   do
       {

      it+=1;
      f_a=pow(a,2)+a-3;
        f_b=pow(b,2)+b-3;
       c=((a*f_b)-(b*f_a))/(f_b-f_a);
      f_c=pow(c,2)+ c-3;
      f_ac=f_a*f_c;
      ffac=fabs(f_ac);



      textcolor(10);cprintf("|");textcolor(11);cprintf("%3d ",it);
      textcolor(10);cprintf("|");textcolor(12);cprintf("%9.2Le",a);
      textcolor(10);cprintf("|");textcolor(13);cprintf("%9.2Le",b);
      textcolor(10);cprintf("|");textcolor(14);cprintf("%9.2Le",c);
      textcolor(10);cprintf("|");textcolor(15);cprintf("%10.2Le",f_a);
      textcolor(10);cprintf("|");textcolor(9);cprintf("%10.2Le",f_b);
      textcolor(10);cprintf("|");textcolor(7);cprintf("%10.2Le",f_c);
      textcolor(10);cprintf("|");textcolor(19);cprintf("%10.2Le",ffac);
      textcolor(10);cprintf("|");
      cout<<endl;
      if(f_ac<=0)
         {
         b=c,f_b=f_c;
         }
         else
         {
         a=c;f_a=f_c;
         }
         }
   while(it<=max && fabs(f_c) >= epsilon);
       if(it<=max)
       {
      textcolor(10);cprintf("================================================================================");cout<<endl;
      textcolor(10);cprintf(" Hampiran (Pendekatan) Nilai ");
      textcolor(12);cprintf("x = %2.13Le ",c);cout<<endl;
               }
      else
      {
      textcolor(10);cprintf("================================================================================");cout<<endl;
      textcolor(10);cprintf(" hampiran tidak mencukupi... tambah nilai toleransi batas ");
      cout<<endl;
        }

      textcolor(2);cprintf(" Masih Mau dengan Epsilon yang Berbeda ? [Y/T] : \n");

        lagi=getche();
        if(lagi=='Y' || lagi=='y')

        goto awal;
getche();
}

Tuesday, 23 June 2015

4 Temuan Albert Einstein yang Tidak terkenal

  4 Temuan Albert Einstein yang Tidak terkenal

5 Temuan Albert Einstein yang Tidak Populer
Ahli fisika kelahiran Jerman yang menemukan teori relativitas, Albert Einstein (1879-1955) di Princeton, New Jersey, pada 1951. Eintein mendapat penghargaan Nobel dalam bidang Fisika pada tahun 1921. Ernst Haas/Ernst Haas/Getty Images
              Persamaan E = m c2, teori elativitas umum, efek fotolistrik, dan gerak Brown, merupakan terobosan yang membuat Albert Eistein menjadi fisikawan terkenal pada abad ke-20. Terlebih lagi teori relativitas umum, yang pertama kali diterbitkan pada April seratus tahun lalu, masih menginspirasi fisikawan hingga sekarang.

Namun, beberapa terobosan tersebut hanya segelintir dari penemuan Einstein. Ada beberapa pekerjaan lainnya yang diciptakan Einstein, hanya memang kurang dikenal oleh banyak orang. Berikut ini beberapa penemuan Einstein yang dikutip dari laman web Live Science:

1. Radiometer
Pada 1870-an, Sir William Crooker, kimiawan asal Inggris mengembangkan alat penghasil cahaya bernama radiometer. Alat tersebut berupa bola kaca, logam, dan beberapa potongan persegi panjang yang dibentuk kincir angin. Cahaya akan keluar dari proses gabungan antara berputarnya baling-baling dan cahaya matahari.

Lampu akan padam ketika baling-baling berhenti. Einstein tertarik dengan benda tersebut. Ia pun menghabiskan banyak waktu untuk mengetahui cara kerjanya. Akhirnya, Einstein menemukan hal lain saat mengamati baling-baling: molekul cahaya yang menghasilkan lebih banyak tekanan di ujung baling-baling. 
3. Lensa Gravitasi
Ide ini tak diciptakan langsung oleh Einstein. Adalah Rudy Mandl, insinyur muda asal Ceko, yang menceritakan teori ini kepada Einstein. Mandl, yang pernah belajar teori relativitas umum, percaya bahwa jika sebuah obyek dapat membelokkan cahaya di sekitarnya jika obyek di tersebut cukup besar. "Menciptakan semacam lensa gravitasi," kata Kennefick.

Einstein sendiri belum pernah berpikir tentang teori tersebut. Tapi, setelah Mandl bercerita, ia menghitung proses kerja ide tersebut. Akhirnya, teori lensa gravitasi ini menjadi andalan astronomi modern dan dijadikan dasar untuk menemukan planet ekstrasolar.
3. Pendingin Einstein
Selain teori, Einstein ternyata juga dikenal suka dengan hal-hal praktis. "Dia juga sering bereksperimen menciptakan suatu alat," kata Daniel Kennefick, fisikawan dari University of Arkansas, yang juga pengarang buku Travelling at the Speed of Thought: Einstein and the Quest for Gravitational Waves.

Bersama fisikawan asal Hungaria bernama Leo Szilard, Einstein mengembangan skema pendingin baru yang tidak melibatkan kompresor dan dinamo. Idenya ialah memanfaatkan skema pemanasan air. Saat mendidih, air berada pada suhu yang lebih rendah dan bertekanan rendah.

Berlandaskan ide ini, Einstein dan Szilard menempatkan sebotol butana pada pemanas dan dipanaskan di bawah uap amonia yang memiliki tekanan rendah. Walhasil, keduanya berhasil menciptakan pendingin tanpa kompresor. Pada 1930, skema pendinginan ini kemudian dipatenkan Einstein.

4. Bose-Einstein Condensate
Karya ini Einstein ciptakan bersama Satyaendra Nath Bose, fisikawan asal India. Teori ini metode untuk menghitung statistik foton (partikel cahaya). Einstein menyadari, bahwa partikel seukuran rambut didinginkan di atas nol absolut (minus 273.15 derajat Celsius), maka partikel tersebut akan jatuh kembali ke posisi energi rendah mereka.

Itu artinya, kumpulan partikel sama dengan satu partikel besar, yang akan membentuk materi baru. Teori ini dikenal dengan Bose-Einstein Condensate. Butuh waktu 70 tahun bagi para ilmuwan untuk membuktikan keberadaan superfluida ini. Tapi, usaha fisikawan tersebut diganjar Nobel pada 2001.

Apa sih itu Lubang Hitam dalam Fsika

Para ilmuwan mengungkapkan, penemuan lubang hitam super besar dari masa awal alam semesta, diperkirakan akan mengubah ilmu fisika.
Dalam jurnal berjudul ‘Nature’ disebut, sekelompok tim astronom internasional mendeteksi lubang hitam sebesar 12 miliar kali massa Matahari.
Lubang hitam, yang terbentuk 900 juta tahun setelah ‘Big Bang’ atau ledakan dahsyat, adalah sumber dari sinar yang kuat dari obyek terang, yang dikenal sebagai ‘quasar’.
"Ketika kami menemukan lubang hitam super besar ini, kami sangat gembira karena kami telah menemukan sesuatu yang kami pikir tak pernah bisa temukan sebelumnya," ungkap Dr Fuyan Bian dari Universitas Nasional Australia.
Tim ini, yang dipimpin oleh Xue-Bing Wu dari Universitas Peking, menemukan lubang hitam dan ‘quasar’ - yang dikenal sebagai SDSS JO100 + 2.802 – dengan menggunakan sistem teleskop ‘Sloan Digital Sky Survey’, kemudian ditindaklanjuti dengan tiga teleskop lainnya.

Teori fisika baru dibutuhkan untuk menjelaskan ‘quasar’ dari lubang hitam superbesar kuno, yang sebesar 14 miliar kali massa matahari. (Foto: NASA/Caltech)
Teori fisika baru dibutuhkan untuk menjelaskan ‘quasar’ dari lubang hitam superbesar kuno, yang sebesar 14 miliar kali massa matahari. (Foto: NASA/Caltech)
Dengan sinar yang 420 triliun kali lebih terang daripada matahari, quasar yang baru ini tujuh kali lebih terang dari quasar paling jauh yang diketahui.
"Quasar ini sangat unik. Sama seperti mercusuar terang di alam semesta, cahayanya yang bersinar akan membantu kami menyelidiki lebih lanjut tentang pembentukan awal alam semesta," tutur Xue-Bing.
Menantang fisika
Namun, penemuan lubang hitam super besar yang memberi daya pada ‘quasar’, menimbulkan misteri: bagaimana lubang hitam rakasa seperti itu bisa tumbuh begitu cepat di masa awal alam semesta?.
"Sangat sulit untuk membuat lubang hitam super besar seperti ini pada masa awal alam semesta. Kami perlu menemukan beberapa teori baru yang dapat menumbuhkan lubang hitam superbesar jauh lebih cepat dari yang kita duga," jelas Xue-Bing.
Lubang hitam super besar diyakini telah terbentuk dalam hubungannya dengan galaksi di masa awal alam semesta, tapi menurut teori saat ini, harus ada keseimbangan kekuatan yang hati-hati untuk menciptakan sebuah lubang hitam.
Ketika obyek berakselerasi menuju lubang hitam di bawah gravitasi, ia memanas, memancarkan jumlah energi yang luar biasa dalam bentuk ‘quasar’.
Tetapi energi ‘quasar’ sebenarnya mendorong obyek menjauh dari lubang hitam, sehingga jika terlalu besar, ia bisa menghentikan obyek itu jatuh ke ke lubang hitam.
Kekuatan ini harus seimbang, yang membatasi seberapa cepat lubang hitam dapat tumbuh. Fakta ini, yang dikombinasikan dengan sejumlah kecil masalah yang muncul di alam semesta awal, mempersulit para ilmuwan untuk menjelaskan bagaimana lubang hitam superbesar itu muncul.
"Dengan lubang hitam super besar ini di masa awal pembentukan alam semesta, teori itu tak bisa dipakai. Sudah waktunya ada hipotesis baru dan beberapa teori fisika baru," utara Dr. Fuyan.