Senior Member
|
引用:
作者fusopada
for(i=1;i<=10000;<i++)
STRASSEN(N,A,B,C);
for loop "<i++)" C complier 是可以過關
但是link LIB 可能會有不可預期結果之執行碼產生
|
程式碼是到PCDVD再打的片段程式
不是...程式複製過來的...所以有錯誤@@
矩陣32 x 32
N=32那邊能用的數值為2的x次方。
如 2 4 8 16 32 64 128
程式碼
代碼:
#include <iostream>
#include <time.h>
//#include <math.h>
#include <stdlib.h>
using namespace std;
const int N=32; //常量N用�S定�矩u的大小
void main()
{
int i=0;
int start_time;
int end_time;
int result;
void STRASSEN(int n,int A[][N],int B[][N],int C[][N]);
void input(int n,int p[][N]);
void output(int n,int C[][N]);//函䓡䟕明部分
int A[N][N],B[N][N],C[N][N]; //定�三:矩uA,B,C
cout<<"InputA[N][N]:"<<endl<<endl;
input(N,A);
cout<<endl<<"Input B[N][N]:"<<endl<<endl;
input(N,B);
start_time = time(0);
for(i=1;i<=100;i++)
STRASSEN(N,A,B,C);
output(N,C); //经出+算�C果
end_time = time(0);
result = end_time - start_time;
cout << endl << endl;
cout << result << "秒" << endl;
cout << start_time << endl;
cout << end_time << endl << endl << endl;
// for(i=1;i<=10;i++)
//cout << (rand() %6 )+1<< endl;
}
void input(int n,int p[][N]) //矩u经入函䓡
{
int i,j;
for(i=0;i<n;i++)
{
cout<<"請輸入第"<<i+1<<"行"<<endl;
for(j=0;j<n;j++)
(rand() % 6)+1 >>p[i][j];
}
}
void output(int n,int C[][N]) //据矩u经出函䓡
{
int i,j;
cout<<"出矩u:"<<endl;
for(i=0;i<n;i++)
{
cout<<endl;
for(j=0;j<n;j++)
cout<<C[i][j]<<" ";
}
cout<<endl<<endl;
}
void MATRIX_MULTIPLY(int A[][N],int B[][N],int C[][N]) //按通常的矩u乘法+算C=AB的子算法(�做2�)
{
int i,j,t;
for(i=0;i<2;i++) //+算A*B-->C
for(j=0;j<2;j++)
{
C[i][j]=0; //+算完一:C[i][j],C[i][j]倃重新à值!零
for(t=0;t<2;t++)
C[i][j]=C[i][j]+A[i][t]*B[t][j];
}
}
void MATRIX_ADD(int n,int X[][N],int Y[][N],int Z[][N]) //矩u加法函䓡X+Y—>Z
{
int i,j;
for(i=0;i<n;i++)
for(j=0;j<n;j++)
Z[i][j]=X[i][j]+Y[i][j];
}
void MATRIX_SUB(int n,int X[][N],int Y[][N],int Z[][N]) //矩u濶法函䓡X-Y—>Z
{
int i,j;
for(i=0;i<n;i++)
for(j=0;j<n;j++)
Z[i][j]=X[i][j]-Y[i][j];
}
void STRASSEN(int n,int A[][N],int B[][N],int C[][N]) //STRASSEN函䓡(𣽡㦒)
{
int A11[N][N],A12[N][N],A21[N][N],A22[N][N];
int B11[N][N],B12[N][N],B21[N][N],B22[N][N];
int C11[N][N],C12[N][N],C21[N][N],C22[N][N];
int M1[N][N],M2[N][N],M3[N][N],M4[N][N],M5[N][N],M6[N][N],M7[N][N];
int AA[N][N],BB[N][N],MM1[N][N],MM2[N][N];
int i,j;//,x;
if (n==2)
MATRIX_MULTIPLY(A,B,C);//按通常的矩u乘法+算C=AB的子算法(�做2�)
else
{
for(i=0;i<n/2;i++) //////////
for(j=0;j<n/2;j++)
{
A11[i][j]=A[i][j];
A12[i][j]=A[i][j+n/2];
A21[i][j]=A[i+n/2][j];
A22[i][j]=A[i+n/2][j+n/2];
B11[i][j]=B[i][j];
B12[i][j]=B[i][j+n/2];
B21[i][j]=B[i+n/2][j];
B22[i][j]=B[i+n/2][j+n/2];
} //圝矩uA和B式分!四�
MATRIX_SUB(n/2,B12,B22,BB); //////////
STRASSEN(n/2,A11,BB,M1);//M1=A11(B12-B22)
MATRIX_ADD(n/2,A11,A12,AA);
STRASSEN(n/2,AA,B22,M2);//M2=(A11+A12)B22
MATRIX_ADD(n/2,A21,A22,AA);
STRASSEN(n/2,AA,B11,M3);//M3=(A21+A22)B11
MATRIX_SUB(n/2,B21,B11,BB);
STRASSEN(n/2,A22,BB,M4);//M4=A22(B21-B11)
MATRIX_ADD(n/2,A11,A22,AA);
MATRIX_ADD(n/2,B11,B22,BB);
STRASSEN(n/2,AA,BB,M5);//M5=(A11+A22)(B11+B22)
MATRIX_SUB(n/2,A12,A22,AA);
MATRIX_SUB(n/2,B21,B22,BB);
STRASSEN(n/2,AA,BB,M6);//M6=(A12-A22)(B21+B22)
MATRIX_SUB(n/2,A11,A21,AA);
MATRIX_SUB(n/2,B11,B12,BB);
STRASSEN(n/2,AA,BB,M7);//M7=(A11-A21)(B11+B12)
//+算M1,M2,M3,M4,M5,M6,M7(𣽡㦒部分)
MATRIX_ADD(N/2,M5,M4,MM1); ////////////
MATRIX_SUB(N/2,M2,M6,MM2);
MATRIX_SUB(N/2,MM1,MM2,C11);//C11=M5+M4-M2+M6
MATRIX_ADD(N/2,M1,M2,C12);//C12=M1+M2
MATRIX_ADD(N/2,M3,M4,C21);//C21=M3+M4
MATRIX_ADD(N/2,M5,M1,MM1);
MATRIX_ADD(N/2,M3,M7,MM2);
MATRIX_SUB(N/2,MM1,MM2,C22);//C22=M5+M1-M3-M7
for(i=0;i<n/2;i++)
for(j=0;j<n/2;j++)
{
C[i][j]=C11[i][j];
C[i][j+n/2]=C12[i][j];
C[i+n/2][j]=C21[i][j];
C[i+n/2][j+n/2]=C22[i][j];
} //+算�C果送回C[N][N]
}
}
__________________
My Computer [2003.09]-已送人
CPU:Intel Pentium4 2.6CG
M/B:MSI 865PE Neo 2-LS
RAM:Transcend DDR400 512MB x 2 (Dual) (Samsung UCCC)
Display Card:GeCube ATI X1300XT 256MB
HDD:Maxtor 160GB
DVD:Pioneer A09XL
Power:SevenTeam (350W)
keyboard:Logitech 飆風手 精華版
-----------------------------------
My Computer [2009.06]
[COLOR=Yellow]CPU:Intel Core 2 Duo E8200 +Thermalright Ultra-120A
M/B:ASUS P5Q
RAM:ADATA DDRII 800 2GB x 2 (海力士) + Transcend DDRII 800 2GBx2
Display Card:SAPPHIRE HD 4830 GDDR3 512MB
HDD:WD 160GB JB IDE + WD 200GB + WD 250GB AAKS SATAII + WD 640GB AAKS SATAII + WD 500GB AACS SATAII + WD 2TB 64MB + ExcelStor 160GB SATAII
DVD:Pioneer A09XL
Power:SevenTeam ST-420BKV(420W) Ver 2.0
Sound Card:Creative Sound Blaster Audigy 2 + ONKYO SE-90PCI
Speaker:Creative INSPIRE T2900
keyboard:Logitech 飆風手 精華版
Mouse:Logitech G1 換 OMRON D2F-01F 按鍵
LCD Monitor:ViewSonic VX2235wm
TV Card:UPMOST MTV雙語電視卡
歡迎到我的論壇閒聊
http://nitcs.itrello.com/forum/
|