Студопедия — Листинг 7. Перемножение матриц с применением неровных массивов
Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Листинг 7. Перемножение матриц с применением неровных массивов






 

using System;

using System. Diagnostics;

using PerfCounter;

 

namespace BenchJaggedMatrix

{

/// <summary>

/// Перемножение матриц с использованием неровных массивов

/// </summary>

class MatrixMul

{

 

[ STAThread ]

static void Main ( string [] args )

{

int i, n;

 

// Объявляем неровные матрицы

double [][] MatrixA, MatrixB, MatrixC;

Random r = new Random ( 50 );

n = 1000;

 

MatrixA = new double [ n ][];

MatrixB = new double [ n ][];

MatrixC = new double [ n ][];

 

/* Создаем экземпляры массивов и инициализируем их */

for ( i = 0; i <;MatrixA. Length; i ++) {

MatrixA [ i ] = new double [ n ];

MatrixB [ i ] = new double [ n ];

MatrixC [ i ] = new double [ n ];

for ( int j = 0; j <;MatrixA [ i ]. Length; j ++) {

MatrixA [ i ][ j ]=( double ) r. Next ( 50 );

MatrixB [ i ][ j ]=( double ) r. Next ( 50 );

}

}

Counter counter = new Counter ();

 

/* Вызов и замер времени выполнения Matdot */

Console. WriteLine ( "Starting counter..." );

counter. Reset ();

counter. Start ();

Matdot ( MatrixA, MatrixB, MatrixC ); // вызов MatDot

counter. Stop ();

 

Console. WriteLine ( "Time taken: {0}", counter );

Console. WriteLine ( "Obtained {0:F2} MFlops",

counter. MFlops ( 2 * n * n * n ));

Console. ReadLine ();

}

 

public static void Matdot ( double [][] a, double [][] b,

double [][] c )

{

int i,j,k;

double tmp;

 

for ( i = 0; i <;a. Length; i ++)

{

for ( j = 0; j <;c [ i ]. Length; j ++)

{

tmp = c [ i ][ j ];

for ( k = 0; k <;b [ i ]. Length; k ++)

{

tmp += a [ i ][ k ]* b [ k ][ j ];

}

c [ i ][ j ]= tmp;

}

}

}

}

}

 

Листинг 8. Перемножение матриц с применением прямоугольных массивов

using System;

using System. Diagnostics;

using PerfCounter;

 

namespace BenchRectMatrix

{

/// <summary>

/// Перемножение матриц с использованием прямоугольных массивов

/// </summary>

class MatrixMul

{

 

[ STAThread ]

static void Main ( string [] args )

{

int i, n;

 

// Объявляем прямоугольные матрицы

double [,] MatrixA, MatrixB, MatrixC;

Random r = new Random ( 50 );

n = 1000;

 

MatrixA = new double [ n,n ];

MatrixB = new double [ n,n ];

MatrixC = new double [ n,n ];

 

/* Инициализируем случайными значениями */

for ( i = 0; i <;n; i ++)

{

for ( int j = 0; j <;n; j ++)

{

MatrixA [ i,j ]=( double ) r. Next ( 50 );

MatrixB [ i,j ]=( double ) r. Next ( 50 );

}

}

 

Counter counter = new Counter ();

 

/* Вызов и замер времени выполнения Matdot */

Console. WriteLine ( "Starting counter..." );

counter. Reset ();

counter. Start ();

Matdot ( n, MatrixA, MatrixB, MatrixC ); // вызов MatDot

counter. Stop ();

 

Console. WriteLine ( "Time taken: {0}", counter );

Console. WriteLine ( "Obtained {0:F2} MFlops",

counter. MFlops ( 2 * n * n * n ));

Console. ReadLine ();

}

 

public static void Matdot ( int n, double [,] a, double

[,] b, double [,] c )

{

int i,j,k;

double tmp;

 

for ( i = 0; i <;n; i ++)

{

for ( j = 0; j <;n; j ++)

{

tmp = c [ i,j ];

for ( k = 0; k <;n; k ++)

{

tmp += a [ i,k ] * b [ k,j ];

}

c [ i,j ]= tmp;

}

}

}

}

}

 

 

Выполнение этих двух программ на моей тестовой машине дало результаты, показанные на рис. 3. Результаты могут быть еще лучше, если преобразовать многомерные массивы в одномерные. Если вас не заботит синтаксис, это тривиально: просто используйте один индекс как смещение. Например, ниже объявляется одномерный массив для использования вместо двухмерного:

 

Листинг 9.

 

double [] myArray = new double [ ROW_DIM * COLUMN_DIM ];

 

Рис. 3. Неровные массивы против прямоугольных

 

Для индексации элементов в таком массиве указывайте следующее смещение:

 







Дата добавления: 2015-08-29; просмотров: 422. Нарушение авторских прав; Мы поможем в написании вашей работы!



Функция спроса населения на данный товар Функция спроса населения на данный товар: Qd=7-Р. Функция предложения: Qs= -5+2Р,где...

Аальтернативная стоимость. Кривая производственных возможностей В экономике Буридании есть 100 ед. труда с производительностью 4 м ткани или 2 кг мяса...

Вычисление основной дактилоскопической формулы Вычислением основной дактоформулы обычно занимается следователь. Для этого все десять пальцев разбиваются на пять пар...

Расчетные и графические задания Равновесный объем - это объем, определяемый равенством спроса и предложения...

Примеры решения типовых задач. Пример 1.Степень диссоциации уксусной кислоты в 0,1 М растворе равна 1,32∙10-2   Пример 1.Степень диссоциации уксусной кислоты в 0,1 М растворе равна 1,32∙10-2. Найдите константу диссоциации кислоты и значение рК. Решение. Подставим данные задачи в уравнение закона разбавления К = a2См/(1 –a) =...

Экспертная оценка как метод психологического исследования Экспертная оценка – диагностический метод измерения, с помощью которого качественные особенности психических явлений получают свое числовое выражение в форме количественных оценок...

В теории государства и права выделяют два пути возникновения государства: восточный и западный Восточный путь возникновения государства представляет собой плавный переход, перерастание первобытного общества в государство...

Дезинфекция предметов ухода, инструментов однократного и многократного использования   Дезинфекция изделий медицинского назначения проводится с целью уничтожения патогенных и условно-патогенных микроорганизмов - вирусов (в т...

Машины и механизмы для нарезки овощей В зависимости от назначения овощерезательные машины подразделяются на две группы: машины для нарезки сырых и вареных овощей...

Классификация и основные элементы конструкций теплового оборудования Многообразие способов тепловой обработки продуктов предопределяет широкую номенклатуру тепловых аппаратов...

Studopedia.info - Студопедия - 2014-2024 год . (0.013 сек.) русская версия | украинская версия