#COMMAND:ʽ棺ⷽ

<ԷַԷ̵ȫʵ(ʽ)
const:BUTTON=1,RADIOBUTTON=2,CHECKBOX=3,GROUPBOX=4,EDIT=5,STATIC=6;
"char"()=strex
{"DoStr",
 "
 settalk[-1];
 \"F\"(x)=(*ʽ*);
 NewDoubleArrayS[1];
 NewDoubleArray[0,(*ܵʵ*)];
 clearFcFunWin[];
 (:n,i)=one
 {n=HalfSolve[#\"F\",(*˵*),(*Ҷ˵*),(**),(**),0,(*ܵʵ*)],
  if[eq(n,(*ܵʵ*)),
     MessageBox(\"ûȫʵ\",\"ԷַԷ̵ȫʵ\")],
  str(\"ʵ\"), gcvt[n,5,\"nstr\"], str[&\"nstr\"], endl[],
  str[\"ʵ\"],
  i=0,
  for{lt(i,n),
      gcvt[getda(0,i),16,&\"nstr\"],
      str[&\"nstr\"],str[\"  \"],
      i=i+1
     }
 };
 "
};

FcFunWin{"ԷַԷ̵ȫʵ",0,0,465,310,
	STATIC,"һԪ F(x)=",10,10,100,20,
	EDIT,"ʽ",-1,120,10,310,20,"x^2-3*x+1",

	STATIC,"˵㣺",10,40,130,20,
	EDIT,"˵",-1,140,40,50,20,"-10",
	STATIC,"Ҷ˵㣺",250,40,130,20,
	EDIT,"Ҷ˵",-1,380,40,50,20,"10",
	STATIC,"",10,70,80,20,
	EDIT,"",-1,140,70,50,20,"0.01",
	STATIC,"ƾȣ",250,70,80,20,
	EDIT,"",-1,380,70,50,20,"1e-6",
	STATIC,"ܵʵ",10,100,130,20,
	EDIT,"ܵʵ",-1,140,100,50,20,"5",

	BUTTON,"ⷽ",370,130,60,25,@"DoStr","",
	STATIC,"",10,130,100,20,
	EDIT,"",1,10,160,420,100,""
	}
>
<ӦһݶŲֵ(ʽ)
const:BUTTON=1,RADIOBUTTON=2,CHECKBOX=3,GROUPBOX=4,EDIT=5,STATIC=6;
"char"()=strex
{"DoStr",
 "
 settalk[-1];
 clearFcFunWin[];
 \"F\"(*ʽ*);
 if[ne(GetForParaNum[#\"F\"],CountPara[(*ֵ*)]),
     MessageBox(\"ֵҪĿ꺯Աȣ\",\"ӦһݶŲֵ\"),stop()];
 NewDoubleArrayS[1];
 NewDoubleArray[0,GetForParaNum[#\"F\"]*3,(*ֵ*)];
 (:n,i)=one
 {n=GradSolve[#\"F\",0,(**),(*ֵ*),(*ϵ*),(**),(*ģʽ*),(**)],
  if[eq(n,(**)),
     MessageBox(\"ѾﵽֵȻû㾫Ҫ\",\"ӦһݶŲֵ\")],
  str(\"\"), gcvt[n,10,\"nstr\"], str[&\"nstr\"], endl[],
  str(\"Ŀ꺯ֵ\"), gcvt[getda(0,GetForParaNum[#\"F\"]),16,&\"nstr\"], str[&\"nstr\"], endl[],
  str[\"Ųֵ\"],
  i=0,
  for{lt(i,GetForParaNum[#\"F\"]),
      gcvt[getda(0,i),16,&\"nstr\"],
      str[&\"nstr\"],str[\"  \"],
      i=i+1
     },
  endl[]
 };
 "
};

FcFunWin{"ӦһݶŲֵ",0,0,500,500,
	STATIC,"Ŀ꺯",10,10,80,20,
	EDIT,"ʽ",1,90,10,375,100,"(x0,x1,x2)=[x0-5*x1*x1+7*x2*x2+12]^2
  +[3*x0*x1+x0*x2-11*x0]^2
  +[2*x1*x2+40*x0]^2",

	STATIC,"ֵ",10,120,80,20,
	EDIT,"ֵ",-1,90,120,375,20,"1.5,6.5,-5",
	STATIC,"΢С",10,150,150,20,
	EDIT,"",-1,160,150,50,20,"1E-6",
	STATIC,"",250,150,120,20,
	EDIT,"",-1,370,150,50,20,"5000",

	STATIC,"ֵ",10,180,120,20,
	EDIT,"ֵ",-1,160,180,50,20,"0.1",
	STATIC,"ϵ",250,180,120,20,
	EDIT,"ϵ",-1,370,180,50,20,"0.5",

	GROUPBOX,"ѡ",3,210,260,65,
	RADIOBUTTON,"ʹԾ",10,230,120,20,"ģʽ","1",
	RADIOBUTTON,"ʹþԾ",140,230,120,20,"ģʽ","-1",
	STATIC,"ֵ",10,250,80,20,
	EDIT,"",-1,90,250,50,20,"1E-6",

	BUTTON,"ʼ",370,290,80,25,@"DoStr","",
	STATIC,"",10,290,100,20,
	EDIT,"",1,10,320,455,100,"",
	STATIC,"ʹ˵
    ó̵ⷽŲֵֵľֲСֵͬʱڽԷ顣
    òͬĳʼֵʱýһͬԭĿ꺯ǵĺǶĺòͬĳʼֵԵõֲŽ⣬һŽ⡣ΪˣԲöʼֵĿ꺯ֵСΪš
    Ŀ꺯Уÿ̾x1,x2,... ...,xnΪԱ
      (x1,x2,... ...,xn)=[1]^2+[2]^2+ ... ... +[n]^2 
    ʹʽܱ֤õĽ",10,430,455,190
	}
>