版塊導(dǎo)航: 正在加載中...

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進(jìn)行實(shí)名認(rèn)證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號(hào)能夠正常使用，請(qǐng)盡快對(duì)帳號(hào)進(jìn)行手機(jī)號(hào)驗(yàn)證，感謝您的理解與支持！

24小時(shí)熱門版塊排行榜

返回列表

下一頁(yè)

Gout

金蟲 (正式寫手)

應(yīng)助: 2 (幼兒園)
金幣: 1351.4
紅花: 3
帖子: 345
在線: 227.4小時(shí)
蟲號(hào): 1388887
注冊(cè): 2011-09-03
性別: GG
專業(yè): 凝聚態(tài)物性I:結(jié)構(gòu)、力學(xué)和

[求助] 如何將取向矩陣中歸一化的{hkl}轉(zhuǎn)化成互質(zhì)化的{HKL}，求算法！�。�！

如何將取向矩陣中歸一化的{hkl}轉(zhuǎn)化成互質(zhì)化的整數(shù){HKL}，求程序算法�。。。�

具體就是將如何將三個(gè)小數(shù)化為互質(zhì)化的整數(shù)？？

回復(fù)此樓

» 收錄本帖的淘帖專輯推薦

科研、投稿中可能遇到的小問題

» 猜你喜歡

312求調(diào)劑已經(jīng)有7人回復(fù)
化學(xué)工程321分求調(diào)劑已經(jīng)有16人回復(fù)
280求調(diào)劑已經(jīng)有3人回復(fù)
266求調(diào)劑已經(jīng)有7人回復(fù)
工科材料085601 279求調(diào)劑已經(jīng)有5人回復(fù)
環(huán)境工程調(diào)劑已經(jīng)有8人回復(fù)
302求調(diào)劑已經(jīng)有9人回復(fù)
297求調(diào)劑已經(jīng)有4人回復(fù)
298-一志愿中國(guó)農(nóng)業(yè)大學(xué)-求調(diào)劑已經(jīng)有4人回復(fù)
焦慮已經(jīng)有10人回復(fù)

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

PDF轉(zhuǎn)化工具PDF2ALL必備工具Ghostscript 8.61（附PDF2all）已經(jīng)有26人回復(fù)
清華大學(xué)環(huán)境學(xué)院招收生物質(zhì)能轉(zhuǎn)化方向博士后1-2人，年薪8萬(wàn)元已經(jīng)有47人回復(fù)
NaX型分子篩轉(zhuǎn)化為銨型在焙燒成H型，馬弗爐中焙燒出現(xiàn)黑色東西是怎么回事��？已經(jīng)有6人回復(fù)
醛轉(zhuǎn)化成氰基能一步到位嗎已經(jīng)有3人回復(fù)
求助如何自制一個(gè)恒溫箱，涉及PID算法，可控硅移相控制已經(jīng)有11人回復(fù)
請(qǐng)教關(guān)于matlab矩陣轉(zhuǎn)換問題已經(jīng)有6人回復(fù)
提供一個(gè) Birch-Murnaghan 擬合的算法（更新1）已經(jīng)有95人回復(fù)
酵母轉(zhuǎn)化后篩選已經(jīng)有3人回復(fù)
關(guān)于晶體超胞的原子個(gè)數(shù)的算法已經(jīng)有3人回復(fù)
什么材料可以將光能轉(zhuǎn)化為熱能？已經(jīng)有35人回復(fù)
【求助】吲哚環(huán)上N原子與甲磺酰氯反應(yīng) 已經(jīng)有11人回復(fù)
【求助】關(guān)于采用傳播矩陣法計(jì)算透射率，反射率以及色散關(guān)系已經(jīng)有11人回復(fù)
【求助/交流】為什么質(zhì)粒轉(zhuǎn)化后曬出的菌在原培養(yǎng)基上長(zhǎng)不出已經(jīng)有5人回復(fù)

仰望著那片藍(lán)天

1樓 2012-04-01 23:25:23

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

回帖置頂 ( 共有1個(gè) )

zxhao168

捐助貴賓 (正式寫手)

應(yīng)助: 37 (小學(xué)生)
金幣: 51.7
散金: 1584
紅花: 18
帖子: 850
在線: 380.2小時(shí)
蟲號(hào): 999345
注冊(cè): 2010-04-17
性別: GG
專業(yè): 金屬材料的微觀結(jié)構(gòu)

【答案】應(yīng)助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感謝參與，應(yīng)助指數(shù) +1
zhyq8767: 金幣+3, 感謝應(yīng)助 2012-04-04 22:05:10
Gout: 金幣+10, ★★★★★最佳答案, 絕對(duì)的好人，非常好的程序，謝謝你啊~ 2012-04-05 09:10:41
Gout: 回帖置頂 2012-04-05 09:27:32

clear
clc
Indices=input('Please input the normalized indices [hkl]=');
h=Indices(1,1)/sqrt(dot(Indices,Indices));
k=Indices(1,2)/sqrt(dot(Indices,Indices));
l=Indices(1,3)/sqrt(dot(Indices,Indices));
h1=abs(h);
k1=abs(k);
l1=abs(l);
if h1>1e-3 && k1>1e-3 && l1>1e-3 % [hkl]均非負(fù)
if h1>=l1 && k1>=l1    % l1最小
      A=h1/l1;
      B=k1/l1;
      i=1;
      while (abs(A-round(A))>1e-2 || abs(B-round(B))>1e-2)
         A=A*(i+1)/i;
         B=B*(i+1)/i;
         i=i+1;
      end
      if sign(l)<0
         L=-i;
      else
         L=i;
      end
      if sign(h)<0
         H=-round(A);
      else
         H=round(A);
      end
      if sign(k)<0
         K=-round(B);
      else
         K=round(B);
      end
elseif h1>=k1 && l1>=k1 % k1最小
      A=h1/k1;
      B=l1/k1;
      i=1;
      while (abs(A-round(A))>1e-2 || abs(B-round(B))>1e-2)
         A=A*(i+1)/i;
         B=B*(i+1)/i;
         i=i+1;
      end
      if sign(k)<0
         K=-i;
      else
         K=i;
      end
      if sign(h)<0
         H=-round(A);
      else
         H=round(A);
      end
      if sign(l)<0
         L=-round(B);
      else
         L=round(B);
      end
elseif k1>=h1 && l1>=h1    % h1最小
      A=k1/h1;
      B=l1/h1;
      i=1;
      while (abs(A-round(A))>1e-2 || abs(B-round(B))>1e-2)
         A=A*(i+1)/i;
         B=B*(i+1)/i;
         i=i+1;
      end
      if sign(h)<0
         H=-i;
      else
         H=i;
      end
      if sign(k)<0
         K=-round(A);
      else
         K=round(A);
      end
      if sign(l)<0
         L=-round(B);
      else
         L=round(B);
      end
end
elseif h1<=1e-3          % h1 接近零
H=0;
if k1<=1e-3       % h1接近零的同時(shí)k1也接近零
      K=0;
      if sign(l)<0
         L=-round(l);
      else
         L=round(l);
      end
elseif l1<=1e-3 % h1接近零的同時(shí)，l1也接近零
      L=0;
      if sign(k)<0
         K=-round(k);
      else
         K=round(k);
      end
elseif k1>1e-3 && l1>1e-3    % 只有h1 接近零
      if k1>l1
         A=k1/l1;
         i=1;
         while(abs(A-round(A))>1e-3)
            A=A*(i+1)/i;
            i=i+1;
         end
         if sign(l)<0
            L=-i;
         else
            L=i;
         end
         if sign(k)<0
            K=-round(A);
         else
            K=round(A);
         end
      else
         A=l1/k1;
         i=1;
         while(abs(A-round(A))>1e-3)
            A=A*(i+1)/i;
            i=i+1;
         end
         if sign(k)<0
            K=-i;
         else
            K=i;
         end
         if sign(l)<0
            L=-round(A);
         else
            L=round(A);
         end
      end
end
elseif k1<=1e-3          % k1 接近零
K=0;
if h1<=1e-3       % k1接近零的同時(shí)h1也接近零
      H=0;
      if sign(l)<0
         L=-round(l);
      else
         L=round(l);
      end
elseif l1<=1e-3 % k1接近零的同時(shí)，l1也接近零
      L=0;
      if sign(h)<0
         H=-round(h);
      else
         H=round(h);
      end
elseif h1>1e-3 && l1>1e-3    % 只有k1 接近零
      if h1>l1
         A=h1/l1;
         i=1;
         while(abs(A-round(A))>1e-3)
            A=A*(i+1)/i;
            i=i+1;
         end
         if sign(l)<0
            L=-i;
         else
            L=i;
         end
         if sign(h)<0
            H=-round(A);
         else
            H=round(A);
         end
      else
         A=l1/k1;
         i=1;
         while(abs(A-round(A))>1e-3)
            A=A*(i+1)/i;
            i=i+1;
         end
         if sign(h)<0
            H=-i;
         else
            H=i;
         end
         if sign(l)<0
            L=-round(A);
         else
            L=round(A);
         end
      end
end
elseif l1<=1e-3          % l1 接近零
L=0;
if h1<=1e-3       % l1接近零的同時(shí)h1也接近零
      H=0;
      if sign(k)<0
         K=-round(k);
      else
         K=round(k);
      end
elseif k1<=1e-3 % l1接近零的同時(shí)，k1也接近零
      K=0;
      if sign(h)<0
         H=-round(h);
      else
         H=round(h);
      end
elseif h1>1e-3 && k1>1e-3    % 只有l(wèi)1 接近零
      if h1>k1
         A=h1/k1;
         i=1;
         while(abs(A-round(A))>1e-3)
            A=A*(i+1)/i;
            i=i+1;
         end
         if sign(k)<0
            K=-i;
         else
            K=i;
         end
         if sign(h)<0
            H=-round(A);
         else
            H=round(A);
         end
      else
         A=k1/h1;
         i=1;
         while(abs(A-round(A))>1e-3)
            A=A*(i+1)/i;
            i=i+1;
         end
         if sign(h)<0
            H=-i;
         else
            H=i;
         end
         if sign(k)<0
            K=-round(A);
         else
            K=round(A);
         end
      end
end
end
disp('互質(zhì)化后的指數(shù)[HKL]=')
disp([H K L])

贊一下(2人)

回復(fù)此樓

» 本帖已獲得的紅花（最新10朵）

Gout

6樓2012-04-04 22:02:47

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

普通回帖

hljhrb_ccl

金蟲 (著名寫手)

應(yīng)助: 11 (小學(xué)生)
金幣: 4055.9
散金: 63
紅花: 5
帖子: 1893
在線: 395.9小時(shí)
蟲號(hào): 859408
注冊(cè): 2009-09-29
性別: GG
專業(yè): 金屬材料的微觀結(jié)構(gòu)

★
感謝參與，應(yīng)助指數(shù) +1
毛猴: 金幣+1, 感謝交流！ 2012-04-02 09:34:37
毛猴: 應(yīng)助指數(shù)-1, 感謝交流！ 2012-04-02 09:34:48

具體算法我不知道，使用textools這個(gè)軟件有一個(gè)功能就是可以進(jìn)行這樣的轉(zhuǎn)化的。我之前對(duì)鎂合金的織構(gòu)組分分析的時(shí)候，就利用這個(gè)軟件！

贊一下

回復(fù)此樓

讓知識(shí)轉(zhuǎn)化為能力！

2樓2012-04-02 07:51:35

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

huangbx3

鐵桿木蟲 (小有名氣)

應(yīng)助: 28 (小學(xué)生)
金幣: 8204
散金: 20
紅花: 5
帖子: 290
在線: 177.1小時(shí)
蟲號(hào): 1354428
注冊(cè): 2011-07-24
性別: GG
專業(yè): 金屬材料的合金相、相變及

【答案】應(yīng)助回帖

★
感謝參與，應(yīng)助指數(shù) +1
毛猴: 金幣+1, 感謝交流！ 2012-04-02 09:34:56

個(gè)人感覺該問題應(yīng)該這樣解決：
先將三個(gè)小數(shù)整數(shù)化，即同乘以一個(gè)數(shù)后將三個(gè)小數(shù)都變?yōu)檎麛?shù)；
然后將整數(shù)化的三個(gè)數(shù)同除以公約數(shù)，即可得到三個(gè)互質(zhì)的數(shù)。

贊一下

回復(fù)此樓

Lovethepeopleyoumet

3樓2012-04-02 09:34:13

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

Gout

金蟲 (正式寫手)

應(yīng)助: 2 (幼兒園)
金幣: 1351.4
紅花: 3
帖子: 345
在線: 227.4小時(shí)
蟲號(hào): 1388887
注冊(cè): 2011-09-03
性別: GG
專業(yè): 凝聚態(tài)物性I:結(jié)構(gòu)、力學(xué)和

引用回帖:

2樓: Originally posted by hljhrb_ccl at 2012-04-02 07:51:35:
具體算法我不知道，使用textools這個(gè)軟件有一個(gè)功能就是可以進(jìn)行這樣的轉(zhuǎn)化的。我之前對(duì)鎂合金的織構(gòu)組分分析的時(shí)候，就利用這個(gè)軟件！

嗯我看到楊平老師在他的那本書中介紹這個(gè)軟件時(shí)，提到textools這個(gè)軟件有這個(gè)功能。可是，我現(xiàn)在授權(quán)使用的軟件只有channel 5 和labtex，而且我更想添加到一些小程序里面，看來(lái)還得好好想想。

贊一下

回復(fù)此樓

仰望著那片藍(lán)天

4樓2012-04-02 10:12:02

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

Gout

金蟲 (正式寫手)

應(yīng)助: 2 (幼兒園)
金幣: 1351.4
紅花: 3
帖子: 345
在線: 227.4小時(shí)
蟲號(hào): 1388887
注冊(cè): 2011-09-03
性別: GG
專業(yè): 凝聚態(tài)物性I:結(jié)構(gòu)、力學(xué)和

引用回帖:

3樓: Originally posted by huangbx3 at 2012-04-02 09:34:13:
個(gè)人感覺該問題應(yīng)該這樣解決：
先將三個(gè)小數(shù)整數(shù)化，即同乘以一個(gè)數(shù)后將三個(gè)小數(shù)都變?yōu)檎麛?shù)；
然后將整數(shù)化的三個(gè)數(shù)同除以公約數(shù)，即可得到三個(gè)互質(zhì)的數(shù)。

我也曾這樣想過，但是有一個(gè)問題。得到的取向矩陣每個(gè)元素都是小數(shù)點(diǎn)后面好多位的小數(shù)，所以取整數(shù)再除以公約數(shù)會(huì)有很大的困難，而且計(jì)算得可能是得到，例如1000001:2000001:3000001這種答案等等。

贊一下

回復(fù)此樓

仰望著那片藍(lán)天

5樓2012-04-02 10:19:21

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

Gout

金蟲 (正式寫手)

應(yīng)助: 2 (幼兒園)
金幣: 1351.4
紅花: 3
帖子: 345
在線: 227.4小時(shí)
蟲號(hào): 1388887
注冊(cè): 2011-09-03
性別: GG
專業(yè): 凝聚態(tài)物性I:結(jié)構(gòu)、力學(xué)和

送鮮花一朵

引用回帖:

6樓: Originally posted by zxhao168 at 2012-04-04 22:02:47:
clear
clc
Indices=input('Please input the normalized indices =');
h=Indices(1,1)/sqrt(dot(Indices,Indices));
k=Indices(1,2)/sqrt(dot(Indices,Indices));
l=Indices(1,3)/sqrt(dot(Indices,Indices) ...

很棒的程序，非常感謝�。�！

贊一下

回復(fù)此樓

仰望著那片藍(lán)天

7樓2012-04-05 09:14:19

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

夢(mèng)中人sss

鐵蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 217.5
散金: 50
帖子: 105
在線: 159.4小時(shí)
蟲號(hào): 2086649
注冊(cè): 2012-10-25
性別: GG
專業(yè): 金屬材料的合金相、相變及

引用回帖:

7樓: Originally posted by Gout at 2012-04-05 09:14:19
很棒的程序，非常感謝�。�！...

哥們，你好，請(qǐng)問下這個(gè)程序如何執(zhí)行嗎，是以矩陣形式輸入一個(gè)行向量嗎，如輸入【1，0，0】這種嗎，感覺運(yùn)行會(huì)出錯(cuò)，不是這么輸入的

贊一下

回復(fù)此樓

Hello,ladiesandgentleman

8樓2014-09-05 23:17:33

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

jeffchenhust

銅蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 62.4
散金: 76
帖子: 184
在線: 78.5小時(shí)
蟲號(hào): 1666191
注冊(cè): 2012-03-05
專業(yè): 集成電路制造與封裝

Textools有試用版的。http://www.sciencesoftware.com.c ... detail12.asp?id=688
在右側(cè)那邊可以下載試用版

贊一下

回復(fù)此樓

9樓2015-01-25 13:20:34

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

lwp8989

新蟲 (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 2.3
散金: 12
帖子: 6
在線: 5.8小時(shí)
蟲號(hào): 1490261
注冊(cè): 2011-11-14
性別: GG
專業(yè): 機(jī)械結(jié)構(gòu)強(qiáng)度學(xué)

引用回帖:

9樓: Originally posted by jeffchenhust at 2015-01-25 13:20:34
Textools有試用版的。http://www.sciencesoftware.com.cn/share/search_soft_detail12.asp?id=688
在右側(cè)那邊可以下載試用版

Textools這個(gè)軟件還能找到嗎？我也需要用！感謝！

贊一下

回復(fù)此樓

10樓2018-05-29 10:39:30

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 Gout 的主題更新

返回列表

下一頁(yè)

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 312求調(diào)劑 +6	陌宸希 2026-03-16	7/350	2026-03-18 09:49 by zhukairuo
[考研] 化學(xué)工程321分求調(diào)劑 +13	大米飯！ 2026-03-15	16/800	2026-03-18 09:48 by zhukairuo
[考研] 301求調(diào)劑 +9	yy要上岸呀 2026-03-17	9/450	2026-03-18 08:58 by 無(wú)際的草原
[考研] 一志愿天津大學(xué)化學(xué)工藝專業(yè)（081702）315分求調(diào)劑 +7	yangfz 2026-03-17	7/350	2026-03-17 23:57 by 星空星月
[考研] [導(dǎo)師推薦]西南科技大學(xué)國(guó)防/材料導(dǎo)師推薦 +3	尖角小荷 2026-03-16	6/300	2026-03-16 23:21 by 尖角小荷
[考研] 311求調(diào)劑 +5	26研0 2026-03-15	5/250	2026-03-16 16:21 by a不易
[考研] 070303 總分349求調(diào)劑 +3	LJY9966 2026-03-15	5/250	2026-03-16 14:24 by xwxstudy
[考研] 0856求調(diào)劑 +3	劉夢(mèng)微 2026-03-15	3/150	2026-03-16 10:00 by houyaoxu
[考研] 326求調(diào)劑 +3	mlpqaz03 2026-03-15	3/150	2026-03-16 07:33 by Iveryant
[考研] 327求調(diào)劑 +6	拾光任染 2026-03-15	11/550	2026-03-15 22:47 by 拾光任染
[考研] 材料與化工 323 英一+數(shù)二+物化，一志愿：哈工大本人本科雙一流 +4	自由的_飛翔 2026-03-13	5/250	2026-03-14 19:39 by hmn_wj
[考研] 材料080500調(diào)劑求收留 +3	一顆meteor 2026-03-13	3/150	2026-03-14 10:54 by peike
[考研] 0703化學(xué)一志愿211 總分320求調(diào)劑 +5	瑪卡巴卡啊哈 2026-03-11	5/250	2026-03-13 21:40 by JourneyLucky
[考研] （081700）化學(xué)工程與技術(shù)-298分求調(diào)劑 +12	11啦啦啦 2026-03-11	35/1750	2026-03-13 21:25 by JourneyLucky
[考研] 310求調(diào)劑 +3	【上上簽】 2026-03-11	3/150	2026-03-13 16:16 by JourneyLucky
[考研] 307求調(diào)劑 +5	超級(jí)伊昂大王 2026-03-12	5/250	2026-03-13 15:56 by 棒棒球手
[考研] 274求調(diào)劑 +3	S.H1 2026-03-12	3/150	2026-03-13 15:15 by JourneyLucky
[考博] 26讀博 +4	Rui135246 2026-03-12	10/500	2026-03-13 07:15 by gaobiao
[考研] 081200-11408-276學(xué)碩求調(diào)劑 +3	崔wj 2026-03-12	4/200	2026-03-12 19:33 by 求調(diào)劑zz
[考博] 2026年博士申請(qǐng) +3	QwQwQW10 2026-03-11	3/150	2026-03-12 17:58 by gxch43

24小時(shí)熱門版塊排行榜

[求助] 如何將取向矩陣中歸一化的{hkl}轉(zhuǎn)化成互質(zhì)化的{HKL}，求算法！�。�！

» 收錄本帖的淘帖專輯推薦

» 猜你喜歡

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

【答案】應(yīng)助回帖

» 本帖已獲得的紅花（最新10朵）

【答案】應(yīng)助回帖

[求助] 如何將取向矩陣中歸一化的{hkl}轉(zhuǎn)化成互質(zhì)化的{HKL}，求算法！�。�！

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助: