开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 金融证券系统 > 查看源码
Color Display.afl.afl
资源名称：AFL_collection.rar　[点击查看]
上传用户：shiqiang
上传日期：2009-06-12
资源大小：1289k
文件大小：5k
源码类别：

金融证券系统

开发平台：

Others

Color Display.afl.afl：源码内容
  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    Color Display.afl
  4. //  Author/Uploader: bill barnard 
  5. //  E-mail:          
  6. //  Date/Time Added: 2003-12-15 10:56:15
  7. //  Origin:          This is an adaptation of AFL code to display colors by Gary A. Serkhoshian, who credited William Peters' earlier work.
  8. //  Keywords:        color
  9. //  Level:           medium
  10. //  Flags:           indicator
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=314
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=314
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  Displays Amibroker color choices when run in IB. All colors are shown in a
  17. //  color bar at the bottom of the plot. a click on one of the colors will
  18. //  produce histogram and line plots and a title line in the selected color.
  19. //  The title gives the full name and the number of the color, to aid in
  20. //  coding. The title also displays Bars per Color to make it easy to zoom in
  21. //  to one bar per color so one can efficiently arrow right or left through the
  22. //  color choices.
  23. //
  24. //------------------------------------------------------------------------------
  26.                  /*  Color Display */
  27. numbars = LastValue(Cum(Status("barvisible")));
  28. X = IIf(numbars >= 56, floor(numbars / 56), 1);
  30. Plot( 20, "", int(Cum(1/X)%56 ), styleOwnScale | styleArea | styleNoLabel,0,100);
  31. Plot(28*X*sin(Cum(0.112/X)),"", SelectedValue(int(Cum(1/X)%56)),styleOwnScale | styleLine, -X*50, X*40);
  32. Plot(Cum(1)%(56*X) - 28*X,"num",SelectedValue(int(Cum(1/X)%56)),styleOwnScale | styleHistogram | styleNoLabel, -X*50, X*40);
  34. n = SelectedValue(int(Cum(1/X)%56));
  35. colorstring =        WriteIf(n ==0,   "colorCustom1 - number 0",
  36. WriteIf(n ==1,   "colorCustom2 - number 1",
  37. WriteIf(n ==2,   "colorCustom3 - number 2",
  38. WriteIf(n ==3,   "colorCustom4 - number 3",
  39. WriteIf(n ==4,   "colorCustom5 - number 4",
  40. WriteIf(n ==5,   "colorCustom6 - number 5",
  41. WriteIf(n ==6,   "colorCustom7 - number 6",
  42. WriteIf(n ==7,   "colorCustom8 - number 7",
  43. WriteIf(n ==8,   "colorCustom9 - number 8",
  44. WriteIf(n ==9,   "colorCustom10 - number 9",
  45. WriteIf(n ==10, "colorCustom11 - number 10",
  46. WriteIf(n ==11, "colorCustom12 - number 11",
  47. WriteIf(n ==12, "colorCustom13 - number 12",
  48. WriteIf(n ==13, "colorCustom14 - number 13",
  49. WriteIf(n ==14, "colorCustom15 - number 14",
  50. WriteIf(n ==15, "colorCustom16 - number 15",
  51. WriteIf(n ==16, "colorBlack - number 16",
  52. WriteIf(n ==17, "colorBrown - number 17",
  53. WriteIf(n ==18, "colorDarkOliveGreen - number 18",
  54. WriteIf(n ==19, "colorDarkGreen - number 19",
  55. WriteIf(n ==20, "colorDarkTeal - number 20",
  56. WriteIf(n ==21, "colorDarkBlue - number 21",
  57. WriteIf(n ==22, "colorIndigo - number 22",
  58. WriteIf(n ==23, "colorDarkGrey - number 23",
  59. WriteIf(n ==24, "colorDarkRed - number 24",
  60. WriteIf(n ==25, "colorOrange - number 25",
  61. WriteIf(n ==26, "colorDarkYellow - number 26",
  62. WriteIf(n ==27, "colorGreen - number 27",
  63. WriteIf(n ==28, "colorTeal - number 28",
  64. WriteIf(n ==29, "colorBlue - number 29",
  65. WriteIf(n ==30, "colorBlueGrey - number 30",
  66. WriteIf(n ==31, "colorGrey40 - number 31",
  67. WriteIf(n ==32, "colorRed - number 32",
  68. WriteIf(n ==33, "colorLightOrange - number 33",
  69. WriteIf(n ==34, "colorLime - number 34",
  70. WriteIf(n ==35, "colorSeaGreen - number 35",
  71. WriteIf(n ==36, "colorAqua - number 36",
  72. WriteIf(n ==37, "colorLightBlue - number 37",
  73. WriteIf(n ==38, "colorViolet - number 38",
  74. WriteIf(n ==39, "colorGrey50 - number 39",
  75. WriteIf(n ==40, "colorPink - number 40",
  76. WriteIf(n ==41, "colorGold - number 41",
  77. WriteIf(n ==42, "colorYellow - number 42",
  78. WriteIf(n ==43, "colorBrightGreen - number 43",
  79. WriteIf(n ==44, "colorTurquoise - number 44",
  80. WriteIf(n ==45, "colorSkyblue - number 45",
  81. WriteIf(n ==46, "colorPlum - number 46",
  82. WriteIf(n ==47, "colorLightGrey - number 47",
  83. WriteIf(n ==48, "colorRose - number 48",
  84. WriteIf(n ==49, "colorTan - number 49",
  85. WriteIf(n ==50, "colorLightYellow - number 50",
  86. WriteIf(n ==51, "colorPaleGreen - number 51",
  87. WriteIf(n ==52, "colorPaleTurquoise - number 52",
  88. WriteIf(n ==53, "colorPaleBlue - number 53",
  89. WriteIf(n ==54, "colorLavender - number 54",
  90. WriteIf(n ==55, "colorWhite - number 55", 
  91. ""))))))))))))))))))))))))))))))))))))))))))))))))))))))));
  92. Title = EncodeColor(n)+"Bars per Color = "+X+ "                  The current selection is  "+ColorString;