KİTAPLAR TURHAN ÇOBAN

M. Turhan ÇOBAN
EGE Üniversitesi Mühendislik Fak. Makina Müh. bölümü, Bornova, İZMİR
EGE University, School of Engineering, Dept of Mechanical Eng. Izmir, Turkey
turhan.coban@turhancoban.com

PLOT PROGRAMS
surfacePlotE2
surfacePlot: 3D surface Plot
code is taken from : http://sourceforge.net/projects/javasurfaceplot/ and developed further by using authors own programs.
This version can plot 2D surfaces and surfaces of derivatives of the data by using data file dat or function extended from abstract class f_xj

/**
*
* @author turhan_coban
*/
abstract class f_xj extends Mathd
{
// single function multi independent variable
// a single value is returned indiced to equation_ref
abstract double func(double x[]);
public double dfunc(double x[],int x_ref)
{ // derivative of the function with respect to x_ref
double h0=0.0256;
int i,m;
int n=7;
double f1,f2;
double x1[];
x1=new double[x.length];
double x2[];
x2=new double[x.length];
for(i=0;i<x.length;i++)
{
x1[i]=x[i];
x2[i]=x[i];
}
//derivative of a simple function
double T[][];
T=new double[n][n];
double h[];
h=new double[n];
//vector<double> h(n,0);
for(i=0;i<n;i++)
{
h[i]=0;
for(int j=0;j<n;j++)
T[i][j]=0;
}
h[0]=h0;
double r=0.5;
for( i=1;i<n;i++)
{
h[i]=h0*Math.pow(r,i);
}
for(i=0;i<n;i++)
{
x1[x_ref]+=h[i];
x2[x_ref]-=h[i];
f1=func(x1);
f2=func(x2);
T[i][0]=( f1 - f2)/(2.0*h[i]);
x1[x_ref]=x[x_ref];
x2[x_ref]=x[x_ref];
}
for(m=1;m<n;m++)
{
for(i=0;i<n-m;i++)
{
T[i][m]=(h[i]*h[i]*T[i+1][m-1] - h[i+m]*h[i+m]*T[i][m-1])/(h[i]*h[i]
- h[i+m]*h[i+m]);
}
}
double xx=T[0][n-1];
return xx;
}
}

surfacePlot.jar
surfacePlot.java
Point3D.java
Projector.java
SurfaceCanvas.java
ISurfacePlotModel.java
f_xj.java
Mathd.java
NA129H.java