//[i] 一醉解千秋------- at_PR(Din)
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 個(gè)把小時(shí) = 36; // 一天半 吃到晚 二天半 連軸轉(zhuǎn)
extern int 度數(shù) = 7; // 數(shù)字越大越彎曲 7:啤酒, 14;葡萄酒, 24:米酒, 55:老白, 62:伏特加, 100:酒精 101:什么鬼;
extern int 移位 = 0; // 從當(dāng)前棒向左位移棒數(shù) 1:左一步, 0:跌倒 -1;右一步, -100:車禍現(xiàn)場(chǎng)
extern double 催酒料 = 1.5; // 1.2:哥倆好, 1.5:微微倒, 2:口吐狂言, 3:瘋狂亂吐, 9;管天管地,10:無(wú)法無(wú)天, 11:天人合一
extern int 名片 = 5146; // 為何名字會(huì)晃動(dòng)圖形? 暈人 暈圖 暈電腦
double 楞頭青[];
double 紅胸毛[];
double 掃黃中[];
double 紫斑腿[];
double 腳底藍(lán)[];
double 正負(fù)駕駛[10,10];
double 賣保險(xiǎn)的[10];
double 空姐[10];
double 服務(wù)員[20];
double 八大菜系;
int 箭頭棒時(shí);
int 棒始時(shí);
int Shift;
double 北京;
double 上海;
double 廣州;
int i; //筷子
int j; //勺子
int n; //杯子
int k; //啟子
int m; //一瓶
double 內(nèi)衣;
double 外套;
//-----------------------------------+
int init()
{
IndicatorShortName("at_PR(Din)");
SetIndexStyle(0, DRAW_LINE);
SetIndexBuffer(0, 掃黃中);
SetIndexBuffer(1, 紅胸毛);
SetIndexBuffer(2, 紫斑腿);
SetIndexBuffer(3, 楞頭青);
SetIndexBuffer(4, 腳底藍(lán));
棒始時(shí)= 個(gè)把小時(shí)*60/Period();
m= 度數(shù)+1;
//--初始創(chuàng)建箭頭物件 用以確定位置
ObjectCreate("pr"+名片, OBJ_ARROW, 0, Time[棒始時(shí)], 掃黃中[棒始時(shí)]);
ObjectSet("pr"+名片, 14, 159);
return(0);
}
//---------------反初始化------------------+
int deinit()
{
ObjectDelete("pr"+名片);
return(0);
}
//-----------------主函數(shù)------------------+
int start()
{
int A;
//--始繪點(diǎn) 每次都從初始化的箭頭位開始繪
箭頭棒時(shí)= iBarShift(Symbol(), Period(), ObjectGet("pr"+名片, OBJPROP_TIME1));
棒始時(shí)= 箭頭棒時(shí);
服務(wù)員[1]= 棒始時(shí)+1;
SetIndexDrawBegin(0, Bars-棒始時(shí)-1);
SetIndexDrawBegin(1, Bars-棒始時(shí)-1);
SetIndexDrawBegin(2, Bars-棒始時(shí)-1);
SetIndexDrawBegin(3, Bars-棒始時(shí)-1);
SetIndexDrawBegin(4, Bars-棒始時(shí)-1);
//--sx 計(jì)算組
for(A=1; A<=m*2-2; A++){ //從第一口喝到兩瓶
八大菜系= 0; //空肚子
for(Shift=移位; Shift<=移位+棒始時(shí); Shift++){ //從一步到跌倒
八大菜系 += MathPow(Shift, A); //步步高升
}
服務(wù)員[A+1]= 八大菜系; //好酒量 (int+int=double) 酒濃于血
}
//--syx 計(jì)算得數(shù)
for(A=1; A<=m; A++){ //再來(lái)一瓶
八大菜系= 0.00000;
for(Shift=移位; Shift<=移位+棒始時(shí); Shift++){
if(A==1)
八大菜系 += Open[Shift]; //(采用開盤價(jià))具穩(wěn)定酒勁功能
else
八大菜系 += Open[Shift]*MathPow(Shift, A-1);
}
賣保險(xiǎn)的[A]= 八大菜系; //售票的
}
//--Matrix 計(jì)算雙組
for(j=1; j<=m; j++){
for(i=1; i<=m; i++){
k= i+j-1;
正負(fù)駕駛[i,j]= 服務(wù)員[k]; //開飛機(jī)的
}
}
//--Gauss 計(jì)算值
for(k=1; k<=m-1; k++){
n= 0;
上海= 0;
for(i=k; i<=m; i++){
if(MathAbs(正負(fù)駕駛[i,k])>上海){
上海= MathAbs(正負(fù)駕駛[i,k]); //坐錯(cuò)
n= i;
}
}
if(n==0)
return(0);
if(n!=k){
for(j=1; j<=m; j++){
廣州= 正負(fù)駕駛[k,j];
正負(fù)駕駛[k,j]= 正負(fù)駕駛[n,j];
正負(fù)駕駛[n,j]= 廣州;
}
廣州= 賣保險(xiǎn)的[k]; //改乘
賣保險(xiǎn)的[k]= 賣保險(xiǎn)的[n];
賣保險(xiǎn)的[n]= 廣州;
}
for(i=k+1; i<=m; i++){
北京= 正負(fù)駕駛[i, k]/正負(fù)駕駛[k, k];
for(j=1; j<=m; j++){
if(j==k)
正負(fù)駕駛[i,j]= 0;
else
正負(fù)駕駛[i,j]= 正負(fù)駕駛[i,j]-北京*正負(fù)駕駛[k,j];//國(guó)際航班
}
賣保險(xiǎn)的[i]= 賣保險(xiǎn)的[i]-北京*賣保險(xiǎn)的[k];
}
}
空姐[m]= 賣保險(xiǎn)的[m]/正負(fù)駕駛[m, m];
for(i=m-1; i>= 1; i--){
廣州= 0;
for(j=1; j<=m-i; j++){
廣州= 廣州+正負(fù)駕駛[i,i+j]空姐[i+j]; //繞了一圈
空姐[i]=(1/正負(fù)駕駛[i,i])(賣保險(xiǎn)的[i]-廣州);
}
}
//--中黃線組賦值
for(Shift=移位; Shift<=移位+棒始時(shí); Shift++){
八大菜系= 0;
for(k=1; k<=度數(shù); k++){
八大菜系 += 空姐[k+1]*MathPow(Shift, k);
}
掃黃中[Shift]= 空姐[1]+八大菜系;
}
//--用統(tǒng)計(jì)函數(shù)方法計(jì)算區(qū)間段的窄幅寬
內(nèi)衣= 0.0;
for(Shift=移位; Shift<=移位+棒始時(shí); Shift++)
內(nèi)衣 += MathPow(Open[Shift]-掃黃中[Shift], 2);
內(nèi)衣= MathSqrt(內(nèi)衣/(棒始時(shí)+1))*催酒料;
//--調(diào)用標(biāo)準(zhǔn)偏差做為外幅寬度
外套= iStdDev(NULL, 0, 棒始時(shí), MODE_SMA, 0, PRICE_OPEN, 移位)*催酒料;
//--其他線組值
for(Shift=移位; Shift<=移位+棒始時(shí); Shift++){
楞頭青[Shift]= 掃黃中[Shift]+外套;
紅胸毛[Shift]= 掃黃中[Shift]+內(nèi)衣;
紫斑腿[Shift]= 掃黃中[Shift]-內(nèi)衣;
腳底藍(lán)[Shift]= 掃黃中[Shift]-外套;
}
//--移動(dòng)箭頭物件
ObjectMove("pr"+名片, 0, Time[棒始時(shí)], 掃黃中[棒始時(shí)]);
return(0);
}
//-牛在天上飛漢譯-----(有錯(cuò)即改, 謝謝指正 電話:11907654321)---+
