從前觀盤很久心得...
用日盛hts寫出的指標..
超過天量就算暴量.
量能在地量水準是量縮....
以布林應用在成交量!!
hts可把想法轉成程式!!
可惜我的程度還不能寫自動交易.
股票的經驗都是以錢堆積而來的..
還有跟一些股友情義交流的...
Parameter: MALength1(5), MALength2(20), MALength3(55), 布林(55),布林開關(1),
成交量0成交額1(1),多空均量開關(1),
Variables:str1("a"),str2("a"),str3("a"),str4("a"),str5("a"),str6("a"),str7("a")
//選...成交量OR成交金額
VALUE1=IFF(成交量0成交額1=1,AMOUNT,VOLUME)
Value2=WAverage (VALUE1,MALength1)
Value3=MAFC(VALUE1,MALength2)
Value4=MAFC(VALUE1,MALength3)
Value111=(HIGH+LOW+CLOSE)/3
Value222=iff(HIGH=LOW,1,HIGH-MAX(OPEN,CLOSE))
Value333=iff(HIGH=LOW,1,MAX(CLOSE,OPEN)- Value111)
Value444=iff(HIGH=LOW,1,MIN(OPEN,CLOSE)-LOW)
Value555=iff(HIGH=LOW,1, Value111-MIN(CLOSE,OPEN))
Value666=VALUE1/iff(HIGH=LOW,4,HIGH-LOW)
Value777=SUM((Value222* Value666),1)
Value888=SUM((Value333* Value666),1)
Value999=SUM((Value444* Value666),1)
Value1000=SUM((Value555* Value666),1)
Value1010=Value999+ Value1000 //買量
Value1020=(Value777+ Value888) //賣量
Value1030=Value1010/ Value1020 //買賣比,多空比
Draw1(Value1,"成交量",Iff(Close >Open,RGB(255,173,91),RGB(222,111,77)),Default,7)
Draw2(Value2,"AMA1" ,blue)
Draw3(Value3,"AMA2" ,black)
Draw4(Value4,"AMA3" ,MAGENTA)
DRAW5(VALUE1010,"買量",RED,Default,6)
DRAW6(VALUE1020,"賣量",green,Default,3)
DRAW7(Value1030,"多空比",DarkGray)
IF 多空均量開關=1 THEN
DRAW9 (ma (VALUE1010,8)*3,"多均量",RED)
DRAW10(ma (VALUE1020,8)*3,"空均量",green)
END IF
//Draw22((Value13-Value16)*1.1+800,"熱度",DarkRed)
//布林寬度表示熱度
Value11=MAFC(VALUE1, 布林)
Value12=StdDev(VALUE1,布林)
Value13=Value11+Value12*2
Value14=Value11+Value12
Value15=Value11-Value12
Value16=Value11-Value12*2
IF 布林開關=1 THEN
Draw13(Value13,"天量",DarkGray)
Draw14(Value14,"羅量",Darkred)
Draw15(Value15,"地量",green)
Draw16(Value16,"網量",DarkGray)
END IF
str1=iff(Value2 >Value2[1] ,"▲短=","▼短=")+NumToStr(Value2,1)
str2=iff(Value3 >Value3[1] ,"▲中=","▼中=")+NumToStr(Value3,1)
str3=iff(Value4 >Value4[1] ,"▲長=","▼長=")+NumToStr(Value4,1)
str4=iff(Value13 >Value13[1],"▲天量=","▼天量=")+NumToStr(Value13,1)
str5=iff(Value14 >Value14[1],"▲羅量=","▼羅量=")+NumToStr(Value14,1)
str6=iff(Value15 >Value15[1],"▲地量=","▼地量=")+NumToStr(Value15,1)
str7=iff(Value16 >Value16[1],"▲網量=","▼網量=")+NumToStr(Value16,1)
//
IF LastBarOnChart THEN
TXT_SetColor(TXT_New(Date,Time,Value13,space(8)+str1),blue)
TXT_SetColor(TXT_New(Date,Time,Value13,"|n"+space(8)+str2),black)
TXT_SetColor(TXT_New(Date,Time,Value13,"|n|n"+space(8)+str3),MAGENTA)
TXT_SetColor(TXT_New(Date,Time,Value13,"|n|n|n"+space(8)+str4),DarkGray)
TXT_SetColor(TXT_New(Date,Time,Value13,"|n|n|n|n"+space(8)+str5),red)
TXT_SetColor(TXT_New(Date,Time,Value13,"|n|n|n|n|n"+space(8)+str6),green)
TXT_SetColor(TXT_New(Date,Time,Value13,"|n|n|n|n|n|n"+space(8)+str7),DarkGray)
END IF |
住戶編號:2510978
檢舉原因
心情: 
