24小时热门版块排行榜    

查看: 589  |  回复: 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的回帖

knightman

铜虫 (小有名气)


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

邮箱: knightman@163.com

.
4楼2013-07-19 21:58:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 4 个回答

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的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 中科院材料273求调剂 +4 yzydy 2026-03-15 4/200 2026-03-16 15:59 by Gaodh_82
[考研] 085600调剂 +5 漾漾123sun 2026-03-12 6/300 2026-03-16 15:58 by 漾漾123sun
[教师之家] 焦虑 +7 水冰月月野兔 2026-03-13 9/450 2026-03-16 10:00 by Quakerbird
[考研] 344求调剂 +3 knight344 2026-03-16 3/150 2026-03-16 09:42 by 无际的草原
[考研] 326求调剂 +3 mlpqaz03 2026-03-15 3/150 2026-03-16 07:33 by Iveryant
[考研] 274求调剂 +4 时间点 2026-03-13 4/200 2026-03-15 15:29 by Rambo13
[考研] 中科大材料专硕319求调剂 +3 孟鑫材料 2026-03-13 3/150 2026-03-14 18:10 by houyaoxu
[基金申请] 面上和青基一样限30页不合理 +5 wowsunflower 2026-03-10 7/350 2026-03-14 17:21 by kingkocxr
[考研] 330求调剂 +3 ?酱给调剂跪了 2026-03-13 3/150 2026-03-14 10:13 by JourneyLucky
[考研] 26考研调剂 +3 ying123. 2026-03-10 3/150 2026-03-14 00:18 by JourneyLucky
[考研] 材料与化工(0856)304求B区调剂 +6 邱gl 2026-03-12 7/350 2026-03-13 23:24 by 邱gl
[考研] 285 求调剂 资源与环境 一志愿北京化工大学 +3 未名考生 2026-03-10 3/150 2026-03-13 23:04 by JourneyLucky
[考研] 0703,333分求调剂 一志愿郑州大学-物理化学 +3 李魔女斗篷 2026-03-11 3/150 2026-03-13 22:24 by JourneyLucky
[考研] 336求调剂 +6 Iuruoh 2026-03-11 6/300 2026-03-13 22:06 by JourneyLucky
[考研] 301求调剂 +6 Liyouyumairs 2026-03-11 6/300 2026-03-13 20:11 by JourneyLucky
[考研] 293求调剂 +3 世界首富 2026-03-11 3/150 2026-03-13 16:27 by JourneyLucky
[考研] 材料专硕350 求调剂 +4 王金科 2026-03-12 4/200 2026-03-13 16:02 by ruiyingmiao
[考研] 化工学硕306求调剂 +9 42838695 2026-03-12 9/450 2026-03-13 10:16 by houyaoxu
[考博] 福州大学杨黄浩课题组招收2026年专业学位博士研究生,2026.03.20截止 +3 Xiangyu_ou 2026-03-12 3/150 2026-03-13 09:36 by duanwu655
[考研] 大连大学化学专业研究生调剂 +3 琪久. 2026-03-10 8/400 2026-03-11 10:02 by 琪久.
信息提示
请填处理意见