Free intraday charting software for Cash and Future

#92
Finding doubletop pattern using igs fl.

Apply this formula to find double top in iguidestocks's formula language



@PARAMETER MINCHANGE TOPDIFF
@VALUE 10 3
@COMMENT PROVIDE MINCHANGE TO GET PEAK & MAX DIFF IN NEAREST TOPS
#P:pEAK[CLOSE[0];$MINCHANGE$]
#T:TROUGH[CLOSE[0];$MINCHANGE$]
B := P

IF ( B <> 0 )
{
X := GETNOTZEROVALUE{2,P}
D := ( ( X - B ) * 100 ) / ( X + .001 )
D := ABS{D}
IF ( D < $TOPDIFF$ )
{
POS := GETNOTZEROBARAWAY{2,P}
LINEXY{BARNO,B,BARNO - POS,X,YELLOW}
GETVALUE{TEXT{ CLOSE[0],RED,"T1-" + CLOSE[0],8 },BARNO - POS}
GETVALUE{TEXT{ CLOSE[0],RED,"T2-" + CLOSE[0] ,8 },BARNO }

TVAL := GETNOTZEROVALUE{1,T}
TPOS := BARNO - GETNOTZEROBARAWAY{1,T}
LINEXY{TPOS - 30,TVAL,TPOS + 30,TVAL,YELLOW}
GETVALUE{TEXT{ CLOSE[0],RED,"N-" + CLOSE[0] ,8 },TPOS }


}

}
ALERTTEXT{"T1-TOP1,T2-TOP2,N-NECKLINE"}
ALERTTEXT{"DOUBLE TOP PATTERN"}
 
#93
more formuales to find out tripple top

@PARAMETER MINCHANGE TOPDIFF
@VALUE 10 3
@COMMENT PROVIDE MINCHANGE TO GET PEAK & MAX DIFF IN NEAREST TOPS
#P:TROUGH[CLOSE[0];$MINCHANGE$]
#T:peak[CLOSE[0];$MINCHANGE$]
B := P

IF ( B <> 0 )
{
X := GETNOTZEROVALUE{2,P}
X1 := GETNOTZEROVALUE{3,P}

D := ( ( X - B ) * 100 ) / ( X + .001 )
D := ABS{D}
X := GETNOTZEROVALUE{2,P}
D1 := ( ( X1 - B ) * 100 ) / ( X1 + .001 )
D1 := ABS{D1}

IF ( D < $TOPDIFF$ AND D1 < $TOPDIFF$ )
{
POS := GETNOTZEROBARAWAY{2,P}
LINEXY{BARNO,B,BARNO - POS,X,YELLOW}

POS1 := GETNOTZEROBARAWAY{3,P}
LINEXY{BARNO - POS ,X,BARNO - POS1 ,X1,YELLOW}

GETVALUE{TEXT{ CLOSE[0],RED,"T1-" + CLOSE[0],8 },BARNO - POS}
GETVALUE{TEXT{ CLOSE[0],RED,"T2-" + CLOSE[0] ,8 },BARNO }
GETVALUE{TEXT{ CLOSE[0],RED,"T3-" + CLOSE[0] ,8 },BARNO - pos1 }

TVAL := GETNOTZEROVALUE{1,T}
TPOS := BARNO - GETNOTZEROBARAWAY{1,T}
LINEXY{TPOS - 30,TVAL,TPOS + 30,TVAL,YELLOW}

TVAL1 := GETNOTZEROVALUE{2,T}
TPOS1 := BARNO - GETNOTZEROBARAWAY{2,T}
LINEXY{TPOS1 - 30,TVAL1,TPOS1 + 30,TVAL1,YELLOW}

GETVALUE{TEXT{ CLOSE[0],RED,"N1-" + CLOSE[0] ,8 },TPOS }
GETVALUE{TEXT{ CLOSE[0],RED,"N2-" + CLOSE[0] ,8 },TPOS1 }


}

}
ALERTTEXT{"T1-TOP1,T2-TOP2,T3-TOP3,N1-NECKLINE,N2-NECKLINE2"}
ALERTTEXT{"INV TRIPLE TOP PATTERN"}
 
#97
Finding support and resistance level using zigzag function


IF ( BARNO == 0 )
{
X := GETVALUE{CLOSE[0],NOOFBARS - 1}
UPPERVAL := X * 1.15
DOWNVAL := X * 0.85
ADDTOGLOBAL{UP,UPPERVAL}
ADDTOGLOBAL{DOWN,DOWNVAL}
ADDTOGLOBAL{PIVOT,X}

}

B := PEAK[CLOSE[0];10]

C := TROUGH[CLOSE[0];10]

IF ( B <> 0 AND CLOSE[0] > PIVOT AND CLOSE[0] < UP )
{
LINEXY{0,B,NOOFBARS,B,YELLOW}

}

IF ( C <> 0 AND CLOSE[0] > DOWN AND CLOSE[0] < PIVOT )
{
LINEXY{0,C,NOOFBARS,C,RED}
}
 
#98
finding bullish bearish adviser on intraday chart

IF ( SMA[14;0] > CLOSE )
{
SHORTERMAVG := "BEARISH"
}
ELSE
{
SHORTERMAVG := "BULLISH"
}
EXPOSE{SHORTERMAVG}
ALERTTEXT{"SHORTERMAVG " + SHORTERMAVG }

RSISTATUS := "NONE"
IF ( RSI[14;0] > 70 )
{
RSISTATUS := "OVERBOUGHT"
}
ELSE IF ( RSI[14;0] < 30 )
{
RSISTATUS := "OVERSOLD"
}
EXPOSE{RSISTATUS}
ALERTTEXT{"RSISTATUS " + RSISTATUS}


A := MACDLINE[12;26;9;0] > MACDSIGNAL[12;26;9;0]
MACDSTATUS := "NONE"
IF ( A )
{
MACDSTATUS := "BULLISH"
}
ELSE
{
MACDSTATUS := "BEARISH"
}
EXPOSE{MACDSTATUS}
ALERTTEXT{"MACDSTATUS " + MACDSTATUS}

A := AROOPOSI[14;0] > 50
B := AROOPOSI[14;0] < -50
AROOPSTATUS := "NONE"
IF ( A )
{
AROOPSTATUS := "BULLISH"


}
IF ( B )
{
AROOPSTATUS := "BEARISH"

}
EXPOSE{AROOPSTATUS}
ALERTTEXT{"AROOPSTATUS " + AROOPSTATUS}

D := STOKPERD[14;3;0]
K := STOKPERK[14;3;0]
SHORTERMSTOCKASTICS := "NONE"
IF ( K > D AND K > 20 )
{
SHORTERMSTOCKASTICS := "BUY"
}
IF ( K < D AND K < 80 )
{
SHORTERMSTOCKASTICS := "SELL"
}
EXPOSE{SHORTERMSTOCKASTICS}
ALERTTEXT{"SHORTERMSTOCKASTICS " + SHORTERMSTOCKASTICS}

WILLIAMSTATUS := "NONE"
IF ( WILPER[14;0] > -20 )
{
WILLIAMSTATUS := "OVERBOUGHT"
}

IF ( WILPER[14;0] < -80 )
{
WILLIAMSTATUS := "OVERSOLD"
}
EXPOSE{ WILLIAMSTATUS}
ALERTTEXT{" WILLIAMSTATUS " + WILLIAMSTATUS}
TRUE
 
#99
really a good formula to get buy/sell advise. 4-4 strategies are mixed ina single formula.

@THIS FORMULA WILL SHOW ONLY LONG POSITION GIVES GOOD RESULT BUT APPEAR RARELY
#HAM:HAMMER
#BEA: BEARISHENGULFING
ALT := "NO ADVISE"
IF ( HAM[-2] AND BEA[0] )
{
BUY{}
ALT := "HAMMER 2 DAY BEFORE WITH BEARISHENGULFING TODAY, TAKE LONG POSITION GIVES GOOD RESULT AND APPEAR RARELY"
}


@ CANDLE - HANGING MAN/HAMMER AND CCI TRADING SYSTEM
@ENTER LONG
IF ( HAMMER AND CCI[11;0] < -50 )
{
ALT := "HAMMER ,CCI SYSTEM BUY SIGNAL OCCURED CCI LESS THAN 50 AND HAMMER OCCURED"
}



@GAPUP AFTER A BULLISH ENGULFING SIGNAL A STRONG CHANGE IN INVESTOR SENTIMENT
@SHOWS ONLY LONG POSITION OCCURE RARELY
#G:GAPUP
#BUL:BULLISHENGULFING
IF ( G[0] AND BUL[-1] )
{
ALT := "GAPUP TODAY AND BULLISHENGULFING YESTERDAY PROVIDING A BUY SIGNAL"
}


@WEAKNESS IN A STRONG TREND
@IN AN UP TREND, THREE OR FOUR SUCCESSIVE LOWER CLOSES AND THE EMA(21) IS RISING.

@SIMPLEX LONG:
A := ( CLOSE[0] <= CLOSE[-1] ) AND ( CLOSE[-1] <= CLOSE[-2] ) AND ( CLOSE[-2] <= CLOSE[-3] ) AND ( EMA[21;0] > EMA[21;-1] )

@SIMPLEX SHORT:
B := ( CLOSE[0] >= CLOSE[-1] ) AND ( CLOSE[-1] >= CLOSE[-2] ) AND ( CLOSE[-2] >= CLOSE[-3] ) AND ( EMA[21;0] < EMA[21;-1] )

IF ( A )
{
ALT := "BUY SIGNAL,FROM 3 DAYS STOCK CLOSING BELOW FROM PREVIOUS DAY CLOSING PRICE BUT MOVING AVG IS GREATER THAN YESTERDAY MOVING AVERAGE PRICE"
BUYTYPE := "STRONGBUY"
}
IF ( B )
{
ALT := "SELL SIGNAL,FROM 3 DAYS STOCK CLOSING ABOVE FROM PREVIOUS DAY CLOSING PRICE BUT MOVING AVG IS LESS THAN YESTERDAY MOVING AVERAGE PRICE"
BUYTYPE := "STRONGSELL"
}
MTX := TRUE
IF ( ALT == "NO ADVISE" )
{
MTX := FALSE
}
EXPOSE{ALT}
alerttext{alt}
MTX
 
Dear Sweta,

read all your comments, but i am having problem running your .bat file. I have the latest jre installed then also why is this technical problem.

Thanks
 

Similar threads