Posted by nera on 10/08/07 - 21:46:33
IP: 2147noDzKyPCU Browser:

Corpo del messaggio

INPUT: HBKTypPrxCentr(1),HBKTypPrxSort(2),HBKintrvp(1),kl argeurSup(1.8),klargeurInf(-1.8),HBKLisp(10); var: HBKPrxCentr(C),HBKPrxSort(C),HBKPlusH(0),HBKPlusB( 0),HB(0),AmplitudVrGIntHBK(0),HBKAtr(0), HBKMoy(0),HBKH(0),HBKB(0),HBKHMoy(0),HBKBMoy(0),HB Ktendance(0), HBKLisIntrvp(HBKLisp*HBKintrvp),Maxccant(HBKLisInt rvp); HBKPlusH=HighestFC(HC,HBKintrvp); HBKPlusB=LowestFC(BC,HBKintrvp); if HBKTypPrxCentr =1 then HBKPrxCentr=cc; if HBKTypPrxCentr =2 then HBKPrxCentr=(HBKPlusH+HBKPlusB)*0.5; if HBKTypPrxCentr =3 then HBKPrxCentr=(HBKPlusH+HBKPlusB+cc)/3; if HBKTypPrxCentr =4 then HBKPrxCentr=(HBKPlusH+HBKPlusB+cc+OC[HBKintrvp-1]) *0.25; if HBKTypPrxCentr =5 then HBKPrxCentr=(HBKPlusH+HBKPlusB+cc[HBKintrvp])/3; if HBKTypPrxCentr =6 then HBKPrxCentr=(HBKPlusH+HBKPlusB+cc[HBKintrvp]+OC[HB Kintrvp-1])*0.25; if HBKTypPrxSort =1 then HBKPrxSort=cc; if HBKTypPrxSort =2 then HBKPrxSort=(HBKPlusH+HBKPlusB)*0.5; if HBKTypPrxSort =3 then HBKPrxSort=(HBKPlusH+HBKPlusB+cc)/3; if HBKTypPrxSort =4 then HBKPrxSort=(HBKPlusH+HBKPlusB+cc+OC[HBKintrvp-1])* 0.25; if HBKTypPrxSort =5 then HBKPrxSort=(HBKPlusH+HBKPlusB+cc[HBKintrvp])/3; if HBKTypPrxSort =6 then HBKPrxSort=(HBKPlusH+HBKPlusB+cc[HBKintrvp]+OC[HBK intrvp-1])*0.25; AmplitudVrGIntHBK=(maxlist(HBKPlusH,CC[HBKintrvp]) -minlist(HBKPlusB,CC[HBKintrvp]))*0.5; Input:typeCalcul(6),GrafInfOuSup(1); if HBKLisp>1 then begin if typeCalcul=1 then begin HBKMoy=average(HBKPrxCentr,HBKLisIntrvp); HBKAtr=average(AmplitudVrGIntHBK,HBKLisIntrvp); HBKHMoy=HBkmoy+klargeurSup*HBKAtr; HBKBMoy=HBkmoy+klargeurInf*HBKAtr; end; if typeCalcul=2 then begin HBKMoy=average(HBKPrxCentr,HBKLisIntrvp); HBKAtr=average(AmplitudVrGIntHBK,HBKLisIntrvp); HBKHMoy=HBkmoy+klargeurSup*HBKAtr;IF HBKTendance=-1 then HBKHmoy=minlist(HBKHmoy,HBKHmoy[1]); HBKBMoy=HBkmoy+klargeurInf*HBKAtr;;IF HBKTendance=1 then HBKBmoy=maxlist(HBKBmoy,HBKBmoy[1]); end; if typeCalcul=3 then begin HBKMoy=xaverage(HBKPrxCentr,HBKLisIntrvp); HBKAtr=xaverage(AmplitudVrGIntHBK,HBKLisIntrvp); HBKHMoy=HBkmoy+klargeurSup*HBKAtr; HBKBMoy=HBkmoy+klargeurInf*HBKAtr; end; if typeCalcul=4 then begin HBKMoy=Xaverage(HBKPrxCentr,HBKLisIntrvp); HBKAtr=Xaverage(AmplitudVrGIntHBK,HBKLisIntrvp); HBKHMoy=HBkmoy+klargeurSup*HBKAtr;IF HBKTendance=-1 then HBKHmoy=minlist(HBKHmoy,HBKHmoy[1]); HBKBMoy=HBkmoy+klargeurInf*HBKAtr;;IF HBKTendance=1 then HBKBmoy=maxlist(HBKBmoy,HBKBmoy[1]); end; if typeCalcul=5 then begin HBKMoy=Waverage(HBKPrxCentr,HBKLisIntrvp); HBKAtr=Waverage(AmplitudVrGIntHBK,HBKLisIntrvp); HBKHMoy=HBkmoy+klargeurSup*HBKAtr; HBKBMoy=HBkmoy+klargeurInf*HBKAtr; end; if typeCalcul=6 then begin HBKMoy=average(HBKPrxCentr,HBKLisIntrvp); HBKAtr=Waverage(AmplitudVrGIntHBK,HBKLisIntrvp); HBKHMoy=HBkmoy+klargeurSup*HBKAtr;IF HBKTendance=-1 then HBKHmoy=minlist(HBKHmoy,HBKHmoy[1]); HBKBMoy=HBkmoy+klargeurInf*HBKAtr;;IF HBKTendance=1 then HBKBmoy=maxlist(HBKBmoy,HBKBmoy[1]); end; end else begin HBKH=HBKPrxCentr+klargeurSup*AmplitudVrGIntHBK; HBKB=HBKPrxCentr+klargeurInf*AmplitudVrGIntHBK; HBKMoy=HBKPrxCentr; HBKHMoy=HBKH; HBKBMoy=HBKB; end; if HBKPrxSort>HBKHMoy then HBKtendance=1; if HBKPrxSort if GrafInfouSup=1 then begin Plot1(HBKMoy+GapJcumu,"Moy HB"); if klargeurSup>0 then begin Plot2(HBKHMoy+GapJcumu,"Bande Sup"); if HBKtendance>0 then setplotcolor(3,yellow); end; if klargeuriNF<0 then begin if HBKtendance<0 then setplotcolor(2,yellow); end; Plot3(HBKBMoy+GapJcumu,"Bande Inf"); if GrafInfouSup=3 then Plot4(oC,"Ouverture",yellow); end else begin if HBKtendance>0 then begin Plot2(HBKHMoy-HBKMoy,"Bande Sup"); setplotcolor(2,BLACK); end; if HBKtendance<0 then begin Plot2(HBKBMoy-HBKMoy,"Bande Sup"); setplotcolor(2,red); end; pLOT1(0,"Moy HB",blue); if GrafInfouSup=2 then Plot4(oC-HBKMoy,"Ouverture",yellow); end;

Per ulteriore lettura

... ... - nera, 10/08/07 - 22:02:53 Quelle le avevo trovate... ... - Furyo, 10/09/07 - 15:41:52

Faccine Rispondi a questo messaggio

Upload grafico. Solo file tipo: gif, jpg, png, bmp. Massimo Kb 70. I file contenenti riferimenti a siti o programmi diversi da JChart verranno cancellati. Uso: seleziona il files, premi upload e copia il codice che verra' visualizzato all'interno del messaggio nel punto dove vuoi il grafico. Per ridurre le dimensioni: togli la parte inutile, cornice ecc. Grazie.

User:    Psw:  [ L'user non sarà visibile nei messaggi. ] Nick: Mail: Titolo: Testo:

XTrader Forum