테스트5

< with &lt;

clear t % Clears old time steps and% Clears old time steps and% Clears old time steps and% Clears old time steps and
clear y % y values from previous runs
a=0; % Initial time
b=1; % Final time
N=10; % Number of time steps
y0=0; % Initial value y(a)
h=(b-a)/N; % Time step
t(1)=a;
y(1)=y0;
for n=1:N % For loop, sets next t,y values
t(n+1)=t(n)+h;
y(n+1)=y(n)+h*f(t(n),y(n)); % Calls the function f(t,y)=dy/dt
end
plot(t,y)
title(['Euler Method using N=’,num2str(N),' steps, by MYNAME’])
% Include your own name

C 주석
program mysplit

character*80 line ! 라인의 최대 길이를 80으로 했습니다.
character*4 fname ! 생성되는 파일 이름
integer lnum ! 줄 번호
integer fnum ! 생성된 파일 일련 번호
integer lines_per_file ! 생성되는 파일의 라인 수
character*1 char1, char2, char3
integer achar0 ! '0'의 아스키 코드 번호

C 주석
program mysplit

character*80 line ! 라인의 최대 길이를 80으로 했습니다.
character*4 fname ! 생성되는 파일 이름
integer lnum ! 줄 번호
integer fnum ! 생성된 파일 일련 번호
integer lines_per_file ! 생성되는 파일의 라인 수
character*1 char1, char2, char3
integer achar0 ! '0'의 아스키 코드 번호

C 주�~D~]
program mysplit

character*80 line ! �~]��~]��~]~X �~\�~L~@ 길�~]�를 80�~\��~\ �~V~H�~J��~K~H�~K�.
character*4 fname ! �~C~]�~D��~P~X�~J~T �~L~L�~]� �~]��~D
integer lnum ! �~D �~H�~X�
integer fnum ! �~C~]�~D��~P~\ �~L~L�~]� �~]��| � �~H�~X�
integer lines_per_file ! �~C~]�~D��~P~X�~J~T �~L~L�~]��~]~X �~]��~]� �~H~X
character*1 char1, char2, char3
integer achar0 ! '0'�~]~X �~U~D�~J��~B� �~T�~S~\ �~H�~X�

테스트5 (rev. 1.22)