<?php
header
("content-type: image/jpeg");

//frame
    
$gb imagecreate(800,800);

//vaariabel warna
    
$merah imagecolorallocate($gb25500);
    
$hijau imagecolorallocate ($gb02550);
    
$biru imagecolorallocate ($gb00255);
    
$hitam imagecolorallocate ($gb000);
    
$putih imagecolorallocate ($gb255255255);
    
$kuning imagecolorallocate ($gb255255);
    
//imagefilledrectangle
    
imagefilledrectangle ($gb00800600$kuning);
//konfersi ke koordinat kartes
    
$a1 800;
    
$b1 600;
    
    
$xmin = -0.1;
    
$xmax 2.5;
    
$ymin = -0.0001;
    
$ymax 0.0015;
    
    
$k1 $a1/($xmax-$xmin);
    
$k2 $a1*$xmin/($xmin-$xmax);
    
$k3 $b1/($ymin-$ymax);
    
$k4 $b1*$ymax/($ymax-$ymin);

//sumbu x
    
$px1 $k1*$xmin+$k2;
    
$px2 $k1*$xmax+$k2;
    
$py1 $k3*0.0+$k4;
    
imageline($gb$px1$py1$px2$py1$hitam);
    
//sumbu y
    
$py1 $k3*$ymin+$k4;
    
$py2 $k3*$ymax+$k4;
    
$px1 $k1*0.0+$k2;
    
imageline($gb$px1$py1$px1$py2$hitam);

    
$v=10;
    
$r=2000;
    
$c=0.0001;
    
$t=0;

    
$h=0.01;   
    
$tmax=2.5;
    
$qn=0;
    
$In=$v/$r;
    
    do 
      {
    
// analitik q
        
$qa=$v*$c*(1-exp(-$t/($r*$c)));
           
$pqa $k3*$qa+$k4;
        
$pt $k1*$t+$k2;        
        
imagesetpixel ($gb$pt$pqa$hitam);
    
// analitik I
        
$Ia $v/$r*(exp(-$t/($r*$c)));
        
$pIa $k3*$Ia/10+$k4;
        
imagesetpixel ($gb$pt$pIa$biru);
    
// numerik
        
$In 1/$r*($v-$qn/$c);
        
$pqn $k3*$qn+$k4;
        
imagesetpixel ($gb$pt$pqn$merah);
        
        
$pIn $k3*$In/10+$k4;
         
imagesetpixel ($gb$pt$pIn$merah);            
        
$qn $qn $h*$In;
        
$t $t $h;
        }
    while (
$t <= $tmax);
    

 
// Menampilkan gambar ke browser
  
imagejpeg($gb);

  
// Mendealokasikan memory
  
imagedestroy($gb);

?>