Добавил:
ivanov666
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Распараллеливание программ. Учебник
.pdf
41
Доказательство
DO 99 I=1,N
99 ТЕЛОЦИКЛА(I)
DO 99 I=1,h
DO 99 J=1,N//h
99 ТЕЛОЦИКЛА(h*(J-1)+I)
DO 88 I=1,N-(N//h)*h
88 ТЕЛОЦИКЛА((N//h)*h+I)
DO 99 J=1,N//h
DO 99 I=1,h
99 ТЕЛОЦИКЛА(J+(I-1)*(N//h))
DO 88 I=1,N-(N//h)*h
88 ТЕЛОЦИКЛА((N//h)*h+I)
Пример 45.
DO 99 I=1,128
99 X(I)= 3*X(I-1)
DO 99 I=1,8
DO 99 J=1,16
99 X(16*(I-1)+J)=3*X(16*(I-1)+J-1)
Конец примера.
Пример 46.
DO 99 I=1,128
99 X(I)= 3*X(I-1)
DO 99 I=1,8
42
DO 99 J=1,16
99 X(8*(J-1)+I)=3*X(8*(J-1)+I-1)
Конец примера.
Пример 47.
DO 99 I=1, 129
99 X(I)= 3*X(I-8)
DO 99 I=1, 8
DO 99 J=1, 16
99 X(8*(J-1)+I)=3*X(8*(J-1)+I-8)
X(129)= 3*X(129-8)
Конец примера.
I1<I2
(I2 mod h) < (I1 mod h).
Доказательство
DO 999 I = 1, N
999 ТЕЛОЦИКЛА(I)
DO 888 I = 1, N, h
ТЕЛОЦИКЛА(I)
43
ТЕЛОЦИКЛА(I+1)
........................
888 ТЕЛОЦИКЛА(I+h-1)
N2 = N mod h //остаток от деления числа N на h.
DO 777 I = N-N2+1, N
777 ТЕЛОЦИКЛА(I)
Доказательство
Пример 48.
DO 99 I = 1, 100
99 X(I) = A(I+1)+K(I)-X(I-1)
DO 99 J = 1, 50
I = 2*J
X(I-1) = A(I)+K(I-1)-X(I-2)
99 X(I) = A(I+1)+K(I)-X(I-1)
Конец примера.
Пример 49.
DO 99 I = 1, 100
DO 88 J = 1, 40
88 B(J) = K(I)*X(J)
44
99 X(I) = A(I+1)+B(I)-X(I-1)
DO 99 I = 1, 100, 2
DO 77 J = 1, 40
77 B(J) = K(I)*X(J)
X(I) = A(I+1)+B(I)-X(I-1)
DO 88 J = 1, 40
88 B(J) = K(I+1)*X(J)
99 X(I+1) = A(I+2)+B(I+1)-X(I)
Конец примера.
Пример 50.
DO 111 I = 1, N
A(I) = B(I)+C(I)
D(I) = (A(I)+A(I+1))/2.
111 CONTINUE
DO 111 I = 1, N
ATEMP(I) = A(I+1)
A(I) = B(I)+C(I)
D(I) = (A(I)+ATEMP(I))/2.
111 CONTINUE
Конец примера.
45
Пример 51.
DO 111 I = 3, N
A(I) = B(I-2)+C(I)
B(I) = (A(I)+A(I+1))/2
111 CONTINUE
DO 111 I = 3, N
ATEMP(I) = A(I+1)
BTEMP(I) = B(I)
A(I) = B(I-2)+C(I)
BTEMP(I) = (A(I)+ATEMP(I))/2
111 CONTINUE
Конец примера.
Пример 52.
DO 111 I = 1, 100
A = B(I)+C(I)
D(I) = A/2
111 CONTINUE
dimention AA[100]
DO 111 I = 1, 100
AA(I) = B(I)+C(I)
D(I) = AA(I)/2
111 CONTINUE
46
Конец примера.
AA(1)=A.
A=AA(I)
A=AA(N)
A=AA(I+1)
A=AA(N+1)
Доказательство
47
DO 333 I = 1, N
S1
..........
Sk
S(k+1)
..........
Sm
333 CONTINUE
DO 111 I = 1, N
S1
..........
Sk
111 CONTINUE
DO 222 I = 1, N
48
S(k+1)
..........
Sm
222 CONTINUE
Доказательство
DO 99 I
LOOPBODY1(I)
LOOPBODY2(I)
99 Continue
DO 77 I
LOOPBODY1(I)
77 Continue
DO 99 I
LOOPBODY2(I)
99 Continue
2
LOOPBODY1(I1)
LOOPBODY2(I1)
LOOPBODY1(I2)
LOOPBODY2(I2)
49
.......................... (7)
LOOPBODY1(In)
LOOPBODY2(In)
LOOPBODY1(I1)
LOOPBODY1(I2)
...........................
LOOPBODY1(In)
LOOPBODY2(I1) (8)
LOOPBODY2(I2)
............................
LOOPBODY2(In)
Пример 53.
DO 99 I = 1, 100
X(I) = A(I+1)
K(I) = X(I+1)
99 CONTINUE
DO 99 I = 1, 100
X(I) = A(I+1)
99 CONTINUE
DO 88 I = 1, 100
K(I) = X(I+1)
88 CONTINUE
Конец примера.
50
Пример 54.
DO 99 I = 1, 100
IF Y(I)<0 goto 99
K(I) = X(I-1)
99 CONTINUE
DO 88 I = 1, 100
X(I) = A(I+1)
88 CONTINUE
DO 88 I = 1, 100
IF Y(I)<0 goto 99
K(I) = X(I-1)
99 CONTINUE
X(I) = A(I+1)
88 CONTINUE
Конец примера.
Пример 55.
DO 99 I = 1, 100
X(I) = A(I+1)
K(I) = X(I+1)
Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]