property indicator_chart_window

property indicator_buffers 5

property indicator_color1 Yellow

property indicator_color2 Red

property indicator_color3 Magenta

property indicator_color4 DeepSkyBlue

property indicator_color5 Blue

extern double 个把小时 = 36; // 一天半吃到晚二天半连轴转
extern int 度数 = 7; // 数字越大越弯曲 7:啤酒, 14;葡萄酒, 24:米酒, 55:老白, 62:伏特加, 100:酒精 101:什么鬼;
extern int 移位 = 0; // 从当前棒向左位移棒数 1:左一步, 0:跌倒 -1;右一步, -100:车祸现场
extern double 催酒料 = 1.5; // 1.2:哥俩好, 1.5:微微倒, 2:口吐狂言, 3:疯狂乱吐, 9;管天管地,10:无法无天, 11:天人合一
extern int 名片 = 5146; // 为何名字会晃动图形? 晕人晕图晕电脑

double 楞头青[];
double 红胸毛[];
double 扫黄中[];
double 紫斑腿[];
double 脚底蓝[];
double 正负驾驶[10,10];
double 卖保险的[10];
double 空姐[10];
double 服务员[20];
double 八大菜系;

int 箭头棒时;
int 棒始时;
int Shift;
double 北京;
double 上海;
double 广州;
int i; //筷子
int j; //勺子
int n; //杯子
int k; //启子
int m; //一瓶
double 内衣;
double 外套;

//-----------------------------------+

int init()
{
IndicatorShortName("at_PR(Din)");
SetIndexStyle(0, DRAW_LINE);
SetIndexBuffer(0, 扫黄中);
SetIndexBuffer(1, 红胸毛);
SetIndexBuffer(2, 紫斑腿);
SetIndexBuffer(3, 楞头青);
SetIndexBuffer(4, 脚底蓝);

棒始时= 个把小时*60/Period();

m= 度数+1;

//--初始创建箭头物件用以确定位置
ObjectCreate("pr"+名片, OBJ_ARROW, 0, Time[棒始时], 扫黄中[棒始时]);
ObjectSet("pr"+名片, 14, 159);

return(0);
}

//---------------反初始化------------------+

int deinit()
{
ObjectDelete("pr"+名片);
return(0);
}

//-----------------主函数------------------+

int start()
{
int A;

//--始绘点每次都从初始化的箭头位开始绘
箭头棒时= iBarShift(Symbol(), Period(), ObjectGet("pr"+名片, OBJPROP_TIME1));
棒始时= 箭头棒时;

服务员[1]= 棒始时+1;
SetIndexDrawBegin(0, Bars-棒始时-1);
SetIndexDrawBegin(1, Bars-棒始时-1);
SetIndexDrawBegin(2, Bars-棒始时-1);
SetIndexDrawBegin(3, Bars-棒始时-1);
SetIndexDrawBegin(4, Bars-棒始时-1);

//--sx 计算组
for(A=1; A<=m*2-2; A++){ //从第一口喝到两瓶
八大菜系= 0; //空肚子
for(Shift=移位; Shift<=移位+棒始时; Shift++){ //从一步到跌倒
八大菜系 += MathPow(Shift, A); //步步高升
}
服务员[A+1]= 八大菜系; //好酒量 (int+int=double) 酒浓于血
}

//--syx 计算得数
for(A=1; A<=m; A++){ //再来一瓶
八大菜系= 0.00000;
for(Shift=移位; Shift<=移位+棒始时; Shift++){
if(A==1)
八大菜系 += Open[Shift]; //(采用开盘价)具稳定酒劲功能
else
八大菜系 += Open[Shift]*MathPow(Shift, A-1);
}
卖保险的[A]= 八大菜系; //售票的
}

//--Matrix 计算双组
for(j=1; j<=m; j++){
for(i=1; i<=m; i++){
k= i+j-1;
正负驾驶[i,j]= 服务员[k]; //开飞机的
}
}

//--Gauss 计算值
for(k=1; k<=m-1; k++){
n= 0;
上海= 0;
for(i=k; i<=m; i++){
if(MathAbs(正负驾驶[i,k])>上海){
上海= MathAbs(正负驾驶[i,k]); //坐错
n= i;
}
}
if(n==0)
return(0);

  if(n!=k){
     for(j=1; j<=m; j++){
        广州= 正负驾驶[k,j]; 
        正负驾驶[k,j]= 正负驾驶[n,j]; 
        正负驾驶[n,j]= 广州; 
       }
     广州= 卖保险的[k];                           //改乘
     卖保险的[k]= 卖保险的[n]; 
     卖保险的[n]= 广州; 
    }  
  for(i=k+1; i<=m; i++){
     北京= 正负驾驶[i, k]/正负驾驶[k, k]; 
     for(j=1; j<=m; j++){
        if(j==k) 
           正负驾驶[i,j]= 0; 
        else 
           正负驾驶[i,j]= 正负驾驶[i,j]-北京*正负驾驶[k,j];//国际航班
       }
     卖保险的[i]= 卖保险的[i]-北京*卖保险的[k]; 
    }
 }

空姐[m]= 卖保险的[m]/正负驾驶[m, m];

for(i=m-1; i>= 1; i--){
广州= 0;
for(j=1; j<=m-i; j++){
广州= 广州+正负驾驶[i,i+j]空姐[i+j]; //绕了一圈
空姐[i]=(1/正负驾驶[i,i])(卖保险的[i]-广州);
}
}

//--中黄线组赋值
for(Shift=移位; Shift<=移位+棒始时; Shift++){
八大菜系= 0;
for(k=1; k<=度数; k++){
八大菜系 += 空姐[k+1]*MathPow(Shift, k);
}
扫黄中[Shift]= 空姐[1]+八大菜系;
}

//--用统计函数方法计算区间段的窄幅宽
内衣= 0.0;
for(Shift=移位; Shift<=移位+棒始时; Shift++)
内衣 += MathPow(Open[Shift]-扫黄中[Shift], 2);
内衣= MathSqrt(内衣/(棒始时+1))*催酒料;

//--调用标准偏差做为外幅宽度
外套= iStdDev(NULL, 0, 棒始时, MODE_SMA, 0, PRICE_OPEN, 移位)*催酒料;

//--其他线组值
for(Shift=移位; Shift<=移位+棒始时; Shift++){
楞头青[Shift]= 扫黄中[Shift]+外套;
红胸毛[Shift]= 扫黄中[Shift]+内衣;
紫斑腿[Shift]= 扫黄中[Shift]-内衣;
脚底蓝[Shift]= 扫黄中[Shift]-外套;
}

//--移动箭头物件
ObjectMove("pr"+名片, 0, Time[棒始时], 扫黄中[棒始时]);

return(0);
}

//-牛在天上飞汉译-----(有错即改, 谢谢指正电话:11907654321)---+