大盤翻黑測試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