나는 작동하는 플로팅 스크립트를 가지고있다. 나는 "By"함수를 추가했으며 더 이상 작동하지 않습니다.
오류 메시지는 다음과 같습니다.
FrameBox in access or evaluation of '<FONT color="#FF6600">FrameBox</FONT>'
다음은 수정 전의 원본 작업 스크립트입니다.
CodeBlk=Expr(
colname = {"Column1", "Column2", "Column3"};
colabrv = {};
For (i=1, i<=Nitems(colname), i++, colabrv=Insert(colabrv,"Var"||Char(i)));
all_col = dtable << get column names( string );
If(!Contains(all_col, "Column_Grp"),
dtable << New Column ("Column_Grp",<BR /> Formula(If(:Tester_MD=="Tester1", "Tester1", "Other Testers")));
);
New Window("GRAPHS", Lineup Box(Ncol(2),
For( n = 1, n <= Nitems(colname), n++,
plotswp = "current data table(subdt);" ||<BR /> colabrv[n]||"_Max = col quantile( :Name( \!"" || colname[n] ||"\!" ), 0.5 )+(2*col Std Dev( :Name( \!"" || colname[n] ||"\!" ) ));"||<BR /> colabrv[n]||"_Min = col quantile( :Name( \!""||colname[n]||"\!" ), 0.5 )-<BR /> (2*col Std Dev( :Name( \!"" || colname[n] ||"\!" ) ));" ||<BR /> colabrv[n] || "_Step = Std Dev( :Name( \!""|| colname[n] || "\!" ) );" ||
"current data table(dtable);" ||<BR /> colabrv[n] ||"_Plot = Bivariate (Y( :Name( \!"" || colname[n] ||"\!" ) ), <BR /> X( :Name( \!"XColumn\!" ) ),group by (groupcol),<BR /> Fit Spline(1000));";
For( c = 1, c <= GroupListN, c++,<BR /> If(Right( GroupList[c], 3 ) == "OFF",<BR /> plotswp = plotswp || colabrv[n] ||"_Plot << (Curve[" || Char( c ) ||"]<BR /> << Line Style( Dashed ));",Right( GroupList[c], 3 ) == "ON",
plotswp = plotswp || colabrv[n] ||"_Plot << (Curve[" || Char( c ) ||"] << Line Width( 3 ));"));
plotswp2 = plotswp || colabrv[n] || "_Plot_r =" || colabrv[n]
|| "_Plot<<REPORT></REPORT> << Tick Font (style (1), size (12) << Show Major Grid (1)<BR /> << Show Minor Grid (0) << Show Minor Ticks (1);
Xaxis = " || colabrv[n] || "_Plot_r[Text Edit Box(2)]<BR /> << Set Font Size( 12 ) << Set Font Style( \!"Bold\!" ) ;
Yaxis << Max ("|| colabrv[n] || "_Max) << Min (" || colabrv[n] ||
"_Min) << Inc (" || colabrv[n] ||"_Step) <BR /> << Tick Font (style (1), size (12))
<< Show Major Grid (1) << Show Minor Grid (0)<BR /> << Show Minor Ticks (1);
Yaxis = "|| colabrv[n] ||"_Plot_r[Text Edit Box(1)] << Set Font Size( 12 )<BR /> << Set Font Style( \!"Bold\!" ) ; "
||colabrv[n]||"_Plot_Frame << {Frame Size( 240, 190 ), Marker Size( 1 ),<BR /> Line Width Scale( 3 )} ;";
plotswp2 = Eval( Parse( plotswp2 ) );
);
)
);
);다음은 수정 된 스크립트입니다. 글꼴 색을 제어 할 수는 없지만이 부분은 내가 추가 한 것입니다. " 작성자 (: ColumnGrp) "그 밖의 모든 것은 동일했습니다.
CodeBlk=Expr(
colname = {"Column1", "Column2", "Column3"};
colabrv = {};
For (i=1, i<=Nitems(colname), i++, colabrv=Insert(colabrv,"Var"||Char(i)));
all_col = dtable << get column names( string );
If(!Contains(all_col, "Column_Grp"),
dtable << New Column ("Column_Grp",<BR /> Formula(If(:Tester_MD=="Tester1", "Tester1", "Other Testers")));
);
New Window("GRAPHS", Lineup Box(Ncol(2),
For( n = 1, n <= Nitems(colname), n++,
plotswp = "current data table(subdt);" ||<BR /> colabrv[n]||"_Max = col quantile( :Name( \!"" || colname[n] ||"\!" ), 0.5 )+(2*col Std Dev( :Name( \!"" || colname[n] ||"\!" ) ));"||<BR /> colabrv[n]||"_Min = col quantile( :Name( \!""||colname[n]||"\!" ), 0.5 )-<BR /> (2*col Std Dev( :Name( \!"" || colname[n] ||"\!" ) ));" ||<BR /> colabrv[n] || "_Step = Std Dev( :Name( \!""|| colname[n] || "\!" ) );" ||
"current data table(dtable);" ||<BR /> colabrv[n] ||"_Plot = Bivariate (Y( :Name( \!"" || colname[n] ||"\!" ) ), <BR /> X( :Name( \!"XColumn\!" ) ),group by (groupcol),<BR /> <STRONG><FONT color="#FF0000"> By(:ColumnGrp)</FONT></STRONG>, Fit Spline(1000));";
For( c = 1, c <= GroupListN, c++,<BR /> If(Right( GroupList[c], 3 ) == "OFF",<BR /> plotswp = plotswp || colabrv[n] ||"_Plot << (Curve[" || Char( c ) ||"]<BR /> << Line Style( Dashed ));",Right( GroupList[c], 3 ) == "ON",
plotswp = plotswp || colabrv[n] ||"_Plot << (Curve[" || Char( c ) ||"] << Line Width( 3 ));"));
plotswp2 = plotswp || colabrv[n] || "_Plot_r =" || colabrv[n]
|| "_Plot<<REPORT></REPORT> << Tick Font (style (1), size (12) << Show Major Grid (1)<BR /> << Show Minor Grid (0) << Show Minor Ticks (1);
Xaxis = " || colabrv[n] || "_Plot_r[Text Edit Box(2)]<BR /> << Set Font Size( 12 ) << Set Font Style( \!"Bold\!" ) ;
Yaxis << Max ("|| colabrv[n] || "_Max) << Min (" || colabrv[n] ||
"_Min) << Inc (" || colabrv[n] ||"_Step) <BR /> << Tick Font (style (1), size (12))
<< Show Major Grid (1) << Show Minor Grid (0)<BR /> << Show Minor Ticks (1);
Yaxis = "|| colabrv[n] ||"_Plot_r[Text Edit Box(1)] << Set Font Size( 12 )<BR /> << Set Font Style( \!"Bold\!" ) ; "
||colabrv[n]||"_Plot_Frame << {Frame Size( 240, 190 ), Marker Size( 1 ),<BR /> Line Width Scale( 3 )} ;";
plotswp2 = Eval( Parse( plotswp2 ) );
);
)
);
);FrameBox 부분을 제거하면 스크립트가 작동합니다. 그러나 그래프를 사용자 정의하려면이 부분이 필요합니다. 나는 그것을 삭제할 수 없다.
CodeBlk=Expr(
colname = {"Column1", "Column2", "Column3"};
colabrv = {};
For (i=1, i<=Nitems(colname), i++, colabrv=Insert(colabrv,"Var"||Char(i)));
all_col = dtable << get column names( string );
If(!Contains(all_col, "Column_Grp"),
dtable << New Column ("Column_Grp",<BR /> Formula(If(:Tester_MD=="Tester1", "Tester1", "Other Testers")));
);
New Window("GRAPHS", Lineup Box(Ncol(2),
For( n = 1, n <= Nitems(colname), n++,
plotswp = "current data table(subdt);" ||<BR /> colabrv[n]||"_Max = col quantile( :Name( \!"" || colname[n] ||"\!" ), 0.5 )+(2*col Std Dev( :Name( \!"" || colname[n] ||"\!" ) ));"||<BR /> colabrv[n]||"_Min = col quantile( :Name( \!""||colname[n]||"\!" ), 0.5 )-<BR /> (2*col Std Dev( :Name( \!"" || colname[n] ||"\!" ) ));" ||<BR /> colabrv[n] || "_Step = Std Dev( :Name( \!""|| colname[n] || "\!" ) );" ||
"current data table(dtable);" ||<BR /> colabrv[n] ||"_Plot = Bivariate (Y( :Name( \!"" || colname[n] ||"\!" ) ), <BR /> X( :Name( \!"XColumn\!" ) ),group by (groupcol),<BR /> <STRONG><FONT color="#FF0000"> By(:ColumnGrp)</FONT></STRONG>, Fit Spline(1000));";
For( c = 1, c <= GroupListN, c++,<BR /> If(Right( GroupList[c], 3 ) == "OFF",<BR /> plotswp = plotswp || colabrv[n] ||"_Plot << (Curve[" || Char( c ) ||"]<BR /> << Line Style( Dashed ));",Right( GroupList[c], 3 ) == "ON",
plotswp = plotswp || colabrv[n] ||"_Plot << (Curve[" || Char( c ) ||"] << Line Width( 3 ));"));
plotswp2 = plotswp || colabrv[n] || "_Plot_r =" || colabrv[n]
|| "_Plot<<REPORT></REPORT> << Tick Font (style (1), size (12) << Show Major Grid (1)<BR /> << Show Minor Grid (0) << Show Minor Ticks (1);
Xaxis = " || colabrv[n] || "_Plot_r[Text Edit Box(2)]<BR /> << Set Font Size( 12 ) << Set Font Style( \!"Bold\!" ) ;
Yaxis << Max ("|| colabrv[n] || "_Max) << Min (" || colabrv[n] ||
"_Min) << Inc (" || colabrv[n] ||"_Step) <BR /> << Tick Font (style (1), size (12))
<< Show Major Grid (1) << Show Minor Grid (0)<BR /> << Show Minor Ticks (1);
Yaxis = "|| colabrv[n] ||"_Plot_r[Text Edit Box(1)] << Set Font Size( 12 )<BR /> << Set Font Style( \!"Bold\!" ) ; "
||colabrv[n]||"_Plot_Frame << {Frame Size( 240, 190 ), Marker Size( 1 ),<BR /> Line Width Scale( 3 )} ;";
plotswp = Eval( Parse( plotswp ) );
);
)
);
);FrameBox 인덱스가 변경되었는지 확인했지만 여전히 동일합니다.
이 디버깅하는 방법에 대한 아이디어?
감사.
