DRAWGBK(C>0, RGB(1,1,1),RGB(1,1,1),0,'0',0);
DIF:EMA(CLOSE,12) - EMA(CLOSE,26),LINETHICK0;
DEA:EMA(DIF,9),LINETHICK0;
A1:=BARSLAST(REF(CROSS(DIF,DEA),1));
B1:=REF(C,A1+1)>C AND REF(DIF,A1+1)<DIF AND CROSS(DIF,DEA);
A2:=BARSLAST(REF(CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),1));
B2:=REF(C,A2+1)>C AND REF("KDJ.K"(9,3,3),A2+1)<"KDJ.K"(9,3,3) AND CROSS
("KDJ.K"(9,3,3),"KDJ.D"(9,3,3));
A3:=BARSLAST(REF(CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1));
B3:=REF(C,A3+1)>C AND REF("RSI.RSI1"(6,12,24),A3+1)<"RSI.RSI1"(6,12,24) AND CROSS
("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24));
C1:=BARSLAST(REF(CROSS(DEA,DIF),1));
D1:=REF(C,C1+1)<C AND REF(DIF,C1+1)>DIF AND CROSS(DEA,DIF);
C2:=BARSLAST(REF(CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)),1));
D2:=REF(C,C2+1)<C AND REF("KDJ.K"(9,3,3),C2+1)>"KDJ.K"(9,3,3) AND CROSS
("KDJ.D"(9,3,3),"KDJ.K"(9,3,3));
C3:=BARSLAST(REF(CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1));
D3:=REF(C,C3+1)<C AND REF("RSI.RSI1"(6,12,24),C3+1)>"RSI.RSI1"(6,12,24) AND CROSS
("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24));
STICKLINE(B1>0,130,120,2,0),COLORRED;
DRAWTEXT((B1>0),124.5,' MACD底背離'),COLORRED;
STICKLINE(D1>0,130,120,2,0),COLORFF8000;
DRAWTEXT((D1>0),124.5,' MACD頂背離'),COLORFF8000;
STICKLINE(B2>0,0,-10,2,0),COLORFA00FA;
DRAWTEXT((B2>0),-6,' KDJ底背離'),COLORFA00FA;
STICKLINE(D2>0,0,-10,2,0),COLORGREEN;
DRAWTEXT((D2>0),-6,' KDJ頂背離'),COLORGREEN;
STICKLINE(B3>0,-20,-10,2,0),COLORYELLOW;
DRAWTEXT((B3>0),-15,' RSI底背離'),COLORYELLOW;
STICKLINE(D3>0,-20,-10,2,0),COLORCYAN;
DRAWTEXT((D3>0),-15,' RSI頂背離'),COLORCYAN;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,9,3),LINETHICK0;
D:SMA(K,9,3),LINETHICK0;
J:3*K-2*D,LINETHICK0;
{A:=CROSS(DIF,DEA) AND CROSS(K,D) AND CROSS(J,D);
STICKLINE(A,0,100,2,0),COLORYELLOW;
DRAWICON(A,92,25);DRAWICON(A,42,25);}
{DRAWTEXT(A,93,' ★MACD_KDJ金叉'),COLORYELLOW;
DRAWTEXT(A,43,' ★KDJ_MACD金叉'),COLORYELLOW;}
DIF30:=EMA(CLOSE,12/8)-EMA(CLOSE,26/8);
DEA30:=EMA(DIF30,9/4);
STICKLINE(DIF30>=DEA30,100,105,2,0),COLORRED;
STICKLINE(DIF30<DEA30,100,105,2,0),COLOR649600;
DRAWTEXT(ISLASTBAR,102,' 30M'),COLORYELLOW;
DIF60:=EMA(CLOSE,12/4)-EMA(CLOSE,26/4);
DEA60:=EMA(DIF60,9/2);
STICKLINE(DIF60>=DEA60,**,95,2,0),COLORRED;
STICKLINE(DIF60<DEA60,**,95,2,0),COLOR649600;
DRAWTEXT(ISLASTBAR,92,' 60M'),COLORYELLOW;
日DIF:="MACD.DIF#DAY";
日DEA:="MACD.DEA#DAY";
日死叉:STICKLINE(日DIF<日DEA,80,85,2,0),COLOR649600;
日金叉:STICKLINE(日DIF>日DEA,80,85,2,0),COLORRED;
DRAWTEXT(ISLASTBAR,82,' 日M'),COLORYELLOW;
周DIF:="MACD.DIF#WEEK"(12,26,9);
周DEA:="MACD.DEA#WEEK"(12,26,9);
周死叉:STICKLINE(周DIF<周DEA,70,75,2,0),COLOR649600;
周金叉:STICKLINE(周DIF>周DEA,70,75,2,0),COLORRED;
DRAWTEXT(ISLASTBAR,72,' 周M'),COLORYELLOW;
月DIF:="MACD.DIF#MONTH"(12,26,9);
月DEA:="MACD.DEA#MONTH"(12,26,9);
月死叉:STICKLINE(月DIF<月DEA,60,65,2,0),COLOR649600;
月金叉:STICKLINE(月DIF>月DEA,60,65,2,0),COLORRED;
DRAWTEXT(ISLASTBAR,62,' 月M'),COLORYELLOW;
N:=1;
月K:KDJ.K#MONTH,NODRAW,COLORWHITE,LINETHICK0;
月D:KDJ.D#MONTH,NODRAW,COLORYELLOW,LINETHICK0;
月J:KDJ.J#MONTH,NODRAW,COLORMAGENTA,LINETHICK0;
周K:KDJ.K#WEEK,NODRAW,COLORWHITE,LINETHICK0;
周D:KDJ.D#WEEK,NODRAW,COLORYELLOW,LINETHICK0;
周J:KDJ.J#WEEK,NODRAW,COLORMAGENTA,LINETHICK0;
日K:KDJ.K,NODRAW,COLORWHITE,LINETHICK0;
日D:KDJ.D,NODRAW,COLORYELLOW,LINETHICK0;
日J:KDJ.J,NODRAW,COLORMAGENTA,LINETHICK0;
{K日金叉:=CROSS(日K,日D) AND (日D<40 OR 日D>60);
K周金叉:=CROSS(周K,周D) AND (周D<40 OR 周D>60);
K月金叉:=CROSS(月K,月D) AND (月D<40 OR 月D>60);
共振KDJ:=(K周金叉 AND K日金叉) OR (K周金叉 AND K月金叉) OR (K日金叉 AND K月金叉)OR (K日金叉 AND
K周金叉 AND K月金叉);
{STICKLINE(共振KDJ,0,50,2,0),COLORYELLOW;
DRAWICON(共振KDJ,42,25);
{DRAWTEXT((K周金叉 AND K日金叉) OR (K周金叉 AND K月金叉) OR (K日金叉 AND K月金叉)OR (K日金叉 AND
K周金叉 AND K月金叉),42,' ★KDJ(日/周/月)共振'),COLORYELLOW;}
NOTEXT月K:IF(N=3,月K,DRAWNULL),COLORWHITE,LINETHICK0;
NOTEXT月D:IF(N=3,月D,DRAWNULL),COLORYELLOW,LINETHICK0;
NOTEXT月J:IF(N=3,月J,DRAWNULL),COLORMAGENTA,LINETHICK0;
NOTEXT周K:IF(N=2,周K,DRAWNULL),COLORWHITE,LINETHICK0;
NOTEXT周D:IF(N=2,周D,DRAWNULL),COLORYELLOW,LINETHICK0;
NOTEXT周J:IF(N=2,周J,DRAWNULL),COLORMAGENTA,LINETHICK0;
NOTEXT日K:IF(N=1,日K,DRAWNULL),COLORWHITE,LINETHICK0;
NOTEXT日D:IF(N=1,日D,DRAWNULL),COLORYELLOW,LINETHICK0;
NOTEXT日J:IF(N=1,日J,DRAWNULL),COLORMAGENTA,LINETHICK0;
57,COLORYELLOW,LINETHICK2;
RSV30:=(CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18));
K30:=SMA(RSV30,3,1);
D30:=SMA(K30,3,1);
STICKLINE(K30>= D30,50,55,2,0),COLORRED;
STICKLINE(K30 < D30,50,55,2,0),COLORGREEN;
DRAWTEXT(ISLASTBAR,49,' 30K'),COLORWHITE;
RSV60:=(CLOSE-LLV(LOW,36))/(HHV(HIGH,36)-LLV(LOW,36));
K60:=SMA(RSV60,3,1);
D60:=SMA(K60,3,1);
STICKLINE(K60>= D60,40,45,2,0),COLORRED;
STICKLINE(K60 < D60,40,45,2,0),COLORGREEN;
DRAWTEXT(ISLASTBAR,39,' 60K'),COLORWHITE;
STICKLINE(日K>=日D,30,35,2,0),COLORRED;
STICKLINE(日K< 日D,30,35,2,0),COLORGREEN;
DRAWTEXT(ISLASTBAR,29,' 日K'),COLORWHITE;
STICKLINE(周K>=周D,20,25,2,0),COLORRED;
STICKLINE(周K< 周D,20,25,2,0),COLORGREEN;
DRAWTEXT(ISLASTBAR,19,' 周K'),COLORWHITE;
STICKLINE(月K>=月D,10,15,2,0),COLORRED;
STICKLINE(月K< 月D,10,15,2,0),COLORGREEN;
DRAWTEXT(ISLASTBAR,9,' 月K'),COLORWHITE;
{AAAA:=( 日DIF>日DEA AND 周DIF>周DEA AND 月DIF>月DEA AND 日K>=日D AND 周K>=周D AND 月K>=月D);
DRAWICON(AAAA,95,1);
DRAWICON(AAAA,99,1);
DRAWICON(AAAA,103,1);
STICKLINE ( 日DIF>日DEA AND 周DIF>周DEA AND 月DIF>月DEA AND 日K>=日D AND 周K>=周D AND 月K>=月D ,10,85,0,0),COLORMAGENTA;
{0,LINETHICK1,DOTLINE,COLORWHITE;
50,LINETHICK1,COLORWHITE;
100,LINETHICK1,DOTLINE,COLORWHITE;}
{DRAWRECTREL(0,0,180,9**,RGB(250,0,250));
DRAWTEXT_FIX(ISLASTBAR,0.111,0.03,0,'KDJ(日/周/月)'),COLOR00FFFF;
DRAWTEXT_FIX(ISLASTBAR,0.101,0.18,0,'日K='),COLORFFFFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.140,0.18,0,日K),COLORFFFFFF;
DRAWTEXT_FIX(ISLASTBAR,0.101,0.31,0,'日D='),COLORFFFFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.140,0.31,0,日D),COLORFFFFFF;
DRAWTEXT_FIX(ISLASTBAR,0.101,0.44,0,'周K='),COLORFFFFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.140,0.44,0,周K),COLORFFFFFF;
DRAWTEXT_FIX(ISLASTBAR,0.101,0.57,0,'周D='),COLORFFFFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.140,0.57,0,周D),COLORFFFFFF;
DRAWTEXT_FIX(ISLASTBAR,0.101,0.70,0,'月K= '),COLORFFFFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.140,0.70,0, 月K),COLORFFFFFF;
DRAWTEXT_FIX(ISLASTBAR,0.101,0.83,0,'月D='),COLORFFFFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.140,0.83,0,月D),COLORFFFFFF;
DRAWRECTREL(0,0,**,9**,RGB(220,0,0));
DRAWTEXT_FIX(ISLASTBAR,0.023,0.03,0,'MACD(日/周/月)'),COLOR00FFFF;
DRAWTEXT_FIX(ISLASTBAR,0.01,0.18,0,'日DIF='),COLORFFFFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.05,0.18,0,日DIF),COLORFFFFFF;
DRAWTEXT_FIX(ISLASTBAR,0.01,0.31,0,'日DEA='),COLORFFFFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.05,0.31,0,日DEA),COLORFFFFFF;
DRAWTEXT_FIX(ISLASTBAR,0.01,0.44,0,'周DIF='),COLORFFFFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.05,0.44,0,周DIF),COLORFFFFFF;
DRAWTEXT_FIX(ISLASTBAR,0.01,0.57,0,'周DEA='),COLORFFFFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.05,0.57,0,周DEA),COLORFFFFFF;
DRAWTEXT_FIX(ISLASTBAR,0.01,0.70,0,'月DIF= '),COLORFFFFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.05,0.70,0, 月DIF),COLORFFFFFF;
DRAWTEXT_FIX(ISLASTBAR,0.01,0.83,0,'月DEA='),COLORFFFFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.05,0.83,0,月DEA),COLORFFFFFF;};
原理解析：
填充背景
輸出DIF:收盤價的12日指數(shù)移動平均 - 收盤價的26日指數(shù)移動平均,線寬為0
輸出DEA:DIF的9日指數(shù)移動平均,線寬為0
A1賦值:上次1日前的DIF上穿DEA距今天數(shù)
B1賦值:A1+1日前的收盤價>收盤價 AND A1+1日前的DIF<DIF AND DIF上穿DEA
A2賦值:上次1日前的"KDJ的K"(9,3,3)上穿"KDJ的D"(9,3,3)距今天數(shù)
B2賦值:A2+1日前的收盤價>收盤價 AND A2+1日前的"KDJ的K"(9,3,3)<"KDJ的K"(9,3,3) AND "KDJ的K"(9,3,3)上穿"KDJ的D"(9,3,3)
A3賦值:上次1日前的"RSI的RSI1"(6,12,24)上穿"RSI的RSI2"(6,12,24)距今天數(shù)
B3賦值:A3+1日前的收盤價>收盤價 AND A3+1日前的"RSI的RSI1"(6,12,24)<"RSI的RSI1"(6,12,24) AND "RSI的RSI1"(6,12,24)上穿"RSI的RSI2"(6,12,24)
C1賦值:上次1日前的DEA上穿DIF距今天數(shù)
D1賦值:C1+1日前的收盤價<收盤價 AND C1+1日前的DIF>DIF AND DEA上穿DIF
C2賦值:上次1日前的"KDJ的D"(9,3,3)上穿"KDJ的K"(9,3,3)距今天數(shù)
D2賦值:C2+1日前的收盤價<收盤價 AND C2+1日前的"KDJ的K"(9,3,3)>"KDJ的K"(9,3,3) AND "KDJ的D"(9,3,3)上穿"KDJ的K"(9,3,3)
C3賦值:上次1日前的"RSI的RSI2"(6,12,24)上穿"RSI的RSI1"(6,12,24)距今天數(shù)
D3賦值:C3+1日前的收盤價<收盤價 AND C3+1日前的"RSI的RSI1"(6,12,24)>"RSI的RSI1"(6,12,24) AND "RSI的RSI2"(6,12,24)上穿"RSI的RSI1"(6,12,24)
當滿足條件B1>0時,在130和120位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫紅色
當滿足條件(B1>0)時,在124.5位置書寫文字,畫紅色
當滿足條件D1>0時,在130和120位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLORFF8000
當滿足條件(D1>0)時,在124.5位置書寫文字,COLORFF8000
當滿足條件B2>0時,在0和-10位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLORFA00FA
當滿足條件(B2>0)時,在-6位置書寫文字,COLORFA00FA
當滿足條件D2>0時,在0和-10位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫綠色
當滿足條件(D2>0)時,在-6位置書寫文字,畫綠色
當滿足條件B3>0時,在-20和-10位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫黃色
當滿足條件(B3>0)時,在-15位置書寫文字,畫黃色
當滿足條件D3>0時,在-20和-10位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫青色
當滿足條件(D3>0)時,在-15位置書寫文字,畫青色
RSV賦值:(收盤價-9日內(nèi)最低價的最低值)/(9日內(nèi)最高價的最高值-9日內(nèi)最低價的最低值)*100
輸出K:RSV的9日[3日權重]移動平均,線寬為0
輸出D:K的9日[3日權重]移動平均,線寬為0
輸出J:3*K-2*D,線寬為0
DIF30賦值:收盤價的12/8日指數(shù)移動平均-收盤價的26/8日指數(shù)移動平均
DEA30賦值:DIF30的9/4日指數(shù)移動平均
當滿足條件DIF30>=DEA30時,在100和105位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫紅色
當滿足條件DIF30<DEA30時,在100和105位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR649600
當滿足條件是否最后一個周期時,在102位置書寫文字,畫黃色
DIF60賦值:收盤價的12/4日指數(shù)移動平均-收盤價的26/4日指數(shù)移動平均
DEA60賦值:DIF60的9/2日指數(shù)移動平均
當滿足條件DIF60>=DEA60時,在**和95位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫紅色
當滿足條件DIF60<DEA60時,在**和95位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR649600
當滿足條件是否最后一個周期時,在92位置書寫文字,畫黃色
日DIF賦值:"平滑異同平均線的DIF[取日線數(shù)據(jù)]"
日DEA賦值:"平滑異同平均線的DEA[取日線數(shù)據(jù)]"
輸出日死叉:當滿足條件日DIF<日DEA時,在80和85位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR649600
輸出日金叉:當滿足條件日DIF>日DEA時,在80和85位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫紅色
當滿足條件是否最后一個周期時,在82位置書寫文字,畫黃色
周DIF賦值:"平滑異同平均線的DIF[取周線數(shù)據(jù)]"(12,26,9)
周DEA賦值:"平滑異同平均線的DEA[取周線數(shù)據(jù)]"(12,26,9)
輸出周死叉:當滿足條件周DIF<周DEA時,在70和75位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR649600
輸出周金叉:當滿足條件周DIF>周DEA時,在70和75位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫紅色
當滿足條件是否最后一個周期時,在72位置書寫文字,畫黃色
月DIF賦值:"平滑異同平均線的DIF[取月線數(shù)據(jù)]"(12,26,9)
月DEA賦值:"平滑異同平均線的DEA[取月線數(shù)據(jù)]"(12,26,9)
輸出月死叉:當滿足條件月DIF<月DEA時,在60和65位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR649600
輸出月金叉:當滿足條件月DIF>月DEA時,在60和65位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫紅色
當滿足條件是否最后一個周期時,在62位置書寫文字,畫黃色
N賦值:1
輸出月K:KDJ的K[取月線數(shù)據(jù)],NODRAW,畫白色,線寬為0
輸出月D:KDJ的D[取月線數(shù)據(jù)],NODRAW,畫黃色,線寬為0
輸出月J:KDJ的J[取月線數(shù)據(jù)],NODRAW,畫洋紅色,線寬為0
輸出周K:KDJ的K[取周線數(shù)據(jù)],NODRAW,畫白色,線寬為0
輸出周D:KDJ的D[取周線數(shù)據(jù)],NODRAW,畫黃色,線寬為0
輸出周J:KDJ的J[取周線數(shù)據(jù)],NODRAW,畫洋紅色,線寬為0
輸出日K:KDJ的K,NODRAW,畫白色,線寬為0
輸出日D:KDJ的D,NODRAW,畫黃色,線寬為0
輸出日J:KDJ的J,NODRAW,畫洋紅色,線寬為0
輸出NOTEXT月K:如果N=3,返回月K,否則返回無效數(shù),畫白色,線寬為0
輸出NOTEXT月D:如果N=3,返回月D,否則返回無效數(shù),畫黃色,線寬為0
輸出NOTEXT月J:如果N=3,返回月J,否則返回無效數(shù),畫洋紅色,線寬為0
輸出NOTEXT周K:如果N=2,返回周K,否則返回無效數(shù),畫白色,線寬為0
輸出NOTEXT周D:如果N=2,返回周D,否則返回無效數(shù),畫黃色,線寬為0
輸出NOTEXT周J:如果N=2,返回周J,否則返回無效數(shù),畫洋紅色,線寬為0
輸出NOTEXT日K:如果N=1,返回日K,否則返回無效數(shù),畫白色,線寬為0
輸出NOTEXT日D:如果N=1,返回日D,否則返回無效數(shù),畫黃色,線寬為0
輸出NOTEXT日J:如果N=1,返回日J,否則返回無效數(shù),畫洋紅色,線寬為0
57,畫黃色,線寬為2
RSV30賦值:(收盤價-18日內(nèi)最低價的最低值)/(18日內(nèi)最高價的最高值-18日內(nèi)最低價的最低值)
K30賦值:RSV30的3日[1日權重]移動平均
D30賦值:K30的3日[1日權重]移動平均
當滿足條件K30>=D30時,在50和55位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫紅色
當滿足條件K30<D30時,在50和55位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫綠色
當滿足條件是否最后一個周期時,在49位置書寫文字,畫白色
RSV60賦值:(收盤價-36日內(nèi)最低價的最低值)/(36日內(nèi)最高價的最高值-36日內(nèi)最低價的最低值)
K60賦值:RSV60的3日[1日權重]移動平均
D60賦值:K60的3日[1日權重]移動平均
當滿足條件K60>=D60時,在40和45位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫紅色
當滿足條件K60<D60時,在40和45位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫綠色
當滿足條件是否最后一個周期時,在39位置書寫文字,畫白色
當滿足條件日K>=日D時,在30和35位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫紅色
當滿足條件日K<日D時,在30和35位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫綠色
當滿足條件是否最后一個周期時,在29位置書寫文字,畫白色
當滿足條件周K>=周D時,在20和25位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫紅色
當滿足條件周K<周D時,在20和25位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫綠色
當滿足條件是否最后一個周期時,在19位置書寫文字,畫白色
當滿足條件月K>=月D時,在10和15位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫紅色
當滿足條件月K<月D時,在10和15位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫綠色
當滿足條件是否最后一個周期時,在9位置書寫文字,畫白色
如有需要
，請加QQ：88652583 或微信： 88652583
