以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  请编程高手解决  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=3170)

--  作者:朱云峰1972
--  发布时间:2010/10/9 14:12:49
--  请编程高手解决

源码:extern int NumberOfDays = 30;
extern color Color_1 = Wheat;
extern color Color_2 = MediumSlateBlue;
extern int shijian=0;
 
void deinit() {
   DeleteObjects();
return(0);
}
 
 
int start()
  {
     DrawSpiral();
  
  
hua();
   return(0);
  }
 
 
  void  DrawSpiral(){
   for (int i = NumberOfDays; i>=1;i--) {
   ObjectCreate("aaa"+i,OBJ_RECTANGLE, 0,0,0,0);
      ObjectSet("aaa"+i, OBJPROP_TIME1   , iTime(Symbol(),shijian,i));
      ObjectSet("aaa"+i, OBJPROP_PRICE1  , iHigh(Symbol(),shijian,i));
      ObjectSet("aaa"+i, OBJPROP_TIME2   , iTime(Symbol(),shijian,i-1));
      ObjectSet("aaa"+i, OBJPROP_PRICE2  , iLow(Symbol(),shijian,i));
    if(i%2==0)color Color=Color_1;else Color=Color_2;
      ObjectSet("aaa"+i, OBJPROP_COLOR , Color);
 
 
 
   }
  return(0);
  }
 
  void hua(){
    for (int i = NumberOfDays; i>=0;i--) {
   ObjectCreate ("zhi"+i,OBJ_LABEL, 0,0,0);
   ObjectSetText("zhi"+i, i+":  "+ DoubleToStr((iHigh(Symbol(),shijian,i)-iLow(Symbol(),shijian,i)),4) ,10,"Comic Sans MS", Gold);
   ObjectSet("zhi"+i, OBJPROP_CORNER, 0);
   ObjectSet("zhi"+i, OBJPROP_XDISTANCE, 10);
   ObjectSet("zhi"+i, OBJPROP_YDISTANCE, 12*i); 
  }
return(0);
}
 
void DeleteObjects(){
   for (int i = NumberOfDays; i>=0;i--) {
  ObjectDelete("aaa"+i);
  ObjectDelete("zhi"+i);
 
  }
 
  return(0);
 
}

图片点击可在新窗口打开查看这个我下载了在金子塔软件通不过???
图片点击可在新窗口打开查看
 
 
 
 

 


--  作者:wattwei
--  发布时间:2010/10/9 14:23:34
--  
 MQL和金字塔不兼容