二元組法稀疏矩陣轉(zhuǎn)置

include <stdio.h>

include <stdlib.h>

define OK 1

define ERROR -1

define MAX 100

typedef struct
{
int i, j;//該非零元的下標(biāo)
int e;
} Tripe;
typedef struct TSMatrix
{
Tripe data[MAX+1];//下標(biāo)從1開(kāi)始
int mu, nu, tu;//矩陣行數(shù)列數(shù)和非零元素個(gè)數(shù)
} TSMatrix;

void Print(TSMatrix T)
{
TSMatrix *T1;
T1 = &T;
int r, c, num = 0;
int k = 1;
for(r = 1; r <= T1->mu; r++)
{
for(c = 1; c <= T1->nu; c++)
{
if((T1->data[k].i == r) && (T1->data[k].j == c))
{
printf("%d ", T1->data[k].e);
k++;
num++;
}
else
{
printf("0 ");
num++;
}
if(num % T1->mu == 0)
{
printf("\n");
}
}
}
}
void CreateTSM(TSMatrix T)
{
int n = 1;
printf("請(qǐng)輸入矩陣的行數(shù)和列數(shù)及非零元素個(gè)數(shù):");
scanf("%d", &T->mu);
scanf("%d", &T->nu);
scanf("%d", &T->tu);
printf("\n");
printf("請(qǐng)輸入非零元素行數(shù)和列數(shù)及數(shù)值: \n");
while(n <= T->tu)
{
scanf("%d", &T->data[n].i);
scanf("%d", &T->data[n].j);
scanf("%d", &T->data[n].e);
n++;
}
printf("\n");
Print(
T);
}

void FastTransMatrix(TSMatrix a, TSMatrix b)
{
int p, q, col, k;
int num[MAX], cpot[MAX];
b.mu = a.nu;
b.nu = a.mu;
b.tu = a.tu;
if(b.tu==0) printf(" The Matrix A=0\n" );
else
{
for (col=1; col<=a.nu; ++col) num[col]=0;
for (k=1 ; k<=a.tu ; ++k)
++num[ a.data[k].j];
for (cpot[1]=1, col=2; col<=a.nu; ++col)
cpot[col]=cpot[col-1]+num[col-1];
for (p=1 ; p<=a.tu; ++p)
{
col=a.data[p].j;
q=cpot[col] ;
b.data[q].i=a.data[p].j;
b.data[q].j=a.data[p].i ;
b.data[q].e=a.data[p].e ;
++cpot[col] ;
}
}
printf("轉(zhuǎn)置后:\n");
Print(b);
}

int AddTSM(TSMatrix Ta, TSMatrix Tb, TSMatrix Tc){
int k = 1, n = 1, p = 1, e;
if(Ta.mu != Tb.mu || Ta.nu != Tb.nu) return ERROR;
Tc->mu = Ta.mu;
Tc->nu = Ta.nu;
Tc->tu = 0;
while(k <= Ta.tu && n <= Tb.tu){
if((Ta.data[k].i == Tb.data[n].i) && (Ta.data[k].j == Tb.data[n].j)){
e = Ta.data[k].e + Tb.data[n].e;
if(e != 0){
Tc->data[p].i = Ta.data[k].i;
Tc->data[p].j = Ta.data[k].j;
Tc->data[p].e = e;
Tc->tu++;
k++;
p++;
n++;
}else{
k++;
n++;
}
}else if(((Ta.data[k].i == Tb.data[n].i) && (Ta.data[k].j < Tb.data[n].j)) || (Ta.data[k].i < Tb.data[n].i)){
Tc->data[p].i = Ta.data[k].i;
Tc->data[p].j = Ta.data[k].j;
Tc->data[p].e = Ta.data[k].e;
Tc->tu++;
p++;
k++;
}else if(((Ta.data[k].i == Tb.data[n].i) && (Ta.data[k].j > Tb.data[n].j)) || (Ta.data[k].i > Tb.data[n].i)){
Tc->data[p].i = Tb.data[n].i;
Tc->data[p].j = Tb.data[n].j;
Tc->data[p].e = Tb.data[n].e;
Tc->tu++;
p++;
n++;
}
}
while(k <= Ta.tu){
Tc->data[p].i = Ta.data[k].i;
Tc->data[p].j = Ta.data[k].j;
Tc->data[p].e = Ta.data[k].e;
Tc->tu++;
p++;
k++;
}
while(n <= Tb.tu){
Tc->data[p].i = Tb.data[n].i;
Tc->data[p].j = Tb.data[n].j;
Tc->data[p].e = Tb.data[n].e;
Tc->tu++;
p++;
n++;
}
printf("Add: \n");
Print(
Tc);
return OK;
}
int main()
{
TSMatrix Ta, Ta1, Tb, Tc;
CreateTSM(&Ta);
FastTransMatrix(Ta, Tb);
CreateTSM(&Ta1);
AddTSM(Ta, Ta1, &Tc);
return 0;
}

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末仍秤,一起剝皮案震驚了整個(gè)濱河市,隨后出現(xiàn)的幾起案子隙袁,更是在濱河造成了極大的恐慌号坡,老刑警劉巖鸦难,帶你破解...
    沈念sama閱讀 211,743評(píng)論 6 492
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件珍语,死亡現(xiàn)場(chǎng)離奇詭異强衡,居然都是意外死亡形葬,警方通過(guò)查閱死者的電腦和手機(jī)合呐,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 90,296評(píng)論 3 385
  • 文/潘曉璐 我一進(jìn)店門(mén),熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái)笙以,“玉大人淌实,你說(shuō)我怎么就攤上這事〔螅” “怎么了拆祈?”我有些...
    開(kāi)封第一講書(shū)人閱讀 157,285評(píng)論 0 348
  • 文/不壞的土叔 我叫張陵,是天一觀(guān)的道長(zhǎng)倘感。 經(jīng)常有香客問(wèn)我放坏,道長(zhǎng),這世上最難降的妖魔是什么老玛? 我笑而不...
    開(kāi)封第一講書(shū)人閱讀 56,485評(píng)論 1 283
  • 正文 為了忘掉前任淤年,我火速辦了婚禮,結(jié)果婚禮上蜡豹,老公的妹妹穿的比我還像新娘麸粮。我一直安慰自己,他們只是感情好镜廉,可當(dāng)我...
    茶點(diǎn)故事閱讀 65,581評(píng)論 6 386
  • 文/花漫 我一把揭開(kāi)白布弄诲。 她就那樣靜靜地躺著,像睡著了一般娇唯。 火紅的嫁衣襯著肌膚如雪齐遵。 梳的紋絲不亂的頭發(fā)上,一...
    開(kāi)封第一講書(shū)人閱讀 49,821評(píng)論 1 290
  • 那天塔插,我揣著相機(jī)與錄音梗摇,去河邊找鬼。 笑死佑淀,一個(gè)胖子當(dāng)著我的面吹牛留美,可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播伸刃,決...
    沈念sama閱讀 38,960評(píng)論 3 408
  • 文/蒼蘭香墨 我猛地睜開(kāi)眼谎砾,長(zhǎng)吁一口氣:“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼!你這毒婦竟也來(lái)了捧颅?” 一聲冷哼從身側(cè)響起景图,我...
    開(kāi)封第一講書(shū)人閱讀 37,719評(píng)論 0 266
  • 序言:老撾萬(wàn)榮一對(duì)情侶失蹤,失蹤者是張志新(化名)和其女友劉穎碉哑,沒(méi)想到半個(gè)月后挚币,有當(dāng)?shù)厝嗽跇?shù)林里發(fā)現(xiàn)了一具尸體亮蒋,經(jīng)...
    沈念sama閱讀 44,186評(píng)論 1 303
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 36,516評(píng)論 2 327
  • 正文 我和宋清朗相戀三年妆毕,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了慎玖。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
    茶點(diǎn)故事閱讀 38,650評(píng)論 1 340
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡笛粘,死狀恐怖趁怔,靈堂內(nèi)的尸體忽然破棺而出,到底是詐尸還是另有隱情薪前,我是刑警寧澤润努,帶...
    沈念sama閱讀 34,329評(píng)論 4 330
  • 正文 年R本政府宣布,位于F島的核電站示括,受9級(jí)特大地震影響铺浇,放射性物質(zhì)發(fā)生泄漏。R本人自食惡果不足惜垛膝,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 39,936評(píng)論 3 313
  • 文/蒙蒙 一鳍侣、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧繁涂,春花似錦拱她、人聲如沸。這莊子的主人今日做“春日...
    開(kāi)封第一講書(shū)人閱讀 30,757評(píng)論 0 21
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)。三九已至矿酵,卻和暖如春唬复,著一層夾襖步出監(jiān)牢的瞬間,已是汗流浹背全肮。 一陣腳步聲響...
    開(kāi)封第一講書(shū)人閱讀 31,991評(píng)論 1 266
  • 我被黑心中介騙來(lái)泰國(guó)打工敞咧, 沒(méi)想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留,地道東北人辜腺。 一個(gè)月前我還...
    沈念sama閱讀 46,370評(píng)論 2 360
  • 正文 我出身青樓休建,卻偏偏與公主長(zhǎng)得像,于是被迫代替她去往敵國(guó)和親评疗。 傳聞我的和親對(duì)象是個(gè)殘疾皇子测砂,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 43,527評(píng)論 2 349

推薦閱讀更多精彩內(nèi)容

  • 背景 一年多以前我在知乎上答了有關(guān)LeetCode的問(wèn)題, 分享了一些自己做題目的經(jīng)驗(yàn)。 張土汪:刷leetcod...
    土汪閱讀 12,738評(píng)論 0 33
  • sì 支zhī茶chá 對(duì)duì 酒jiǔ百匆,賦fù 對(duì)duì 詩(shī)shī砌些,燕yàn子zi 對(duì)duì 鶯yīng 兒é...
    每個(gè)人的孟母堂閱讀 1,200評(píng)論 0 6
  • 我們不可避免地對(duì)所見(jiàn)之物、所見(jiàn)之人,有個(gè)主觀(guān)的感情印象存璃,這決定了我們的最初反應(yīng)和對(duì)待仑荐。這背后是什么起作用?又如何避免纵东?
    張楊YANGZI閱讀 142評(píng)論 0 0
  • 愛(ài)的四個(gè)層級(jí)粘招,分別是: 1.希望得到他人的愛(ài); 2.愛(ài)他人篮迎; 3.愛(ài)自己男图; 4.愛(ài)自己也愛(ài)他人。 愛(ài)自己的人甜橱,會(huì)自...
    心理咨詢(xún)師萍閱讀 824評(píng)論 1 1
  • 很榮幸的感冒了,嗓子冒煙栈戳,鼻子暴皮岂傲,但還是要上課,不能忘記當(dāng)初的夢(mèng)想子檀,還有幾天就答辯了镊掖,壓力蠻大的褂痰,下午做了下答辯...
    王淳01閱讀 166評(píng)論 1 0