mfArray

 Description:   


Fortran 환경에서 mfArray를 이용하면 데이터 타입과 차원(Dimension)을 매우 동적으로 정의할 수 있습니다.(우측 예제 참조).  대부분의 처리 방식은 이런한 원리에 기초하고 있습니다. mfArray 기반의 프로시져는 여러분의 소스 코드를 수정하지 않고 여러분의 프로그램안에 쉽게 삽입할 수 있습니다. 또한, Matlab과 같은 구문을 Fortran 환경안에서 사용할 수 도 있습니다.

오른쪽 예제는 mfArray가 어떻게 정의되고 사용되는지를 보여 주고 있습니다.

 

 

 

 

  Numerical Procedures

 설명: 
 
MATFOR의 numerical procedures는 구문(Syntax)을 매우 쉽게 부를 수 있는 방식을 채택하고 있습니다. 데이터 구조 관리나 어떻게 입력 인수를 다루는 가에 대한 염려없이 오직 문제 해결에 중점을 둘 수 있도록 하였습니다. 아래 예제는 SVD(Singular Value Decomposition) 프로시져가 LAPACK과 MATFOR에서 어떻게 부를 수 있는가지를 보실 수 있습니다.

 

 
   
 

 

 Vector Programming

 

 Description: 
사용이 쉬운 구문을 이용하여, MATFOR의 프로시져는 벡터(Vector 언어 프로그래밍의 이점을 충분히 뢀용하여 가히 매우 직관적이다라고 말할 수 있습니다. 다음 예제는 전형적인 Fortran에서 작성한 코드들을 MATFOR에서 어떻게 단화시킬 수 있는지를 보여 줍니다.


 

 

 Example I

 Code:
 

Program Mesh
use fgl
implicit None

integer i, j, N
real z(30,30)

c Create data for plotting
   do 100 i = 1, 30
      do 200 j = 1, 30
         z(i,j)=3.0*sin((i+1)/
         + 4.0)*cos((j+1)/4.0)+2.0
         + *sin((i+j)/4.0)
      200 continue
   100 continue

c Call msMesh for Mesh plot
call msMesh(mf(z))

c Pause to display the graph
call msViewPause()

End Program Mesh

  

 
 

#include <math.h>
#include “fgl.h?/font>
void main()
{
   int i,j;
   double Dz[30][30];

// Create data for plotting
   for (i=0; i<30; i++){
      for (j=0; j<30; j++){
         Dz[i][j] = 3.0*sin((i+1)/4.0)
         *cos((j+1)/4.0)+2.0
         *sin((i+j)/4.0);
      }
   }

// Plot a mesh grid
mfMesh(mfArray(&Dz[0][0], 30,30));

// Pause to display the graph
mfViewPause();
}
 

  



 Result: 

  

 

 

 Example II

 Code:
 

Program Math
use fgl
use fml
implicit none

integer(4), parameter :: N=30
integer(4) :: i, j
real(8) :: z(N, N)

c Create data for plotting
do i = 1, N
　do j = 1, N
　　z(i, j) = (j*2.0/N-1)*sin(i*6.28/N)
　end do
end do

c Convert Fortran variable z to mfArray
c and call msSurf for Surf plot
call msSurf(mf(z))

c Pause to display the graph
call msViewPause()

End Program Math

  

 
 

#include <math.h>
#include <fgl.h>
#include <cml.h>
#define N 30 
void main()
{
　int i, j;
　double z[N][N];

// Create data for plotting
for (i=0; i<N; ++i)
{
　for (j=0; j<N; ++j)
　{
　　z[i][j] = (j*2.0/N-1) * sin(i*6.28/N);
　}
}

// Plot a Surf grid using mfArray for the
// grid intersections
mfSurf( mf(&z[0][0], N, N) );

// Pause to display the graph
mfViewPause();
}

  



 Result: