/
 
arrow arrow

1()

, = 13724; = 50000; = 3,1415926/210; ( = 0; < 40; ++) [] = (0,005 2); !( = 0; < ; ++) {

( = 0; < 30; ++) {

0[] = 0,0; [] = 0,0;} >( = 0; < 20; ++) {

Polar-coordinates();

  • 0o[k] = 0; C0[k] = C;} for(m = -20; m < 20; m++) { for( k = 0; k <30; k++) {
  • 0c[m+2O] = 0c[m+2O] + 0o[k] sp[k] cos(p (m - 20) k); Cc[m+20] = Cc[m+20] + Q>[k] sp[k] cos(p (m - 20) k);}} for( i = 0; i <20; i++) {

CF[i] = CF[i] + 0c[2O-i] 0c[2O+i] + y20n] CcPO+Q: A = CF[0];

for( n = 0; n <20; n++) CF[n] / A;

CFDbDoppler()

xin = 13724; Max = 50000; p = 3,1415926/210; for( k = 0; k < 40; k++) sp[k] = exp(-0,025 (k-20)2); for( M = 0; M < Max; M++) { for( m = 0; m < 40; m++) {

0c[m] = 0,0; ?c[m] = 0,0;} for( k = 0; k < 40; k++) {

Polar-coordinates();

  • 0o[k] = 0; C0[k] = ?} for(m = 0; m < 40; m++) { for( k = 0; k < 40; k++) {
  • 0c[m+2O] = 0c[m+2O] + 0o[k] sp[k] cos(p m k); ic[m+20] = Cc[m+20] + CoM sp[k] cos(p m k);}} for( k = 0; k < 20; k++) { for( m = 0; m < 20; m++) {

CF[k] = CF[k] + 0c[m] 0c[m+k] + ^c[m] ??c[m+k];}} A = CF[0];

for( n = 0; n < 20; n++) CF[n]/A;

 
     >