안녕하세요 예스스탁입니다. input : mP1(2),mLENGTH1(3),mLENGTH2(5),mLENGTH3(10),mLENGTH4(20),mLENGTH5(40),mLENGTH6(60), mPeriod1(3),mPeriod2(5),mPeriod3(10),mPeriod4(20),mPeriod5(40),mPeriod6(60); var : mTCHAN1(0),mTCHAN2(0),mTCHAN3(0),mTCHAN4(0),mTCHAN5(0),mTCHAN6(0),mcnt(0); Var : mSum1(0), mCounter1(0), mCSum1(0),mWma1(0),mSumSqrt1(0),mStd1(0); Var : mSum2(0), mCounter2(0), mCSum2(0),mWma2(0),mSumSqrt2(0),mStd2(0); Var : mSum3(0), mCounter3(0), mCSum3(0),mWma3(0),mSumSqrt3(0),mStd3(0); Var : mSum4(0), mCounter4(0), mCSum4(0),mWma4(0),mSumSqrt4(0),mStd4(0); Var : mSum5(0), mCounter5(0), mCSum5(0),mWma5(0),mSumSqrt5(0),mStd5(0); Var : mSum6(0), mCounter6(0), mCSum6(0),mWma6(0),mSumSqrt6(0),mStd6(0); Array : mHH[70](0),mCC[70](0),mLL[70](0); if sdate > sdate[1]+30 Then{ mHH[0] = H; mLL[0] = L; for mcnt = 1 to 61{ mHH[mcnt] = mHH[mcnt-1][1]; mCC[mcnt] = mCC[mcnt-1][1]; mLL[mcnt] = mLL[mcnt-1][1]; } } if H > mHH[0] Then mHH[0] = H; if L < mLL[0] Then mLL[0] = L; mCC[0] = C; mTCHAN1 = mHH[1]; for mcnt = 1 to mLENGTH1 { if mHH[mcnt] > mTCHAN1 Then mTCHAN1 = mHH[mcnt]; } mTCHAN2 = mHH[1]; for mcnt = 1 to mLENGTH2 { if mHH[mcnt] > mTCHAN2 Then mTCHAN2 = mHH[mcnt]; } mTCHAN3 = mHH[1]; for mcnt = 1 to mLENGTH3 { if mHH[mcnt] > mTCHAN3 Then mTCHAN3 = mHH[mcnt]; } mTCHAN4 = mHH[1]; for mcnt = 1 to mLENGTH4 { if mHH[mcnt] > mTCHAN4 Then mTCHAN4 = mHH[mcnt]; } mTCHAN5 = mHH[1]; for mcnt = 1 to mLENGTH5 { if mHH[mcnt] > mTCHAN5 Then mTCHAN5 = mHH[mcnt]; } mTCHAN6 = mHH[1]; for mcnt = 1 to mLENGTH6 { if mHH[mcnt] > mTCHAN6 Then mTCHAN6 = mHH[mcnt]; } mSum1 = 0; mCSum1 = 0; For mcounter1 = 1 To mPeriod1{ mSum1 = mSum1 + ((mHH[mcounter1]+mLL[mcounter1]+mCC[mcounter1])/3) * (mPeriod1 - (mcounter1-1)); mCSum1 = mCSum1 + mPeriod1 - (mcounter1-1); } mWMA1 = mSum1/mCSum1; mSumSqrt1 = 0; For mCounter1 = 1 To mPeriod1 { mSumSqrt1 = mSumSqrt1 + (((mHH[mcounter1]+mLL[mcounter1]+mCC[mcounter1])/3) - mWMA1) * (((mHH[mcounter1]+mLL[mcounter1]+mCC[mcounter1])/3) - mWMA1); } mStd1 = SquareRoot(mSumSqrt1 / mPeriod1); mSum2 = 0; mCSum2 = 0; For mcounter2 = 1 To mPeriod2{ mSum2 = mSum2 + ((mHH[mcounter2]+mLL[mcounter2]+mCC[mcounter2])/3) * (mPeriod2 - (mcounter2-1)); mCSum2 = mCSum2 + mPeriod2 - (mcounter2-1); } mWMA2 = mSum2/mCSum2; mSumSqrt2 = 0; For mCounter2 = 1 To mPeriod2 { mSumSqrt2 = mSumSqrt2 + (((mHH[mcounter2]+mLL[mcounter2]+mCC[mcounter2])/3) - mWMA2) * (((mHH[mcounter2]+mLL[mcounter2]+mCC[mcounter2])/3) - mWMA2); } mStd2 = SquareRoot(mSumSqrt2 / mPeriod2); mSum3 = 0; mCSum3 = 0; For mcounter3 = 1 To mPeriod3 { mSum3 = mSum3 + ((mHH[mcounter3]+mLL[mcounter3]+mCC[mcounter3])/3) * (mPeriod3 - (mcounter3-1)); mCSum3 = mCSum3 + mPeriod3 - (mcounter3-1); } mWMA3 = mSum3/ mCSum3; mSumSqrt3 = 0; For mCounter3 = 1 To mPeriod3 { mSumSqrt3 = mSumSqrt3 + (((mHH[mcounter3]+mLL[mcounter3]+mCC[mcounter3])/3) - mWMA3) * (((mHH[mcounter3]+mLL[mcounter3]+mCC[mcounter3])/3) - mWMA3); } mStd3 = SquareRoot(mSumSqrt3 / mPeriod3); mSum4 = 0; mCSum4 = 0; For mcounter4 = 1 To mPeriod4 { mSum4 = mSum4 + ((mHH[mcounter4]+mLL[mcounter4]+mCC[mcounter4])/3) * (mPeriod4 - (mcounter4-1)); mCSum4 = mCSum4 + mPeriod4 - (mcounter4-1); } mWMA4 = mSum4/ mCSum4; mSumSqrt4 = 0; For mCounter4 = 1 To mPeriod4 { mSumSqrt4 = mSumSqrt4 + (((mHH[mcounter4]+mLL[mcounter4]+mCC[mcounter4])/3) - mWMA4) * (((mHH[mcounter4]+mLL[mcounter4]+mCC[mcounter4])/3) - mWMA4); } mStd4 = SquareRoot(mSumSqrt4 / mPeriod4); mSum5 = 0; mCSum5 = 0; For mcounter5 = 1 To mPeriod5 { mSum5 = mSum5 + ((mHH[mcounter5]+mLL[mcounter5]+mCC[mcounter5])/3) * (mPeriod5 - (mcounter5-1)); mCSum5 = mCSum5 + mPeriod5 - (mcounter5-1); } mWMA5 = mSum5/ mCSum5; mSumSqrt5 = 0; For mCounter5 = 1 To mPeriod5 { mSumSqrt5 = mSumSqrt5 + (((mHH[mcounter5]+mLL[mcounter5]+mCC[mcounter5])/3) - mWMA5) * (((mHH[mcounter5]+mLL[mcounter5]+mCC[mcounter5])/3) - mWMA5); } mStd5 = SquareRoot(mSumSqrt5 / mPeriod5); mSum6 = 0; mCSum6 = 0; For mcounter6 = 1 To mPeriod6 { mSum6 = mSum6 + ((mHH[mcounter6]+mLL[mcounter6]+mCC[mcounter6])/3) * (mPeriod6 - (mcounter6-1)); mCSum6 = mCSum6 + mPeriod6 - (mcounter6-1); } mWMA6 = mSum6/ mCSum6; mSumSqrt6 = 0; For mCounter6 = 1 To mPeriod6 { mSumSqrt6 = mSumSqrt6 + (((mHH[mcounter6]+mLL[mcounter6]+mCC[mcounter6])/3) - mWMA6) * (((mHH[mcounter6]+mLL[mcounter6]+mCC[mcounter6])/3) - mWMA6); } mStd6 = SquareRoot(mSumSqrt6 / mPeriod6); var11 = mwma1+(mP1*mSTD1); var12 = mwma2+(mp1*mSTD2); var13 = mwma3+(mp1*mSTD3); var14 = mwma4+(mp1*mSTD4); var15 = mwma5+(mp1*mSTD5); var16 = mwma6+(mp1*mSTD6); var17 = (mHH[0]+mLL[0])/2; ##주봉 중간값 Value11 = Max((mHH[1]+mLL[1])/2,(mHH[1]+mLL[1]+mCC[1])/3,(mHH[2]+mLL[2])/2,(mHH[2]+mLL[2]+mCC[2])/3); Value12 = Min((mHH[1]+mLL[1])/2,(mHH[1]+mLL[1]+mCC[1])/3,(mHH[2]+mLL[2])/2,(mHH[2]+mLL[2]+mCC[2])/3); Value13 = (MAX(mHH[1],mHH[2])+Min(mLL[1],mLL[2])+mCC[1])/3; Plot1(mTCHAN1, "pc3[1]"); Plot2(mTCHAN2, "pc5[1]"); Plot3(mTCHAN3, "pc10[1]"); Plot4(mTCHAN4, "pc20[1]"); Plot5(mTCHAN5, "pc40[1]"); Plot6(mTCHAN6, "pc60[1]"); Plot7(var11, "bb3[1]"); Plot8(var12, "bb5[1]"); Plot9(var13, "bb10[1]"); Plot10(var14, "bb20[1]"); Plot11(var15, "bb40[1]"); Plot12(var16, "bb60[1]"); Plot13(Value11, "1"); Plot14(Value12, "2"); Plot15(Value13, "3"); 즐거운 하루되세요 > 맥스 님이 쓴 글입니다. > 제목 : 문의드립니다 > 아래의 지표식은 일봉에서 월봉의 값을 불러온 내용입니다. 또한 비슷한 수식으로 일봉에서 주봉을 불러온 내용과 겹치는 부분이 있어 정확한 표기가 안되네요...(일봉에서 월봉 및 주봉의 내용을 불러옴) 아래의 수식을 일봉에서 아래 월봉의 수식과 다른표기로 주봉의 수식으로 변경을 해주시기 바랍니다. (아래수식중 var7, value1,value2,value3 의 내용이 주봉의 수식과 중복이 되는것 같습니다) input : p1(2),LENGTH1(3),LENGTH2(5),LENGTH3(10),LENGTH4(20),LENGTH5(40),LENGTH6(60), Period1(3),Period2(5),Period3(10),Period4(20),Period5(40),Period6(60); var : TCHAN1(0),TCHAN2(0),TCHAN3(0),TCHAN4(0),TCHAN5(0),TCHAN6(0),cnt(0); Var : Sum1(0), Counter1(0), CSum1(0),Wma1(0),SumSqrt1(0),Std1(0); Var : Sum2(0), Counter2(0), CSum2(0),Wma2(0),SumSqrt2(0),Std2(0); Var : Sum3(0), Counter3(0), CSum3(0),Wma3(0),SumSqrt3(0),Std3(0); Var : Sum4(0), Counter4(0), CSum4(0),Wma4(0),SumSqrt4(0),Std4(0); Var : Sum5(0), Counter5(0), CSum5(0),Wma5(0),SumSqrt5(0),Std5(0); Var : Sum6(0), Counter6(0), CSum6(0),Wma6(0),SumSqrt6(0),Std6(0); Array : HH[70](0),CC[70](0),LL[70](0); if sdate > sdate[1]+30 Then{ HH[0] = H; LL[0] = L; for cnt = 1 to 61{ HH[cnt] = HH[cnt-1][1]; CC[cnt] = CC[cnt-1][1]; LL[cnt] = LL[cnt-1][1]; } } if H > HH[0] Then HH[0] = H; if L < LL[0] Then LL[0] = L; CC[0] = C; TCHAN1 = HH[1]; for cnt = 1 to LENGTH1 { if HH[cnt] > TCHAN1 Then TCHAN1 = HH[cnt]; } TCHAN2 = HH[1]; for cnt = 1 to LENGTH2 { if HH[cnt] > TCHAN2 Then TCHAN2 = HH[cnt]; } TCHAN3 = HH[1]; for cnt = 1 to LENGTH3 { if HH[cnt] > TCHAN3 Then TCHAN3 = HH[cnt]; } TCHAN4 = HH[1]; for cnt = 1 to LENGTH4 { if HH[cnt] > TCHAN4 Then TCHAN4 = HH[cnt]; } TCHAN5 = HH[1]; for cnt = 1 to LENGTH5 { if HH[cnt] > TCHAN5 Then TCHAN5 = HH[cnt]; } TCHAN6 = HH[1]; for cnt = 1 to LENGTH6 { if HH[cnt] > TCHAN6 Then TCHAN6 = HH[cnt]; } Sum1 = 0; CSum1 = 0; For counter1 = 1 To Period1{ Sum1 = Sum1 + ((HH[counter1]+LL[counter1]+CC[counter1])/3) * (Period1 - (counter1-1)); CSum1 = CSum1 + Period1 - (counter1-1); } WMA1 = Sum1/CSum1; SumSqrt1 = 0; For Counter1 = 1 To Period1 { SumSqrt1 = SumSqrt1 + (((HH[counter1]+LL[counter1]+CC[counter1])/3) - WMA1) * (((HH[counter1]+LL[counter1]+CC[counter1])/3) - WMA1); } Std1 = SquareRoot(SumSqrt1 / Period1); Sum2 = 0; CSum2 = 0; For counter2 = 1 To Period2{ Sum2 = Sum2 + ((HH[counter2]+LL[counter2]+CC[counter2])/3) * (Period2 - (counter2-1)); CSum2 = CSum2 + Period2 - (counter2-1); } WMA2 = Sum2/CSum2; SumSqrt2 = 0; For Counter2 = 1 To Period2 { SumSqrt2 = SumSqrt2 + (((HH[counter2]+LL[counter2]+CC[counter2])/3) - WMA2) * (((HH[counter2]+LL[counter2]+CC[counter2])/3) - WMA2); } Std2 = SquareRoot(SumSqrt2 / Period2); Sum3 = 0; CSum3 = 0; For counter3 = 1 To Period3 { Sum3 = Sum3 + ((HH[counter3]+LL[counter3]+CC[counter3])/3) * (Period3 - (counter3-1)); CSum3 = CSum3 + Period3 - (counter3-1); } WMA3 = Sum3/ CSum3; SumSqrt3 = 0; For Counter3 = 1 To Period3 { SumSqrt3 = SumSqrt3 + (((HH[counter3]+LL[counter3]+CC[counter3])/3) - WMA3) * (((HH[counter3]+LL[counter3]+CC[counter3])/3) - WMA3); } Std3 = SquareRoot(SumSqrt3 / Period3); Sum4 = 0; CSum4 = 0; For counter4 = 1 To Period4 { Sum4 = Sum4 + ((HH[counter4]+LL[counter4]+CC[counter4])/3) * (Period4 - (counter4-1)); CSum4 = CSum4 + Period4 - (counter4-1); } WMA4 = Sum4/ CSum4; SumSqrt4 = 0; For Counter4 = 1 To Period4 { SumSqrt4 = SumSqrt4 + (((HH[counter4]+LL[counter4]+CC[counter4])/3) - WMA4) * (((HH[counter4]+LL[counter4]+CC[counter4])/3) - WMA4); } Std4 = SquareRoot(SumSqrt4 / Period4); Sum5 = 0; CSum5 = 0; For counter5 = 1 To Period5 { Sum5 = Sum5 + ((HH[counter5]+LL[counter5]+CC[counter5])/3) * (Period5 - (counter5-1)); CSum5 = CSum5 + Period5 - (counter5-1); } WMA5 = Sum5/ CSum5; SumSqrt5 = 0; For Counter5 = 1 To Period5 { SumSqrt5 = SumSqrt5 + (((HH[counter5]+LL[counter5]+CC[counter5])/3) - WMA5) * (((HH[counter5]+LL[counter5]+CC[counter5])/3) - WMA5); } Std5 = SquareRoot(SumSqrt5 / Period5); Sum6 = 0; CSum6 = 0; For counter6 = 1 To Period6 { Sum6 = Sum6 + ((HH[counter6]+LL[counter6]+CC[counter6])/3) * (Period6 - (counter6-1)); CSum6 = CSum6 + Period6 - (counter6-1); } WMA6 = Sum6/ CSum6; SumSqrt6 = 0; For Counter6 = 1 To Period6 { SumSqrt6 = SumSqrt6 + (((HH[counter6]+LL[counter6]+CC[counter6])/3) - WMA6) * (((HH[counter6]+LL[counter6]+CC[counter6])/3) - WMA6); } Std6 = SquareRoot(SumSqrt6 / Period6); var1 = wma1+(p1*STD1); var2 = wma2+(p1*STD2); var3 = wma3+(p1*STD3); var4 = wma4+(p1*STD4); var5 = wma5+(p1*STD5); var6 = wma6+(p1*STD6); var7 = (HH[0]+LL[0])/2; ##주봉 중간값 Value1 = Max((HH[1]+LL[1])/2,(HH[1]+LL[1]+CC[1])/3,(HH[2]+LL[2])/2,(HH[2]+LL[2]+CC[2])/3); Value2 = Min((HH[1]+LL[1])/2,(HH[1]+LL[1]+CC[1])/3,(HH[2]+LL[2])/2,(HH[2]+LL[2]+CC[2])/3); Value3 = (MAX(HH[1],HH[2])+Min(LL[1],LL[2])+CC[1])/3; Plot1(TCHAN1, "pc3[1]"); Plot2(TCHAN2, "pc5[1]"); Plot3(TCHAN3, "pc10[1]"); Plot4(TCHAN4, "pc20[1]"); Plot5(TCHAN5, "pc40[1]"); Plot6(TCHAN6, "pc60[1]"); Plot7(var1, "bb3[1]"); Plot8(var2, "bb5[1]"); Plot9(var3, "bb10[1]"); Plot10(var4, "bb20[1]"); Plot11(var5, "bb40[1]"); Plot12(var6, "bb60[1]"); Plot13(Value1, "1"); Plot14(Value2, "2"); Plot15(Value3, "3");