版塊導航: 正在加載中...

登錄注冊

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

24小時熱門版塊排行榜

返回列表

當前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖

wzp0098

木蟲 (著名寫手)

應助: 2 (幼兒園)
金幣: 2524.4
散金: 39
紅花: 13
帖子: 1218
在線: 226.6小時
蟲號: 853822
注冊: 2009-09-22
性別: GG
專業(yè): 光學

[求助] 用matlab 畫三維圖，請高手指教. 已有2人參與

程序如下，可是沒有辦法運行，請高手指教，重謝。
W=-3:0.1:3;K=-3:0.1:3i;V=-3:0.1:3;
P = [];
for n=1:length(W);
      Ky=W(n);
   for m=1:length(K);
      Kx=K(m);
      for v=1:length(V);
            Kz=V(v);
      w = 1;
      K2 = K1+2*w; x = 2*(sin(Kx)+sin(Ky));
      r1 = 8; r2 = 0.001*r1; T = 3*sin(Kz);
      A=[  -r1 r2-r1  -i*x    i*x    0          0    0             0;
               0 -r2    0    0    0          0    i*T          -i*T;
         -2*i*x  -i*x -r1-i*K1*0.5 0    -i*T       0    0             0;
            2*i*x  i*x    0  -r1+i*K1*0.5 0       i*T    0             0;
               0    0    -i*T    0 -r2-i*(K1+K2)*0.5 0    i*x          0;
               0    0       0    i*T    0 -r2+i*(K1+K2)*0.5 0          -i*x;
               i*T 2*i*T    0    0    i*x       0 -r2-r1+i*(K1-K2)*0.5 0;
            -i*T -2*i*T    0    0    0       -i*x    0 -r2-r1-i*(K1-K2)*0.5];
      B = [-r1;0;-i*x;i*x;0;0;i*T;-i*T];
      Y = A\B;
P(n, m, v) = imag(Y(3)); % <---------------------------P向量中的元素賦值
      end
end
end
[X,Y,Z]=meshgrid(W,K,V);
surf(X,Y,Z,P);
shading interp

回復此樓

» 猜你喜歡

一志愿西安交通大學材料工程專業(yè) 282分求調劑已經有11人回復
269專碩求調劑已經有3人回復
資源與環(huán)境調劑申請(333分) 已經有3人回復
材料求調劑已經有5人回復
354求調劑已經有9人回復
化學工程321分求調劑已經有22人回復
考研調劑已經有3人回復
326求調劑已經有8人回復
333求調劑已經有7人回復
一志愿東華大學控制學碩320求調劑已經有3人回復

» 本主題相關價值貼推薦，對您同樣有幫助:

請問三維金相立體圖如何畫出來已經有17人回復
如何用matlab導入導入三維數(shù)據(jù)~ 已經有5人回復
請問采用AFM掃描的文件如何用matlab畫出三維圖？已經有7人回復
求matlab功率譜的畫法，我這樣對么？已經有6人回復
【已完結】matlab仿真圖形（交流問題即有獎，呵呵）已經有6人回復
菜鳥求助用matlab如何畫三維圖已經有3人回復
急用�。。。∏螽嬋S拓撲圖已經有10人回復
求助已知三維坐標位置，如何畫出空間圖像已經有5人回復
在matlab中用mesh畫三維圖存在的問題已經有11人回復
MATLAB中畫三維雙對數(shù)圖形的問題已經有10人回復
MATLAB將三維圖和其中一個面的等高線畫出來的問題，謝謝了。已經有7人回復
如何用matlab畫二維網(wǎng)格已經有5人回復
求助MATLAB做三維圖問題已經有4人回復
關于Matlab畫三維曲面圖的問題，求助高手，感激感激已經有3人回復
請問如何用Matlab畫工作空間的輪廓圖已經有10人回復
最近用HB2151表達遇到以下情況，懇請高手指教已經有6人回復
Matlab三維圖中如何實現(xiàn)x，y坐標名稱與各自的坐標軸平行？已經有4人回復
怎么用matlab畫極坐標三維圖？各位大俠幫幫忙��！已經有5人回復
如何讓MATLAB畫出來的這個三維圖更漂亮？已經有3人回復
彈性模量各向異性的三維圖。。。求高手解決！！已經有10人回復
【求助】菜鳥求助 matlab 繪圖問題繪制光譜圖已經有3人回復

1樓 2014-12-26 14:32:34

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

dbb627

榮譽版主 (著名寫手)

專家經驗: +4
仿真EPI: 6
應助: 289 (大學生)
貴賓: 0.589
金幣: 24640.4
散金: 551
紅花: 61
沙發(fā): 1
帖子: 1246
在線: 1794.8小時
蟲號: 149791
注冊: 2005-12-29
性別: GG
專業(yè): 污染控制化學
管轄: 計算模擬

【答案】應助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ...
wzp0098: 金幣+70, ★有幫助, 謝謝！ 2015-01-02 09:19:29

CODE:

function slice_4D

W=-3:0.1:3;K=-3:0.1:3;V=-3:0.1:3;

P = []; 

for n=1:length(W);

          Ky=W(n);

      for m=1:length(K);

          Kx=K(m);

           for v=1:length(V);

               Kz=V(v);

         w = 1;K1=0;

         K2 = K1+2*w; x = 2*(sin(Kx)+sin(Ky));

         r1 = 8; r2 = 0.001*r1; T = 3*sin(Kz);

         A=[  -r1   r2-r1  -i*x      i*x      0           0       0              0;

                   0    -r2       0       0       0           0      i*T           -i*T;

            -2*i*x  -i*x -r1-i*K1*0.5 0     -i*T          0       0              0;

                 2*i*x  i*x       0  -r1+i*K1*0.5 0          i*T      0              0;

                   0     0      -i*T      0 -r2-i*(K1+K2)*0.5 0      i*x             0;

                   0     0        0      i*T      0 -r2+i*(K1+K2)*0.5 0             -i*x;

                  i*T 2*i*T       0       0      i*x          0 -r2-r1+i*(K1-K2)*0.5 0;

                 -i*T -2*i*T      0       0       0         -i*x      0 -r2-r1-i*(K1-K2)*0.5];

         B = [-r1;0;-i*x;i*x;0;0;i*T;-i*T];

         Y = A\B;

     P(n, m, v) = imag(Y(3)); % <---------------------------P向量中的元素賦值

           end

     end

end

[X,Y,Z]=meshgrid(W,K,V);

slice(X,Y,Z,P,[-2.5 0 2.5],0,[-2 2])

untitled.jpg

贊一下

回復此樓

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

wzp0098

The more you learn, the more you know, the more you know, and the more you forget. The more you forget, the less you know. So why bother to learn.

8樓2014-12-31 09:37:08

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

查看全部 19 個回答

huozhe123

金蟲 (小有名氣)

應助: 5 (幼兒園)
金幣: 698.6
帖子: 182
在線: 44小時
蟲號: 3556048
注冊: 2014-11-24
專業(yè): 光學

【答案】應助回帖

感謝參與，應助指數(shù) +1

K=-3:0.1:3i;這個什么意思？從-3到0 ？還有，k1你在哪定義的？

贊一下

回復此樓

2樓2014-12-29 09:09:14

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

wzp0098

木蟲 (著名寫手)

應助: 2 (幼兒園)
金幣: 2524.4
散金: 39
紅花: 13
帖子: 1218
在線: 226.6小時
蟲號: 853822
注冊: 2009-09-22
性別: GG
專業(yè): 光學

我改了一下，程序還是運行不起來，請大蝦指教！
W=-3:0.1:3;K=-3:0.1:3;V=-3:0.1:3;
P = [];
for n=1:length(W);
      Ky=W(n);
   for m=1:length(K);
      Kx=K(m);
         for v=1:length(V);
            Kz=V(v);
      w = 1;K1=0;
      K2 = K1+2*w; x = 2*(sin(Kx)+sin(Ky));
      r1 = 8; r2 = 0.001*r1; T = 3*sin(Kz);
      A=[  -r1 r2-r1  -i*x    i*x    0          0    0             0;
               0 -r2    0    0    0          0    i*T          -i*T;
         -2*i*x  -i*x -r1-i*K1*0.5 0    -i*T       0    0             0;
               2*i*x  i*x    0  -r1+i*K1*0.5 0       i*T    0             0;
               0    0    -i*T    0 -r2-i*(K1+K2)*0.5 0    i*x          0;
               0    0       0    i*T    0 -r2+i*(K1+K2)*0.5 0          -i*x;
               i*T 2*i*T    0    0    i*x       0 -r2-r1+i*(K1-K2)*0.5 0;
               -i*T -2*i*T    0    0    0       -i*x    0 -r2-r1-i*(K1-K2)*0.5];
      B = [-r1;0;-i*x;i*x;0;0;i*T;-i*T];
      Y = A\B;
   P(n, m, v) = imag(Y(3)); % <---------------------------P向量中的元素賦值
         end
   end
end
[X,Y,Z]=meshgrid(W,K,V);
surf(X,Y,Z,P);
shading interp

贊一下

回復此樓

3樓2014-12-29 12:45:43

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

wzp0098

木蟲 (著名寫手)

應助: 2 (幼兒園)
金幣: 2524.4
散金: 39
紅花: 13
帖子: 1218
在線: 226.6小時
蟲號: 853822
注冊: 2009-09-22
性別: GG
專業(yè): 光學

引用回帖:

2樓: Originally posted by huozhe123 at 2014-12-29 09:09:14
K=-3:0.1:3i;這個什么意思？從-3到0 ？還有，k1你在哪定義的？

我改了一下，程序還是運行不起來，請大蝦指教！
W=-3:0.1:3;K=-3:0.1:3;V=-3:0.1:3;
P = [];
for n=1:length(W);
         Ky=W(n);
   for m=1:length(K);
         Kx=K(m);
         for v=1:length(V);
            Kz=V(v);
      w = 1;K1=0;
      K2 = K1+2*w; x = 2*(sin(Kx)+sin(Ky));
      r1 = 8; r2 = 0.001*r1; T = 3*sin(Kz);
      A=[  -r1 r2-r1  -i*x    i*x    0          0    0             0;
                  0 -r2    0    0    0          0    i*T          -i*T;
         -2*i*x  -i*x -r1-i*K1*0.5 0    -i*T       0    0             0;
               2*i*x  i*x    0  -r1+i*K1*0.5 0       i*T    0             0;
                  0    0    -i*T    0 -r2-i*(K1+K2)*0.5 0    i*x          0;
                  0    0       0    i*T    0 -r2+i*(K1+K2)*0.5 0          -i*x;
               i*T 2*i*T    0    0    i*x       0 -r2-r1+i*(K1-K2)*0.5 0;
               -i*T -2*i*T    0    0    0       -i*x    0 -r2-r1-i*(K1-K2)*0.5];
      B = [-r1;0;-i*x;i*x;0;0;i*T;-i*T];
      Y = A\B;
   P(n, m, v) = imag(Y(3)); % <---------------------------P向量中的元素賦值
         end
   end
end
[X,Y,Z]=meshgrid(W,K,V);
surf(X,Y,Z,P);
shading interp

贊一下

回復此樓

4樓2014-12-29 12:46:15

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

查看全部 19 個回答

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

[考研] 材料求調劑 +5	@taotao 2026-03-21	5/250	2026-03-21 20:55 by lbsjt
[考研] 0703化學 305求調劑 +5	FY_yy 2026-03-14	5/250	2026-03-21 19:00 by ColorlessPI
[考研] 材料工程專碩 348分求調劑 +3	冬辭. 2026-03-17	5/250	2026-03-21 18:47 by 學員8dgXkO
[考研] 0703化學調劑 +4	妮妮ninicgb 2026-03-21	4/200	2026-03-21 18:39 by 學員8dgXkO
[考研] 306求0703調劑一志愿華中師范 +5	紙魚ly 2026-03-21	5/250	2026-03-21 17:11 by 學員8dgXkO
[考研] 能源材料化學課題組招收碩士研究生8-10名 +5	脫穎而出 2026-03-16	15/750	2026-03-21 10:16 by 脫穎而出
[考研] 346求調劑[0856] +4	WayneLim327 2026-03-16	7/350	2026-03-21 04:02 by JourneyLucky
[考研] 265求調劑 +9	梁梁校校 2026-03-17	9/450	2026-03-21 02:17 by JourneyLucky
[考研] 一志愿華南師大 070300（化學）304分求調劑 +3	0703武芊慧雪304 2026-03-18	3/150	2026-03-21 00:48 by JourneyLucky
[考研] 一志愿南昌大學，327分，材料與化工085600 +9	Ncdx123456 2026-03-19	9/450	2026-03-20 23:41 by lovewei0727
[考研] 324求調劑 +5	lucky呀呀呀鴨 2026-03-20	5/250	2026-03-20 22:30 by 促天成
[考研] 一志愿蘇州大學材料求調劑，總分315（英一） +5	sbdksD 2026-03-19	5/250	2026-03-20 22:10 by luoyongfeng
[考研] 295復試調劑 +8	簡木ChuFront 2026-03-19	8/400	2026-03-20 20:44 by zhukairuo
[考研] 0856調劑，是學校就去 +8	sllhht 2026-03-19	9/450	2026-03-20 14:25 by 無懈可擊111
[論文投稿] 申請回稿延期一個月，編輯同意了。但系統(tǒng)上的時間沒變，給編輯又寫郵件了，沒回復 10+3	wangf9518 2026-03-17	4/200	2026-03-19 23:55 by babero
[考博] 申博26年 +3	八6八68 2026-03-19	3/150	2026-03-19 19:43 by nxgogo
[考研] 收復試調劑生 +4	雨后秋荷 2026-03-18	4/200	2026-03-18 14:16 by elevennnne
[考研] 312求調劑 +8	陌宸希 2026-03-16	9/450	2026-03-18 12:39 by Linda Hu
[考研] 283求調劑 +3	聽風就是雨； 2026-03-16	3/150	2026-03-17 07:41 by 熱情沙漠
[考研] 東南大學364求調劑 +5	JasonYuiui 2026-03-15	5/250	2026-03-16 21:28 by 木瓜膏

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产 高清 中文字幕,99re热久久亚洲综合精品成人,熟妇 一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

24小時熱門版塊排行榜

wzp0098

[求助] 用matlab 畫三維圖，請高手指教. 已有2人參與

» 猜你喜歡

» 本主題相關價值貼推薦，對您同樣有幫助:

dbb627

【答案】應助回帖

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

huozhe123

【答案】應助回帖

wzp0098

wzp0098

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产高清中文字幕,99re热久久亚洲综合精品成人,熟妇一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

[求助] 用matlab 畫三維圖，請高手指教. 已有2人參與

» 本主題相關價值貼推薦，對您同樣有幫助: