24小时热门版块排行榜    

查看: 586  |  回复: 3

long_3415

新虫 (初入文坛)

[交流] Matlab程序问题 已有2人参与

各位大神,我写了个程序怎么修改能把图画成如下的图啊?请各位大神给予指导啊。
%.........syms x z k t gamma Delta rho alpha Omega A B C D E
gamma=1;
Delta_2=0,gamma_1=5*gamma,gamma_2=5*gamma,rho=0,C=600,
Omega_1=10*gamma*(1-rho^2)^(1/2);Omega_2=50*gamma*(1-rho^2)^(1/2);
x=-100*gamma:0.1*gamma:100*gamma;
%.........relational expression..........
z1=zeros(1,length(x));
for k=1:length(x)
    k
    Delta_1=0.1*gamma*k
    A=[0,-conj(Omega_1),0,Omega_1,2*gamma_1,0,0,0,0;
       -Omega_1,-Delta_1,-conj(Omega_2),0,Omega_1,0,0,0,0;
       0,-Omega_2,-Delta_1-Delta_2,0,0,Omega_1,0,0,0;
       conj(Omega_1)*i,0,0,Delta_1*i-gamma_1,-conj(Omega_1)*i,0,Omega_2*i,2*rho*(gamma_1*gamma_2)^(1/2),0;
       0,conj(Omega_1),0,-Omega_1,0,-conj(Omega_2),0,Omega_2,0;
       0,0,conj(Omega_1),0,-Omega_2,-Delta_2,0,0,Omega_2;
       0,0,0,conj(Omega_2)*i,0,0,Delta_1*i+Delta_2*i-gamma_2,conj(Omega_1)*i,0;
       0,0,0,0,conj(Omega_2)*i,0,-Omega_1*i,Delta_2*i-gamma_1-gamma_2,-conj(Omega_2)*i;
       1,0,0,0,1,0,0,0,1];
    B=[0;0;0;0;0;0;0;0;1];                          
    t=inv(A)*B;
    D(:,k)=t;
    %........E(:,k)=zeros(1,length(x));
    E(:,k)=Omega_1+C*gamma_1*imag(t)-i*C*gamma_1*real(t);
end
    z1=imag(D(4,);
%.........................................
    z2=zeros(1,length(x));
for k=1:length(x)
    k
    Delta_1=-0.1*gamma*k
    A=[0,-conj(Omega_1),0,Omega_1,2*gamma_1,0,0,0,0;
       -Omega_1,-Delta_1,-conj(Omega_2),0,Omega_1,0,0,0,0;
       0,-Omega_2,-Delta_1-Delta_2,0,0,Omega_1,0,0,0;
       conj(Omega_1)*i,0,0,Delta_1*i-gamma_1,-conj(Omega_1)*i,0,Omega_2*i,2*rho*(gamma_1*gamma_2)^(1/2),0;
       0,conj(Omega_1),0,-Omega_1,0,-conj(Omega_2),0,Omega_2,0;
       0,0,conj(Omega_1),0,-Omega_2,-Delta_2,0,0,Omega_2;
       0,0,0,conj(Omega_2)*i,0,0,Delta_1*i+Delta_2*i-gamma_2,conj(Omega_1)*i,0;
       0,0,0,0,conj(Omega_2)*i,0,-Omega_1*i,Delta_2*i-gamma_1-gamma_2,-conj(Omega_2)*i;
       1,0,0,0,1,0,0,0,1];
    B=[0;0;0;0;0;0;0;0;1];                          
    t=inv(A)*B;
    D(:,k)=t;
    %........E(:,k)=zeros(1,length(x));
    E(:,k)=Omega_1+C*gamma_1*imag(t)-i*C*gamma_1*real(t);
end
    z2=real(D(4,);
    plot(x,z1,x,z2,'LineWidth',1.5);
    xlabel('Delta_1/gamma');
    ylabel('Im(D(4,)');
    axis([-100,100,-1,1]);
    legend('z1','z2');
    grid off
   其中上面图的Y轴中的字母表示是程序当中D(4,1)的虚部,程序中rho=0表示图中的P=0.
Matlab程序问题
11.png
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

shutaham

金虫 (正式写手)


小木虫: 金币+0.5, 给个红包,谢谢回帖
拷贝数据到Origin中画图
2楼2013-07-18 12:54:43
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

long_3415

新虫 (初入文坛)

引用回帖:
2楼: Originally posted by shutaham at 2013-07-18 12:54:43
拷贝数据到Origin中画图

觉得就是怎么把第一个for循环里面Delta_1的表达式怎么修改一下就好了,但是不知道怎么修改?请各位指教啊。
3楼2013-07-18 14:52:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

knightman

铜虫 (小有名气)


小木虫: 金币+0.5, 给个红包,谢谢回帖
把你的程序发给我吧,我给你检查一下。 另,你想画的那个图,也给我。
在此网站上的文本,你自己看看,没法看啊,都转为图片了,很多的笑脸哦(

邮箱: knightman@163.com

.
4楼2013-07-19 21:58:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 long_3415 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿苏州大学材料工程(085601)专硕有科研经历三项国奖两个实用型专利一项省级立项 +3 大火山小火山 2026-03-16 5/250 2026-03-16 16:54 by barlinike
[考研] 318求调剂 +3 Yanyali 2026-03-15 3/150 2026-03-16 16:41 by houyaoxu
[考研] 283求调剂 +10 小楼。 2026-03-12 14/700 2026-03-16 16:08 by 13811244083
[考研] 289求调剂 +5 步川酷紫123 2026-03-11 5/250 2026-03-15 00:45 by kruisytel
[考研] 复试调剂 +4 z1z2z3879 2026-03-14 5/250 2026-03-14 16:30 by JourneyLucky
[考研] 266求调剂 +4 学员97LZgn 2026-03-13 4/200 2026-03-14 08:37 by zhukairuo
[考研] 考研材料与化工,求调剂 +8 戏精丹丹丹 2026-03-09 8/400 2026-03-14 01:14 by JourneyLucky
[考研] 一志愿华中农业大学071010,总分三百二,求调剂 +3 困困困困坤坤 2026-03-10 3/150 2026-03-14 00:35 by JourneyLucky
[考研] 26考研调剂 +3 ying123. 2026-03-10 3/150 2026-03-14 00:18 by JourneyLucky
[考研] 311求调剂 +5 牛乳糖的卡卡 2026-03-10 5/250 2026-03-14 00:05 by JourneyLucky
[考研] 材料与化工(0856)304求B区调剂 +6 邱gl 2026-03-12 7/350 2026-03-13 23:24 by 邱gl
[考研] 341求调剂 +3 番茄头--- 2026-03-10 3/150 2026-03-13 23:07 by JourneyLucky
[考研] 材料专硕288分求调剂 一志愿211 +4 在家想你 2026-03-11 4/200 2026-03-13 22:49 by JourneyLucky
[考研] 材料与化工304求B区调剂 +5 邱gl 2026-03-11 6/300 2026-03-13 22:37 by JourneyLucky
[考研] 281求调剂 +9 Koxui 2026-03-12 11/550 2026-03-13 20:50 by Koxui
[考研] 332求调剂 +3 Zz版 2026-03-13 3/150 2026-03-13 20:36 by 18595523086
[考研] 土木第一志愿276求调剂,科研和技能十分丰富,求新兴方向的导师收留 +3 土木小天才 2026-03-12 3/150 2026-03-13 15:01 by JourneyLucky
[考研] 289求调剂 +3 李政莹 2026-03-12 3/150 2026-03-13 11:02 by 求调剂zz
[考研] 290求调剂 +3 ADT 2026-03-13 3/150 2026-03-13 10:19 by peike
[考研] 298求调剂 +3 Vv呀! 2026-03-10 3/150 2026-03-10 22:40 by 剑诗杜康
信息提示
请填处理意见