请求帮忙修改STATA程序

我有一段STATA程序用来画impulse response的图， ，如图，我想把中间那条线画成实线，两边的线画成虚线 （也就是confidence interval)。请求帮助。STATA code如下：

capture program drop gr_imp
program define gr_imp

* can graph with errors and without errors

if "`1'"=="i"{local i "i"}   /* in case of Monte-Carlo `i'="i" */
  else local i ""            /* normal case `i'is a blank     */

set textsize 170

local g=1
while `g'<=$G {         /* row variable - the one that is recepient of respone */

  local j=1
  while `j'<=$G {      /* column variable - the one causing response */
     if "`i'"=="i" {   /* with errors */
       format ${name`j'}_5 ${name`j'} ${name`j'}_95 %7.4f
       gr ${name`j'}_5 ${name`j'} ${name`j'}_95 s if /* */ varname=="${name`g'}",saving(gr`g'_`j',replace) s(iii) c(lll) yli(0) /*                              
        */  b1("response of ${name`g'} to ${name`j'} shock")
        }
     else {             /* without errors */
        format ${name`j'} %7.4f
        gr ${name`j'} s if varname=="${name`g'}",saving(gr`g'_`j',replace) s(i) c(l) yli(0) /*                              
        */  b1("response of ${name`g'} to ${name`j'} shock")
        }
     local grlist "`grlist' gr`g'_`j'"   /* list of all graphs to put together */
     local j=`j'+1
   }
local g=`g'+1
}

set textsize 100
*if length("   Impulse-responses for $P lag VAR of $names ")>80 { set textsize 90}

if "`i'"=="i"{
   local b2="b2(Errors are 5% on each side generated by Monte-Carlo with $maxi reps)"}

if "$if"~="" { local t2="t2(Sample : $if)"}

if length("   Impulse-responses for $P lag VAR of $names ")<80 {
   gr using `grlist', t1(     Impulse-responses for $P lag VAR of $names ) `t2' `b2'
    }
else {
   gr using `grlist', t1( $P lag VAR of $names ) `t2' `b2'
   }
end
完整的程序请看， Panel VAR code.rar (182.98 KB)

2014-2-9 17:15:18 上传

，里面包括了运行所需要的.ado文件，运行命令，数据。主要用到的是pvar.ado文件，我想修改的也是这个文件。谢谢。

depending on which way you like, using c(l[.]ll[.]) or c(l[-]ll[-])

try chaning to "s(.i.) c(.l.)"

jjjj6666 发表于 2014-2-9 11:59
try chaning to "s(.i.) c(.l.)"

谢谢，可是出来的是这个样子。。。请看我的帖子的更新。。。

jjjj6666 发表于 2014-2-9 11:59
try chaning to "s(.i.) c(.l.)"

我想要的是虚线，我试了 s(-i-) c(-l-) 结果还是一样

你最好给个数据让别人给你尝试程序
写一个完整的程序

这些公容易尝试和解决

蓝色 发表于 2014-2-9 15:48
你最好给个数据让别人给你尝试程序
写一个完整的程序

你好，谢谢你的提醒，我已上传所有相关文件。

改成

c(l[-]ll[-])

for this simple graph, another way in output the data into csv and plot in excel, which may be easier if you are familiar with excel and VBA.

蓝色 发表于 2014-2-9 18:20
改成

c(l[-]ll[-])

谢谢版主帮忙，我决定把论坛币奖给jjjj6666。