大盤翻黑測試8000..
避免常常又看錯.
所以充字數..
HTS幅度精測工具指標
--- 以下為點數或鎖書閱文內容 ---
天羅地網通道.地線殺多線下壓
第一次反彈到反壓易回落..
配合K棒收黑爆量..
容易測試頸線目標8032
Parameter: 取樣高(0),取樣低(0),//取樣,若是0=當日幅度精測
顯示偏移(65),顯示價位線(1),//1=顯示,0=不顯示
小數點(0)
Variables:J(0),K(0),Z(0),計數(0),分割率(0),
PT(0),CDP(0),H1(0),H2(0),H3(0),L1(0),L2(0),L3(0)
Array: OoD[84](-3), HoD[84](-3), LoD[84](-3), CoD[84](-3),
UPLine[99](-3),DOWNLine[99](-3), UPText[99](-3),DOWNText[99](-3),
分割[99](-3),顏色[9](-3),顏色下[9](-3),價位線[222](-3),
上倍幅[11](-3),下倍幅[11](-3)//倍幅最大11倍
Value91 = OpenOfD (2, OoD)
Value92 = HighOfD (2, HoD)
Value93 = LowOfD (2, LoD)
Value94 = CloseOfD(2, CoD)
if 取樣高=0 or 取樣低=0 then
//若高OR低值,輸入0,自動取樣前一日震幅
if CoD[2]>LoD[1] then
value1=HoD[1]
value2=LoD[1]
// else
//當日幅度精測,向上跳空缺口
// value1=HoD[1]
// value2=CoD[2]
end if
if CoD[2]<HoD[1] then
value1=HoD[1]
value2=LoD[1]
// else
//當日幅度精測,向下跳空缺口
// value1=CoD[2]
// value2=LoD[1]
end if
else
//人工輸入高低點
value1=取樣高
value2=取樣低
end if
value3=value1-value2
//顯示取樣高低點所在*************
TXT_Delete(value98)
value98=TXT_New(Date[顯示偏移],Time[顯示偏移],value1,NumToStr(value1,小數點)+"H震"+NumToStr(value3,小數點))
TXT_SetColor( value98,blue)
TXT_Delete(value99)
value99=TXT_New(Date[顯示偏移],Time[顯示偏移],value2,NumToStr(value2,小數點)+"L")
TXT_SetColor( value99,blue)
//價位線顏色
顏色[0]=BLACK 顏色[1]=MAGENTA 顏色[2]=BLUE 顏色[3]=GREEN
顏色下[0]=BLACK 顏色下[1]=GREEN 顏色下[2]=BLUE 顏色下[3]=MAGENTA
//震幅黃金切割率&江恩分割率
分割[0]=0 分割[1]=0.125 分割[2]=0.25 分割[3]=0.382
分割[4]=0.5 分割[5]=0.618 分割[6]=0.75 分割[7]=0.875
計數=0
FOR J=0 TO 4//倍幅
分割率=0
FOR z=0 to 1
for K=0 to 3//顏色
//正向
價位線[100+計數]=value2+value3*分割[分割率]+J*value3
if 顯示價位線=1 then
LN_Delete(UPLine[計數] )
UPLine[計數]=LN_New(date[顯示偏移],Time[顯示偏移],價位線[100+計數],Date,Time+5,價位線[100+計數])
LN_SetColor(UPLine[計數], 顏色[k])
LN_SetStyle(UPLine[計數],3)
end if
//顯示數質解盤
TXT_Delete( UPText[計數])
UPText[計數]=TXT_New(Date[顯示偏移],Time[顯示偏移],價位線[100+計數],NumToStr(價位線[100+計數],小數點))
TXT_SetColor( UPText[計數], 顏色[k])
//反向
價位線[100-計數]=value2-(value3*分割[分割率]+J*value3)
if 顯示價位線=1 then
LN_Delete(DOWNLine[計數] )
DOWNLine[計數]=LN_New(date[顯示偏移],Time[顯示偏移],價位線[100-計數],Date,Time+5,價位線[100-計數])
LN_SetColor(DOWNLine[計數], 顏色下[k])
LN_SetStyle(DOWNLine[計數],3)
end if
//顯示數質解盤
TXT_Delete(DOWNText[計數])
DOWNText[計數]=TXT_New(Date[顯示偏移],Time[顯示偏移],價位線[100-計數],NumToStr(價位線[100-計數],小數點))
TXT_SetColor(DOWNText[計數], 顏色下[k])
計數=計數+1
分割率=分割率+1
end for
END FOR
if 顯示價位線=1 then
LN_Delete(上倍幅[j]) //重劃加粗倍幅線條
上倍幅[j]=LN_New(date[顯示偏移],Time[顯示偏移],價位線[100+j*8],Date,Time+5,價位線[100+j*8])
LN_SetColor(上倍幅[j],顏色[0])
LN_SetSize(上倍幅[j],2)
LN_Delete(下倍幅[j])
下倍幅[j]=LN_New(date[顯示偏移],Time[顯示偏移],價位線[100-j*8],Date,Time+5,價位線[100-j*8])
LN_SetColor(下倍幅[j],顏色[0])
LN_SetSize(下倍幅[j],2)
end if
END FOR
請給本文一個推吧！ 0人
|
住戶編號:2510978
檢舉原因
心情: 
