clear;
clc;
clf;
fclose（‘all‘）;

format?long

%?---?file?name?---
num?=?1;
%?str?=?sprintf（‘data-%03d-.txt‘?num）;
str?=?‘data1b.txt‘;

fid?=?fopen（str）;

if?fid<0
????error（‘no?file?is?opened‘）;
end


i?=?3;
j?=?1001;
%?---?number?of?curves?---
k?=?76;

%?===?save?===
Data?=?zeros（j2k）;


p?=?i;
q?=?p+j-1;

n?=?1;
m?=?1;

filestr?=?sprintf（‘%03d.txt‘m）;
filefid=fopen（filestr?‘w‘）;


while?~feof（fid）
????
????line?=?fgetl（fid）;
????
????if?n>q
????????fclose（filefid）;
????????m?=?m+1;
????????if?m?>?1
??????