create lub zamieniać
PROCEDURA PREC_CEP_CALCULATED
ZACZYNAĆ
OZNAJMIAĆ
PREC_CEP_CALCULATIONS_ARRAY twodim_varray.array_t
: = twodim_varray.array_t ();
MPI_D_DF LICZBA (10,6);
MPI_D_RG LICZBA (10,6);
S_DF LICZBA (10,6);
S_RG LICZBA (10,6);
i LICZYĆ;
j LICZBA;
k LICZBA;
l LICZBA;
CEP LICZBA (10,6);
TYP RADIUS_ARRAY BYĆ VARRAY (475) LICZBA (10,3);
PROMIENIOMIERZ RADIUS_ARRAY: = RADIUS_ARRAY ();
delta_range LICZBA (10,3);
STEP_RADIUS LICZBA (10,3);
TYP THETA_ARRAY BYĆ VARRAY (507) LICZBA (10,2);
THETA THETA_ARRAY: = THETA_ARRAY ();
STEP_THETA LICZBA (10,2);
ZACZYNAĆ
WYBIERAĆ dR W delta_range OD INTEGRATION_VARIABLES;
radius.extend (475);
DLA i W 1. 475 PĘTLA
STEP_RADIUS: = delta_range * (i-1);
PROMIENIOMIERZ (i): = STEP_RADIUS;
KOŃCÓWKA PĘTLA;
THETA.EXTEND (507);
DLA i W 1. 507 PĘTLA
STEP_THETA: = (3.141/253) * (i-1);
THETA (i): = STEP_THETA;
KOŃCÓWKA PĘTLA;
PREC_CEP_CALCULATIONS_ARRAY.EXTEND;
PREC_CEP_CALCULATIONS_ARRAY (475)
: = twodim_varray.data_t ();
PREC_CEP_CALCULATIONS_ARRAY (507) .EXTEND;
PREC_CEP_CALCULATIONS_ARRAY (1) (1): = (0);
WYBRANY MPI_DELTA_DF W MPI_D_DF OD INTEGRATION_VARIABLES;
WYBRANY MPI_DELTA_RG W MPI_D_RG OD INTEGRATION_VARIABLES;
WYBRANY SIGMA_DF W S_DF OD INTEGRATION_VARIABLES;
WYBRANY SIGMA_RG W S_RG OD INTEGRATION_VARIABLES;
DLA k W 1. 475 PĘTLA
DLA l W 1. 507 PĘTLA
CEP: =PREC_CEP_CALCULATION (THETA (l), PROMIENIOMIERZ (k), S_DF, S_RG, MPI_D_DF, MPI_D_RG);
prec_cep_calculations_array (k) (l): = CEP;
KOŃCÓWKA PĘTLA;
KOŃCÓWKA PĘTLA;
KOŃCÓWKA;
KOŃCÓWKA PREC_CEP_CALCULATED;
|