/*欢迎使用
同花顺公式系统*/
/*按“CTRL+S”启动AI，可输入需求描述生成相应代码*/
NEW1:=IF(ISNULL(NEW[1]) OR
FORM AT
TIME (1)<2,PRE,NEW[1]);
最新:IF(ISNULL(NEW),NEW1,NEW);
IF (ISNULL(
RANG E_AVG_P
RICE ) OR RANGE_AVG_PRICE <= 0)
{
IF((
MARK ET
TYPE ==16 OR MARKETTYPE==32)AND CODETYPE==0)
{
领先:(
INDE X
LEAD /10000 + 1)*PRE;
}
ELSE IF (MARKETTYPE == 232 OR MARKETTYPE == 56 OR MARKETTYPE==64 OR MARKETTYPE==128 OR MARKETTYPE == 80 OR MARKETTYPE==88 OR (VOL > 1 AND VOL<100))
{
b=
SUBS AMED AY(&VOL) ;
m=SUM(b*最新,0);
均价:IF(m>0,m/VOL,PRE);
}
ELSE IF(CODETYPE!=0 AND M
ONEY >0 AND MARKETTYPE != 48 AND MARKETTYPE != 104)
{
IF(ISNULL(MONEY) OR ISNULL(VOL) OR VOL==0 OR MONEY==0)
均价:IF(ISNULL(均价[1]),PRE,均价[1]);
ELSE IF(VOL==VOL[1] OR MONEY==MONEY[1])
均价:均价[1];
ELSE
均价:MONEY/VOL;
}
ELSE IF (MARKETTYPE == 176)
{
b=SUBSAMEDAY(&MONEY);
m=SUM(b*最新,0);
IF(m>0)
均价:m/MONEY;
}
}
ELSE
{
均价:=RANGE_AVG_PRICE;
}
DRAWGBK(MARKETTYPE==32 AND FORMATTIME(1)<10 AND TRADETIME>242,RGB(0,0,128));
// ========== 地域 + 行业 ==========
DRAWTEXT_FIX(1,0.02,0.82,0,BLOCK(2,0)),COLOR99CC32;
DRAWTEXT_FIX(1,0.28,0.82,0,BLOCK(0,0)),colorgreen;
// ========== 【严格按你的逻辑：55/54 二选一，极简无冗余】 ==========
CON
CEPT _STR:=BLOCK(3,0);
MAX_LEN:=55;
TEMP _STR:=
STRL EFT(CONCEPT_STR,MAX_LEN);
// 1. 统计 55 位里的空格数（最多 10 次 STRFIND，覆盖所有概念场景）
SPACE_CNT:=0;
S1:=STRFIND(TEMP_STR,‘ ‘,1); IF(S1>0) SPACE_CNT:=SPACE_CNT+1;
S2:=IF(S1>0,STRFIND(TEMP_STR,‘ ‘,S1+1),0); IF(S2>0) SPACE_CNT:=SPACE_CNT+1;
S3:=IF(S2>0,STRFIND(TEMP_STR,‘ ‘,S2+1),0); IF(S3>0) SPACE_CNT:=SPACE_CNT+1;
S4:=IF(S3>0,STRFIND(TEMP_STR,‘ ‘,S3+1),0); IF(S4>0) SPACE_CNT:=SPACE_CNT+1;
S5:=IF(S4>0,STRFIND(TEMP_STR,‘ ‘,S4+1),0); IF(S5>0) SPACE_CNT:=SPACE_CNT+1;
S6:=IF(S5>0,STRFIND(TEMP_STR,‘ ‘,S5+1),0); IF(S6>0) SPACE_CNT:=SPACE_CNT+1;
S7:=IF(S6>0,STRFIND(TEMP_STR,‘ ‘,S6+1),0); IF(S7>0) SPACE_CNT:=SPACE_CNT+1;
S8:=IF(S7>0,STRFIND(TEMP_STR,‘ ‘,S7+1),0); IF(S8>0) SPACE_CNT:=SPACE_CNT+1;
S9:=IF(S8>0,STRFIND(TEMP_STR,‘ ‘,S8+1),0); IF(S9>0) SPACE_CNT:=SPACE_CNT+1;
S10:=IF(S9>0,STRFIND(TEMP_STR,‘ ‘,S9+1),0); IF(S10>0) SPACE_CNT:=SPACE_CNT+1;
// 2. 你的核心逻辑：纯汉字数 = 55 - 空格数 → 偶数用55，奇数用54
CHR_CNT:=MAX_LEN - SPACE_CNT;
SAFE _LEN:=IF(MOD(CHR_CNT,2)=0, MAX_LEN, MAX_LEN-1);
// 3. 第二行：安全截取（汉字完整，无乱码）
LINE 2_CON:=STRLEFT(CONCEPT_STR,SAFE_LEN);
// 4. 第三行：从 SAFE_LEN+1 开始，自动跳过开头空格（绝不丢字）
REST_STR:=
STRM ID(CONCEPT_STR, SAFE_LEN+1, 999);
LINE3_CON:=IF(STRMID(REST_STR,1,1)=‘ ‘, STRMID(REST_STR,2,999), REST_STR);
// 显示
DRAWTEXT_FIX(1,0.02,0.88,0,LINE2_CON),colormagenta;
DRAWTEXT_FIX(1,0.02,0.94,0,LINE3_CON),colormagenta;
RE
TURN ;
hx_star;
hx_star_p;
phenixkk
0
评论(3)
收藏
展开
