以下引用由 jeng 在 2006/08/13 09:07:49 所發表的內容: 我並沒有要找人單挑的意思,問題是大陸免費指標那麼多,隨便copy就賣那麼貴,古海大不覺得不妥嗎?而且也建議過若是轉貼須說來源嗎?否則我也可以一天隨便轉貼1000篇沒內容且要價30元的文章,及要價60元的無用指標,都說是自創的(而消費者買了後悔又不能退,換做是你,你願意嗎?),那我豈不賺翻了(股市卻賺不到錢),如此本網站且 ... |
|
************************************** 依妳所願...我砍掉版上所有指標... 給古海大一個乾淨的版面....... 順便送妳個HTS甘式角指標馬賽克版..... 和江恩矩陣半完成版 先說好...定義是看這邊網友提供的的.... 有問題別在怪我呀...************************ LN_New(Begin_date,T,L,Begin_date,T,H) //垂直線 if date=Begin_date then LN_New(Begin_date,T,Begin_P,LastCalcDate,T,Begin_P) end if //水平線 LN_SetColor(Value1,blue) LN_SetColor(Value2,blue) iff(Begin_P<L[1],1,-1) Iff(Begin_P>200 and Begin_P<1000,Begin_P*0.0035*5,iff(Begin_P<=200,Begin_P*0.0043*5,Begin_P*0.003*5)) if date=Begin_date then LN_SetBegin(11,Begin_date,Time,Begin_P) LN_SetEnd(11,Begin_date+七天,Time,Begin_P+? LN_SetExtRight(11,TRUE) LN_SetColor(11,MAGENTA) LN_SetBegin(12,Begin_date,Time,Begin_P) LN_SetEnd(12,Begin_date+七天,Time,Begin_P+ ? LN_SetExtRight(12,TRUE) LN_SetColor(12,6) LN_SetBegin(13,Begin_date,Time,Begin_P) LN_SetEnd(13,Begin_date+七天,Time,Begin_P+ ? LN_SetExtRight(13,TRUE) LN_SetColor(13,BLACK) LN_SetBegin(14,Begin_date,Time,Begin_P) LN_SetEnd(14,Begin_date+七天,Time,Begin_P+ ? LN_SetExtRight(14,TRUE) LN_SetColor(14,6) LN_SetBegin(15,Begin_date,Time,Begin_P) LN_SetEnd(15,Begin_date+七天,Time,Begin_P+ ? LN_SetExtRight(15,TRUE) LN_SetColor(15,MAGENTA) end if ****************************************************** 這是最新版的HTS矩陣 Parameter: 起點(6323), 倍數(10),圈數(5),顯示偏移(55) Variables: i(0),步長(0),J(0),K(0),Q(0),STR1("F"),STR2("F"),跑幾圈(0) Array : LineNumber[99](-1), TextNumber[99](-1),顏色[5](-3),價位線[333](-3) 顏色[0]=BLACK 顏色[1]=MAGENTA 顏色[2]=GREEN 顏色[3]=CYAN value2=起點 **SORRY**馬賽克核心計算式一行** K=0 J=0 FOR 跑幾圈=0 TO 圈數 FOR Q=0 TO 3//顏色 LN_Delete( LineNumber[J] ) 價位線[100+J]=VALUE2+J*步長+K*0.5*倍數 K=K+J LineNumber[J]=LN_New(date[66],Time,價位線[100+J], Date, Time+5,價位線[100+J] ) LN_SetColor(LineNumber[J], 顏色[Q]) TXT_Delete(TextNumber[J] ) STR1=NumToStr(價位線[100+J],2)+SPACE(3)+"=>"+NumToStr(90*Q,0)+"°"+"↑" TextNumber[J]=TXT_New( Date[顯示偏移],Time[顯示偏移],價位線[100+J],STR1) TXT_SetColor(TextNumber[J],顏色[Q]) J=J+1//計數 END FOR END FOR
|