clc
clear



ipy=zeros（11202）;
????for?k=1:1202
????if?（k>=600&&k<=1000）
????????ipy（1k）=abs（ipy（1k））+0.01;
????end
????end??
????
????
L=200;
StackF=50;%疊加次數
n=0;
b=0;
p=5;
a=0.8;
g=0.9;
u=1;
x=g*exp（-2*a）;
while（1）
????n=n+1;??
????for?j=1:6*L+2
????????XX=unifrnd（-0.10.1L+1）;
????????for?i=1:（p-1）
????????????i