Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Офтопик > Работа > Задания за деньги
Перезагрузить страницу Нужна задачка на фортране
Закрытая тема
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
testir testir вне форума
Новичок
 
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 26.11.2005
По умолчанию Нужна задачка на фортране - 26.11.2005, 16:58

Кто владеет фортраном, пиши, нужна помощь
ICQ 147320846
  (#2 (permalink)) Старый
Fuud Fuud вне форума
Member
 
Сообщений: 4,076
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 03.09.2004
По умолчанию Re: Нужна задачка на фортране - 27.11.2005, 11:48

Цитата:
Originally posted by testir
[b]Кто владеет фортраном, пиши, нужна помощь
ICQ 147320846
Задание какое?
  (#3 (permalink)) Старый
testir testir вне форума
Новичок
 
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 26.11.2005
По умолчанию 27.11.2005, 14:10

Выражение : A=N!M!


РАСПАРАЛЛЕЛИВАНИЕ ВЫРАЖЕНИЙ
Цель работы - изучение особенностей распараллеливания выражений, оценка эффективности применения
векторно-конвейерных процессоров для распараллеливания выражений.
Распараллеливание арифметических и логических выражений основано на представлении процесса
вычисления исходного выражения в виде дерева (дерева свертки), все вершины которого -операции, кроме листьев,
которые суть операнды. Все операции одного яруса дерева могут выполняться параллельно. Ищется дерево
минимальной высоты, эквивалентное исходному. Под эквивалентностью понимается совпадение результатов
последовательного и параллельного счета при применении ассоциативного, коммутативного и дистрибутивного
законов. Например, если исходное выражение имеет вид:
T=(X+(A*((B-C)*D)))-(Y-Z),
то параллельная минимальная форма выглядит следующим образом:
T1=((A*B)/(C-D))-((Y-Z)-X).
2 3 1 4 1 2
Здесь цифрами указаны ярусы параллельной формы. Однако векторно-конвейерные вычислительные системы
допускают выполнение на одном ярусе только однотипных операций. Поэтому окончательно для рассматриваемой
системы минимальная параллельная форма будет иметь вид:
T2=((A*B)/(C-D))-((Y-Z)-X).
2 4 1 5 1 3

Продолжительность лабораторной работы 2 академических часа.
1.4.1 МЕТОДИКА ВЫПОЛНЕНИЯ ЛАБОРАТОРНОЙ РАБОТЫ
1.Подготовить рабочую программу на ФОРТРАНе в соответствии с индивидуальным заданием, выдаваемым
преподавателем. Рабочая программа должна включать исходное выражение и его параллельную форму,
использующую средства МП При преобразовании выражения следует учитывать, что средствами МП можно
выполнять параллельно только однотипные операции.
2. Выполнить программу, используя средства системы поддержки. Результаты вычисления исходного и
преобразованного выражений должны совпадать.
3.Ответить на контрольные вопросы

1.1.2 ИНДИВИДУАЛЬНЫЕ ЗАДАНИЯ

1.1.3 ПРИМЕР ВЫПОЛНЕННОЙ РАБОТЫ
Исходное выражение
N=C+(Z*Z-A)+D +(B-Y*K)+1.25*A*B
Текст программы
позиции
1234567
DIMENSION F(100),G(100),H(100)
REAL K,M,N
S=10
A=3
B=6
C=1
D=2
Y=9
K=10
Z=13
CSBEG
N=C+(Z*Z-A)+D
N=N+(B-Y*K)+1.25*A*B
CSEND
F(1)=A
G(1)=-1
F(2)=A
G(2)=B
F(3)=Y
G(3)=K
F(4)=Z
G(4)=Z
CPBEG
#CALL EMULVV(F,F,G,4)
G(1)=1
G(2)=1.25
G(3)=-1
G(4)=1
#CALL EMULVV(F,F,G,4)
H(1)=F(1)
G(1)=C
H(2)=B
G(2)=D
H(3)=F(3)
G(3)=F(4)
#CALL EADDVV(H,H,G,4)
M=H(1)+H(2)+H(3)+F(2)
CPEND
IFLAG=0
IF (N.NE.M) IFLAG=1
4 FORMAT(' IFLAG=',I1)
WRITE(6,4) IFLAG
STOP
END
Результат выполнения программы
IFLAG=0
Время выполнения последовательного участка: 10.00
Время выполнения параллельного участка: 63.00
Коэффициент ускорения: 0.16
Ads
Закрытая тема

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нахождение конечной суммы ряда в Фортране Su-34 Вопросы начинающих программистов 0 21.12.2011 11:50
Задачка JustSteven Pascal 2 29.11.2011 14:19
Задачка по программированию. Нужна помощь, если поможет, в долгу не останусь =) imported_bobik Вопросы начинающих программистов 4 29.09.2011 10:10
Помогите найти ошибки в программе на Фортране Елена Химина Pascal 10 04.06.2011 16:34
задачка Tina Prolog 2 06.04.2010 09:50
Задачка Julijanna Задания за деньги 8 30.09.2009 21:21
задачка на PHP Alexandr_14 PHP 4 06.02.2008 02:22
Как обеспечить вызов из C++ (среда Borland C++ Builder) процедуры на фортране forevern C++ Builder 15 10.04.2006 00:44
Самая простейшая задачка, нужна помощь. Eminio Задания за деньги 7 11.03.2006 20:31
Задачка про чай MiHanick Prolog 1 12.12.2004 12:23
Как сделать сортировку на Фортране Anonymous Вопросы начинающих программистов 1 23.06.2004 06:57



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов