楼主: LeeAlice
244 0

[求助] R语言绘图 [推广有奖]

  • 0关注
  • 0粉丝

等待验证会员

小学生

14%

还不是VIP/贵宾

-

威望
0
论坛币
9 个
学术水平
0 点
热心指数
0 点
信用等级
0 点
经验
40 点
帖子
2
精华
0
在线时间
4 小时
注册时间
2018-7-11
最后登录
2018-7-14

LeeAlice 发表于 2018-7-11 19:04:08 |显示全部楼层
a<- 50  
> p1<-20
> p2<-30  
> c1<-5  
> c2<-6  
> em<-3  
> en<-2  
> e1<-1  
> e2<-2
> d<-12  
> pc<-1  
> θ<-0.5   
> E<-1000  
> r<-0.01
> B<-seq(0,4000,len = 65)
> u1=35
> u2=15
> Y11<-{(B-c2*(u2+d*((1+θ)*e2-θ*e1)))*p2*c1*((1+θ)*e1-θ*e2)+p1*c2^2*((1+θ)*e2-θ*e1)*(u1+d*((1+θ)*e1-θ*e2))}/(p1*c2^2*((1+θ)*e2-θ*e1)+p2*c1^2*((1+θ)*e1-θ*e2))
> Y21<-{B-c2*(u2+d*((1+θ)*e2-θ*e1))-c1*(u1+d*((1+θ)*e1-θ*e2))}*p1*c2*((1+θ)*e2-θ*e1)/{p1*c2^2*((1+θ)*e2-θ*e1)+p2*c1^2*((1+θ)*e1-θ*e2)}               
> plot(B,y11,type = "l",ylim = c(0, 10000),col = "black",lty = 1)
Error in xy.coords(x, y, xlabel, ylabel, log) :
  'x' and 'y' lengths differ
哪里出了问题

关键词:R语言

您需要登录后才可以回帖 登录 | 我要注册

GMT+8, 2018-11-17 06:49