Kosaten Hyo (Curve crossing)

Some people think that the stock market is a zero-sum game, other think that there is a similarity between poker and strategy but nobody notices that trading is akin to chess because it takes
predict shots in advance? It is done with this program which traces in the form of pieces the ephemeral events the most important!

The role of the specific parts of the “ichimoku” system is as follows:
– ♖ The Tower: It informs you about the formation of a “Twist Crossing” by drawing a rectangle framing the mini / maxi points of the last 26 candles (or 13 candles in the case of a “Twist Flat”)
– ♗ The Crazy: On a crossing “Tenkan-sen and Kijun-sen” indicates the possibility of an imminent departure of a Trend
– ♘ The Rider: It shows the signal of a Katana from the superposition on 2 or 3 points of Tenkan and Kijun
– ♕ The Queen: An important piece that visualizes any crossing made by the “Chikou Span” around or in the “Kumo”
– ♙ The Pawn: The memory of the past evolving in free zone to open the way once the obstacles crossed with the help of the Queen
– ♚ The King: Master of the future (clairvoyance, wisdom, patient, humility) all this is learned over time but we must pay attention to the hidden traps that are neither the market nor the brokers but well You !!!

// Kosaten Hyo | Indicator
// 24/04/2019 (Release 1.0)
// Swapping @ www.forexswap.fr
// Sharing ProRealTime knowledge (alt+16)
// (Kosaten Hyo) "Croisement de courbe" (Katana) "Lame Longue" (Daisho) "Lame courte"

DefParam DrawOnLastBarOnly = true

p=26
Fibonacci=1
Alpha=255
ColorPawn=0

// --- Property settings
alpha = max(alpha,0)         // Limit input variable
alpha = min(alpha,255)       //
// --- end

period = (p)
UpHH = highest[period](high)
LoLL = lowest[period](low)

Tenkansen = (highest[9](High)+lowest[9](Low))/2
Kijunsen  = (highest[26](High)+lowest[26](Low))/2
SenkouSA  = (Tenkansen[26]+Kijunsen[26])/2
SenkouSB  = (highest[52](High[26])+lowest[52](Low[26]))/2

Kata1 = summation[2](Tenkansen = Kijunsen) = 2  // (two contacts followed   = Katana)
Kata2 = summation[3](Tenkansen = Kijunsen) = 3  // (three contacts followed = Daisho)

if close crosses over tenkansen[26] then
co1=1              // for further development
if ColorPawn = 0 then
DrawText("♕",barindex[26],close,Dialog,Standard,20) coloured(0,0,0,alpha)    // chess queen white
else
DrawText("♛",barindex[26],close,Dialog,Standard,20) coloured(0,0,0,alpha)    // chess queen black
endif
if close crosses under tenkansen[26] then
co2=2
if ColorPawn = 0 then
DrawText("♕",barindex[26],close,Dialog,Standard,20) coloured(0,0,0,alpha) // chess queen white
else
DrawText("♛",barindex[26],close,Dialog,Standard,20) coloured(0,0,0,alpha) // chess queen black
endif
endif
endif
if close crosses over kijunsen[26] then
co1=3
if ColorPawn = 0 then
DrawText("♕",barindex[26],close,Dialog,Standard,20) coloured(0,0,0,alpha)    // chess queen white
else
DrawText("♛",barindex[26],close,Dialog,Standard,20) coloured(0,0,0,alpha)    // chess queen black
endif
endif
if close crosses under kijunsen[26] then
co2=4
if ColorPawn = 0 then
DrawText("♕",barindex[26],close,Dialog,Standard,20) coloured(0,0,0,alpha)    // chess queen white
else
DrawText("♛",barindex[26],close,Dialog,Standard,20) coloured(0,0,0,alpha)    // chess queen black
endif
endif

if close crosses over senkousa[26] then
co1=5
if ColorPawn = 0 then
DrawText("♕",barindex[26],close,Dialog,Standard,20) coloured(0,0,0,alpha)    // chess queen white
else
DrawText("♛",barindex[26],close,Dialog,Standard,20) coloured(0,0,0,alpha)    // chess queen black
endif
endif
if close crosses under senkousa[26] then
co2=6
if ColorPawn = 0 then
DrawText("♕",barindex[26],close,Dialog,Standard,20) coloured(0,0,0,alpha)    // chess queen white
else
DrawText("♛",barindex[26],close,Dialog,Standard,20) coloured(0,0,0,alpha)    // chess queen black
endif
endif

if close crosses over senkousb[26] then
co1=7
if ColorPawn = 0 then
DrawText("♕",barindex[26],close,Dialog,Standard,20) coloured(0,0,0,alpha)    // chess queen white
else
DrawText("♛",barindex[26],close,Dialog,Standard,20) coloured(0,0,0,alpha)    // chess queen black
endif
endif
if close crosses under senkousb[26] then
co2=8
if ColorPawn = 0 then
DrawText("♕",barindex[26],close,Dialog,Standard,20) coloured(0,0,0,alpha)    // chess queen white
else
DrawText("♛",barindex[26],close,Dialog,Standard,20) coloured(0,0,0,alpha)    // chess queen black
endif
endif

if Tenkansen crosses over Kijunsen then
co1=9
if ColorPawn = 0 then
DrawText("♗",barindex,kijunsen,Dialog,Standard,20) coloured(0,0,0,alpha)     // chess crazy white
else
DrawText("♝",barindex,Tenkansen,Dialog,Standard,20) coloured(0,0,0,alpha)    // chess crazy black
endif
endif
if Tenkansen crosses under Kijunsen then
co2=10
if ColorPawn = 0 then
DrawText("♗",barindex,kijunsen,Dialog,Standard,20) coloured(0,0,0,alpha)     // chess crazy white
else
DrawText("♝",barindex,Tenkansen,Dialog,Standard,20) coloured(0,0,0,alpha)    // chess crazy black
endif
endif

if Kijunsen crosses over Tenkansen then
co1=11
if ColorPawn = 0 then
DrawText("♗",barindex,kijunsen,Dialog,Standard,20) coloured(0,0,0,alpha)     // chess crazy white
else
DrawText("♝",barindex,Tenkansen,Dialog,Standard,20) coloured(0,0,0,alpha)    // chess crazy black
endif
endif
if Kijunsen crosses under Tenkansen then
co2=12
if ColorPawn = 0 then
DrawText("♗",barindex,kijunsen,Dialog,Standard,20) coloured(0,0,0,alpha)     // chess crazy white
else
DrawText("♝",barindex,Tenkansen,Dialog,Standard,20) coloured(0,0,0,alpha)    // chess crazy black
endif
endif

if close > tenkansen[26] and close > kijunsen[26] and close > senkousa[26] and close > senkousb[26] and close > high[26] then // Chikou Span » Free High Area
co1=13
if ColorPawn = 0 then
DrawText("♙",barindex[26],close,Dialog,Standard,26) coloured(0,0,0,alpha)    // chess pawn white
else
DrawText("♟",barindex[26],close,Dialog,Standard,26) coloured(0,0,0,alpha)    // chess pawn black
endif
endif
if close < tenkansen[26] and close < kijunsen[26] and close < senkousa[26] and close < senkousb[26] and close < high[26] then // Chikou Span « Free Low Area
co2=14
if ColorPawn = 0 then
DrawText("♙",barindex[26],close,Dialog,Standard,26) coloured(0,0,0,alpha)    // chess pawn white
else
DrawText("♟",barindex[26],close,Dialog,Standard,26) coloured(0,0,0,alpha)    // chess pawn black
endif
endif

if Kata1 then
co1=15
DrawText("Katana",barindex[5],LoLL,Dialog,BoldItalic,18) coloured(0,160,250)
if ColorPawn = 0 then
DrawText("♘",barindex,Tenkansen,Dialog,Standard,20) coloured(0,0,0,alpha)    // chess horse white
else
DrawText("♞",barindex,Tenkansen,Dialog,Standard,20) coloured(0,0,0,alpha)    // chess horse black
endif
if Kata2 then
co2=16
DrawText("Daisho",barindex,UpHH,Dialog,BoldItalic,16) coloured(250,160,0)
if ColorPawn = 0 then
DrawText("♘",barindex,Tenkansen,Dialog,Standard,20) coloured(0,0,0,alpha) // chess horse white
else
DrawText("♞",barindex,Tenkansen,Dialog,Standard,20) coloured(0,0,0,alpha) // chess horse black
endif
endif
endif

if SenkouSA crosses over SenkouSB or SenkouSA crosses under SenkouSB then    // Twist crossing
co1=17
DrawText("Twist Cross",barindex[35],UpHH,Dialog,BoldItalic,18) coloured(250,160,0)
DrawLine(barindex[period],UpHH[0],barindex[0],UpHH[0]) coloured(222,0,0)  // Line Upper (Optional)
DrawLine(barindex[period],LoLL[0],barindex[0],LoLL[0]) coloured(0,222,0)  // Line Lower (Optional)
DrawRectangle(barindex[period],UpHH[0],barindex,LoLL[0])                  // Default
if ColorPawn = 0 then
DrawText("♖",barindex,SenkouSA,Dialog,Standard,20) coloured(0,0,0,alpha)     // chess tower white
else
DrawText("♜",barindex,SenkouSA,Dialog,Standard,20) coloured(0,0,0,alpha)     // chess tower black
endif
endif
if SenkouSA = SenkouSB then                                                  // Twist flat
co2=18
DrawText("Twist Flat",barindex[21],UpHH,Dialog,BoldItalic,18) coloured(250,160,0)
period = 13 // (p)/2
UpHH = highest[period](high)
LoLL = lowest[period](low)
DrawLine(barindex[period],UpHH[0],barindex[0],UpHH[0]) coloured(222,0,0)  // Line Upper (Optional)
DrawLine(barindex[period],LoLL[0],barindex[0],LoLL[0]) coloured(0,222,0)  // Line Lower (Optional)
DrawRectangle(barindex[period],UpHH[0],barindex,LoLL[0])                  // Default
if ColorPawn = 0 then
DrawText("♖",barindex,SenkouSA,Dialog,Standard,20) coloured(0,0,0,alpha)     // chess tower white
else
DrawText("♜",barindex,SenkouSA,Dialog,Standard,20) coloured(0,0,0,alpha)     // chess tower black
endif
endif

//DrawText("◯",barindex[26],LoDay,MonoSpaced,Standard,26) coloured(10,190,0)  // for further development
DrawText(" #co1#",barindex[26],LoDay,SansSerif,Bold,18) coloured(10,190,0,0) //    -------------
//DrawText("◯",barindex[20],LoDay,MonoSpaced,Standard,26) coloured(190,10,0)  //    -------------
DrawText(" #co2#",barindex[20],LoDay,SansSerif,Bold,18) coloured(190,10,0,0) //    -------------

// Fibonacci Section
if day <> day[1] then
firstbar = barindex
endif
HiDay       = dhigh(0)
LoDay       = dlow(0)

if Fibonacci = 1 then
fib0    = (hiday-loday)*.0+loday
DrawSegment(firstbar,fib0,barindex-3,fib0) coloured(0,0,0,alpha)
DrawText("0%",barindex,fib0,Dialog,Bold,11) coloured(0,0,0,alpha)
fib236  = (hiday-loday)*.236+loday
DrawSegment(firstbar,fib236,barindex-3,fib236) coloured(0,0,0,alpha)
DrawText("23.6%",barindex,fib236,Dialog,Bold,11) coloured(0,0,0,alpha)
fib382  = (hiday-loday)*.382+loday
DrawSegment(firstbar,fib382,barindex-3,fib382) coloured(0,0,0,alpha)
DrawText("38.2%",barindex,fib382,Dialog,Bold,11) coloured(0,0,0,alpha)
fib500  = (hiday-loday)*.5+loday
DrawSegment(firstbar,fib500,barindex-3,fib500) coloured(0,0,0,alpha)
DrawText("50.0%",barindex,fib500,Dialog,Bold,11) coloured(0,0,0,alpha)
fib618  = (hiday-loday)*.618+loday
DrawSegment(firstbar,fib618,barindex-3,fib618) coloured(0,0,0,alpha)
DrawText("61.8%",barindex,fib618,Dialog,Bold,11) coloured(0,0,0,alpha)
fib764  = (hiday-loday)*.764+loday
DrawSegment(firstbar,fib764,barindex-3,fib764) coloured(0,0,0,alpha)
DrawText("76.4%",barindex,fib764,Dialog,Bold,11) coloured(0,0,0,alpha)
fib1000 = (hiday-loday)*1.0+loday
DrawSegment(firstbar,fib1000,barindex-3,fib1000) coloured(0,0,0,alpha)
DrawText("100%",barindex,fib1000,Dialog,Bold,11) coloured(0,0,0,alpha)
elsif Fibonacci = 2 then
fib0    = (hiday-loday)*1.0+loday
DrawSegment(firstbar,fib0,barindex-3,fib0) coloured(0,0,0,alpha)
DrawText("0%",barindex,fib0,Dialog,Bold,11) coloured(0,0,0,alpha)
fib236  = (hiday-loday)*.764+loday
DrawSegment(firstbar,fib236,barindex-3,fib236) coloured(0,0,0,alpha)
DrawText("23.6%",barindex,fib236,Dialog,Bold,11) coloured(0,0,0,alpha)
fib382  = (hiday-loday)*.618+loday
DrawSegment(firstbar,fib382,barindex-3,fib382) coloured(0,0,0,alpha)
DrawText("38.2%",barindex,fib382,Dialog,Bold,11) coloured(0,0,0,alpha)
fib500  = (hiday-loday)*.5+loday
DrawSegment(firstbar,fib500,barindex-3,fib500) coloured(0,0,0,alpha)
DrawText("50.0%",barindex,fib500,Dialog,Bold,11) coloured(0,0,0,alpha)
fib618  = (hiday-loday)*.382+loday
DrawSegment(firstbar,fib618,barindex-3,fib618) coloured(0,0,0,alpha)
DrawText("61.8%",barindex,fib618,Dialog,Bold,11) coloured(0,0,0,alpha)
fib764  = (hiday-loday)*.236+loday
DrawSegment(firstbar,fib764,barindex-3,fib764) coloured(0,0,0,alpha)
DrawText("76.4%",barindex,fib764,Dialog,Bold,11) coloured(0,0,0,alpha)
fib1000 = (hiday-loday)*.0+loday
DrawSegment(firstbar,fib1000,barindex-3,fib1000) coloured(0,0,0,alpha)
DrawText("100%",barindex,fib1000,Dialog,Bold,11) coloured(0,0,0,alpha)
endif

return

For any questions about the program “Kosaten Hyo” please make your request here ► https://www.prorealcode.com/topic/kosaten-hyo-croisement-de-courbe/