- This topic has 23 ข้อความตอบกลับ, 9 เสียง, and was last updated 5 years, 6 months มาแล้ว by .
-
กระทู้
-
Chart SiamQuant V.2 ไว้ใช้กับ Data SQ เวอร์ชั่นใหม่ โดยเฉพาะ ได้ปรับให้ดูง่ายสบายตาขึ้นเเล้วเพิ่มลูกเล่นนิดหน่อยคับ เเละทำให้ Code สั้นลงโดยไปอ้างอิงกับ #include_once “C:\SiamQuant เพื่อเวลาที่ทีมงาน SQ ได้มีการปรับหรืออัพ Code ใหม่ ก็จะได้ใช้งานได้เหมือนเดิมคับ เพื่อใครที่ชอบดูข้อมูลเป็นตัวเลขมากกว่าดูเป็นเส้น Line แบบนี้จะดูง่ายกว่า เเล้ว Data ทั้ง 5-SQ จะเเสดงผลอยู่ในหน้าจอเดียวกันคับ (ตามตัวอย่างภาพด้านล่าง)
มาดูสิ่งที่เพิ่มขึ้นมาใหม่ในเวอร์ชั่นนี้กัน
1.เพิ่มสีของ Bar Candle ให้ดูง่ายชันเจนว่าวันนี้ราคาปิดอยู้สูงกว่าหรือต่ำกว่า ถ้าปิดต่ำกว่าราคาเปิดจะเป็นสีเเดง ถ้าปิดสูงกว่าราคาเปิดจะเป็นสีเขียว เเเล้วได้เพิ่ม Vol สีเข้าไปความหมายของสีเหมือนกับ เเท่ง Candle
2. เพิ่มสัญญาลักษณ์บอกวันที่เกิดเหตุการณ์ Status เเละ Benefit
เหตุการณ์ Status จะเป็นสามเหลี่ยมคว่ำสีส้ม Status ก็ประกอบไปด้วย NP , NR , SP , ST , CM , NC
เหตุการณ์ Benefit จะเป็นสามเหลี่ยมคว่ำสีฟ้า Benefit ก็ประกอบไปด้วย XD , XI , XN , XR , XT , XA , XB , XW , XS
3 Grid บอกช่วงเวลาของ Quarter ( SQQE ใน MICA ) ผมทำเป็นเส้นปะเเนวตั้งสีน้ำเงิน ถ้าเห็นเเต่ล่ะช่วงเวลาไม่เท่ากันไม่ต้องแปลกใจคับ เพราะการประกาศงบเเต่ล่ะช่วงเเละวันที่ไม่เเน่นอนของเเต่ล่ะบริษัท
4. สุดท้ายคลิกขวาที่หน้า Chart หน้าจอ Parameters สามารถที่จะปรับต่างๆได้ PriceType ปรับดูราคาแบบ Adjusted เเละ UnAdjusted หรือเทียบราคาทั้งสองอันได้ ปรับสีของ Bar ราคาเเละ Vol ได้ เเละถ้าไม่ต้องการให้เเสดงผลอันไหนก็เปิดปิดได้ เช่น Vol ,Grid Quarter , Tooltip ,Status AND Benefit
Code ชุดนี้ผมสงวนสิทธิ์ กรณีที่ไม่ใช่ทีมงาน SiamQuant ห้ามเอาไปดัดแปลงเพื่อผลประโยชน์ทางธุรกิจ เเต่ถ้าเอาไปดัดแปลงหรือพัฒนาให้ดีขึ้นเเล้วเเจกหรือเเชร์ให้ใช้ฟรี ทำได้ตามสะดวกเลยคับขอให้สนุกกับ Code ชุดใหม่คับ/////////////////////////////////////////////////////////////////////////////////////SiamQuant Stock Price and Indicator for Use with SiamQuantMetastockDatabase//Tooltip By Amibroker Platform V.2#include_once “C:\SiamQuant\SQ Library\SQ AFL V.1.0.2.0\SQ Include\SQ – Include Data Declaration.afl”////////////////////////////////////////////////////////////////////////////////////////////////////////////////_SECTION_BEGIN( “Price” );SetChartOptions( 0, chartShowArrows | chartShowDates );_N( Title = StrFormat( “{{NAME}} – {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol ” + NumToStr( V, 1.0 ) +” {{VALUES}}”, O, H, L, C, SelectedValue( ROC( C, 1 ) ) ) );GraphXSpace = 10;PriceType = ParamList( “PriceType”, “Adjusted Price|Unadjusted Close|Price Comparison”, 0 );switch ( PriceType ){case “Adjusted Price” :SetBarFillColor( IIf( C > O, ParamColor(“UpBar”, colorLime ), ParamColor(“Down Bar”, colorRed ) ) );Plot( C, “Close”, colorDefault , styleNoTitle | ParamStyle( “Style” ) | GetPriceStyle() );break;case “Unadjusted Close” :Plot( OI, “Unadjusted Close”, ParamColor(“Color”, colorDefault ), styleLine );break;case “Price Comparison” :Plot( C, “Adjusted Close”, ParamColor(“Color”, colorDefault ), styleLine );Plot( OI, “Unadjusted Close”, ParamColor(“Color”, colorDefault ), styleDashed );break;}_SECTION_END();_SECTION_BEGIN( “Volume” );if (ParamToggle(“Volume”,”Off|On”,1)){SetBar = IIf( C > O, ParamColor(” Vol UpBar”, colorLime ), ParamColor(“Vol Down Bar”, colorRed ) ) ;Plot( V, _DEFAULT_NAME(), SetBar, styleNoTitle | ParamStyle( “Style”, styleHistogram | styleOwnScale | styleThick | styleNoLabel, maskHistogram ), 4 );_SECTION_END();}_SECTION_BEGIN( “QuarterChage ” );if (ParamToggle(“QuarterChage”,”Off|On”,1)){Style_Grid = ParamStyle(“Style_Grid “,styleHistogram|styleDashed|styleNoLabel|styleNoRescale|styleOwnScale,maskAll);Plot(SQQE != Ref(SQQE,-1) ,””,ParamColor(“Color_Grid”,colorBlue),Style_Grid);}_SECTION_END();////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////_SECTION_BEGIN(“Tooltip”);//SiamQuant Stock Price and Indicator for Use with SiamQuantMetastockDatabase//Tooltip By Amibroker Platform V.2OHLCV = ParamColor(“Color OHLC”,colorDarkGrey);OHLC =ParamColor(“Color Price”,colorDarkGrey);if (ParamToggle(“Show Price & %”,”Off|On”,1)){RequestTimedRefresh( 0.1 );DX= GetCursorXPosition();DT= DateTimeToStr(DX) ;strWeekday = StrMid(“—SUNDAY—MONDAY–TUESDAYWEDNESDAY-THURSDAY–FRIDAY–SATURDAY”,SelectedValue(DayOfWeek())*9,9);Pchg = C – Ref(C,-1);Chg=Ref(C,-1);if (_DT(DT)>0){Title = EncodeColor(OHLCV )+ ” Stock ” +Title =Name() + ” “+EncodeColor(OHLCV ) + “Date :: “+ EncodeColor(OHLC) + Date() +EncodeColor(11) + EncodeColor(colorWhite)+EncodeColor(OHLCV )+ ” “+ EncodeColor(colorBlack)+ strWeekday + “”+EncodeColor(OHLCV )+ ” Open: “+ EncodeColor(OHLC)+ WriteVal(O,format=1.2) + “”+EncodeColor(OHLCV )+ ” High: “+ EncodeColor(OHLC) + WriteVal(H,format=1.2) + “”+EncodeColor(OHLCV )+ ” Low: “+ EncodeColor(OHLC)+ WriteVal(L,format=1.2) + “”+EncodeColor(OHLCV )+ ” Close: “+ WriteIf(C> Chg,EncodeColor(colorGreen),EncodeColor(colorRed))+ WriteVal(C,format=1.2) + “”+EncodeColor(OHLCV )+ ” Change: “+ WriteIf(C> Chg,EncodeColor(colorGreen),EncodeColor(colorRed))+ WriteVal(C – Ref(C,-1),format=1.2)+ ” / “+ WriteIf(C> Chg,EncodeColor(colorGreen),EncodeColor(colorRed))+ WriteVal(ROC(C,1),format=1.2)+ “% ” +””+EncodeColor(OHLCV )+ ” Volume: “+ EncodeColor(OHLC)+ WriteVal(V,format=1.0)+”\n”+EncodeColor(colorDarkGrey)+ ” “+ EncodeColor(OHLC)+ SQMKTShow+EncodeColor(colorBlue )+ ” “+ EncodeColor(OHLC)+ SQIndusShow+EncodeColor(colorOrange )+ ” “+ EncodeColor(OHLC)+ SQSectorShow+EncodeColor(colorDarkYellow )+ ” “+ EncodeColor(OHLC)+ SQStatusShow+EncodeColor(colorGreen )+ ” “+ EncodeColor(OHLC)+ SQBenefitShow+EncodeColor(colorViolet)+ ” “+ EncodeColor(OHLC)+ SQQEShow+”\n”+EncodeColor(colorOrange )+ ” Tooltip By Amibroker Platform V.2″+”\n”+EncodeColor(colorBlue )+ ” //—– Stock Fundamental Ratios ——————// “+”\n”+EncodeColor(OHLCV )+ ” P/E:: “+ EncodeColor(OHLC)+ WriteVal(SQPE,format=1.2) + “\n”+EncodeColor(OHLCV )+ ” P/BV :: “+ EncodeColor(OHLC)+ WriteVal(SQPBV,format=1.2) + “\n”+EncodeColor(OHLCV )+ ” Dividend :: “+ EncodeColor(OHLC)+ WriteVal(SQDY,format=1.2) + ” (%)”+ “\n”+EncodeColor(OHLCV )+ ” ROA :: “+ EncodeColor(OHLC)+ WriteIf(SQROA>=0,EncodeColor(colorGreen),EncodeColor(colorRed))+WriteVal(SQROA,format=1.2) + ” (%)”+”\n”+EncodeColor(OHLCV )+ ” ROE :: “+ EncodeColor(OHLC)+ WriteIf(SQROE>=0,EncodeColor(colorGreen),EncodeColor(colorRed))+WriteVal(SQROE,format=1.2) + ” (%)”+”\n”+EncodeColor(OHLCV )+ ” Net Profit Margin :: “+ EncodeColor(OHLC)+ WriteIf(SQNPM>=0,EncodeColor(colorGreen),EncodeColor(colorRed))+WriteVal(SQNPM,format=1.2) + ” (%)”+”\n”+EncodeColor(colorBlue )+ ” //—— Fundamental Per Share Values———–// “+”\n”+EncodeColor(OHLCV )+ ” EPS :: “+ EncodeColor(OHLC)+ WriteVal(SQEPS,format=1.2) +” (Baht)”+ “\n”+EncodeColor(OHLCV )+ ” Book Value per Share ::”+ EncodeColor(OHLC)+ WriteVal(SQBPS,format=1.2) +” (Baht)”+ “\n”+EncodeColor(OHLCV )+ ” Dividend per Share :: “+ EncodeColor(OHLC)+ WriteVal(SQDPS,format=1.2) + ” (Baht)”+ “\n”+EncodeColor(OHLCV )+ ” Accumulate DPS :: “+ EncodeColor(OHLC)+ WriteVal(SQDPS_ACC,format=1.2) + ” (Baht)”+”\n”+EncodeColor(OHLCV )+ ” Par Value :: “+ EncodeColor(OHLC)+ WriteVal(SQPAR,format=1.2) + ” (Baht)”+”\n”+EncodeColor(OHLCV )+ ” Listed Share :: “+ EncodeColor(OHLC)+ WriteVal(SQLS,format=1.0) + ” (Shares)”+”\n”+EncodeColor(colorBlue )+ ” //—– Stock Balancesheet ————————–// “+”\n”+EncodeColor(OHLCV )+ ” Total Assets :: “+ EncodeColor(OHLC)+ WriteIf(SQTA>=0,EncodeColor(colorGreen),EncodeColor(colorRed))+WriteVal(SQTA,format=1.0) + ” ( Baht)”+ “\n”+EncodeColor(OHLCV )+ ” Total Liabilities :: “+ EncodeColor(OHLC)+WriteIf(SQTL>=0,EncodeColor(colorGreen),EncodeColor(colorRed))+WriteVal(SQTL,format=1.0) + ” ( Baht)”+ “\n”+EncodeColor(OHLCV )+ ” Total Equity :: “+ EncodeColor(OHLC)+WriteIf(SQTE>=0,EncodeColor(colorGreen),EncodeColor(colorRed))+WriteVal(SQTE,format=1.0) + ” ( Baht)”+ “\n”+EncodeColor(OHLCV )+ ” Total Cash :: “+ EncodeColor(OHLC)+WriteIf(SQTC>=0,EncodeColor(colorGreen),EncodeColor(colorRed))+WriteVal(SQTC,format=1.0) + ” ( Baht)”+”\n”+EncodeColor(OHLCV )+ ” Total Current Assets :: “+ EncodeColor(OHLC)+WriteIf(SQTCA>=0,EncodeColor(colorGreen),EncodeColor(colorRed))+WriteVal(SQTCA,format=1.0) + ” ( Baht)”+”\n”+EncodeColor(OHLCV )+ ” Total Current Liabilities :: “+ EncodeColor(OHLC)+WriteIf(SQTCL>=0,EncodeColor(colorGreen),EncodeColor(colorRed))+WriteVal(SQTCL,format=1.0) + ” ( Baht)”+”\n”+EncodeColor(OHLCV )+ ” Retained Earnings :: “+ EncodeColor(OHLC)+ WriteIf(SQRE>=0,EncodeColor(colorGreen),EncodeColor(colorRed))+WriteVal(SQRE,format=1.0) + ” ( Baht)”+”\n”+EncodeColor(colorBlue )+ ” //—- Stock Profit-Cash Statement —————–// “+”\n”+EncodeColor(OHLCV )+ ” Total Revenue :: “+ EncodeColor(OHLC)+ WriteIf(SQTR>=0,EncodeColor(colorGreen),EncodeColor(colorRed))+WriteVal(SQTR,format=1.0) + ” ( Baht)”+ “\n”+EncodeColor(OHLCV )+ ” Earnings Before Interest & Tax ::”+ EncodeColor(OHLC)+ WriteIf(SQEBIT>=0,EncodeColor(colorGreen),EncodeColor(colorRed))+WriteVal(SQEBIT,format=1.0) + ” ( Baht)”+ “\n”+EncodeColor(OHLCV )+ ” Net Profit :: “+ EncodeColor(OHLC)+WriteIf(SQNP>=0,EncodeColor(colorGreen),EncodeColor(colorRed))+ WriteVal(SQNP,format=1.0) + ” ( Baht)”+ “\n”+EncodeColor(OHLCV )+ ” Cash Flow from Operating:: “+ EncodeColor(OHLC)+ WriteIf(SQOCF>=0,EncodeColor(colorGreen),EncodeColor(colorRed))+WriteVal(SQOCF,format=1.0) + ” ( Baht)”+”\n”+EncodeColor(OHLCV )+ ” Cash Flow from Investing :: “+ EncodeColor(OHLC)+ WriteIf(SQICF>=0,EncodeColor(colorGreen),EncodeColor(colorRed))+WriteVal(SQICF,format=1.0) + ” ( Baht)”+”\n”+EncodeColor(OHLCV )+ ” Cash Flow from Financing:: “+ EncodeColor(OHLC)+ WriteIf(SQFCF>=0,EncodeColor(colorGreen),EncodeColor(colorRed))+WriteVal(SQFCF,format=1.0) + ” ( Baht)”+”\n”+EncodeColor(colorBlue )+ ” //—- Properties Stats ———————————// “+”\n”+EncodeColor(OHLCV )+ ” Transaction :: “+ EncodeColor(OHLC)+ WriteVal(SQTRANS,format=1.2) + ” (#)”+ “\n”+EncodeColor(OHLCV )+ ” Trade Value :: “+ EncodeColor(OHLC)+ WriteVal(SQVALUE,format=1.0) + ” (Baht)”+ “\n”+EncodeColor(OHLCV )+ ” Turnover Ratio By Vol :: “+ EncodeColor(OHLC)+ WriteVal(SQTRVP,format=1.2) + ” (%)”+ “\n”+EncodeColor(OHLCV )+ ” Average Price:: “+ EncodeColor(OHLC)+ WriteVal(SQAVGPRICE,format=1.2) + ” (Baht)”+”\n”+EncodeColor(OHLCV )+ ” Market Capitalization :: “+ EncodeColor(OHLC)+ WriteVal(SQMKC,format=1.0) + “\n”;}}_SECTION_END();_SECTION_BEGIN(“Status AND Benefit”);if (ParamToggle(“Status AND Benefit”,”Off|On”,1)){PlotShapes(shapeSmallUpTriangle*(SQBenefit >= 1),colorTurquoise, 0, L, -35);PlotShapes(shapeSmallDownTriangle*( SQstatus >= 1), colorOrange , 0, H, -40);}//SiamQuant Stock Price and Indicator for Use with SiamQuantMetastockDatabase//Tooltip By Amibroker Platform_SECTION_END();//////////////////////////////////////////////////////////////////////////////////
- คุณต้องเข้าสู่ระบบเพื่อตอบกลับกระทู้นี้