Function:Desired series:use DocumentTools in
# Enter Maple commands to be executed when the specified
# action is carried out on the component.
# Use:
# Do( %component_name );
# and
# Do( %component_name = value );
# to set and get properties of the component.
# You can also use arbitrary expressions
# involving components, e.g.:
# Do( %target = %input1 + 2*%input2 );
# Note the %-prefix to each component name.
# See ?CustomizingComponents for more information.
end use;
Around:Order:use DocumentTools in
# Enter Maple commands to be executed when the specified
# action is carried out on the component.
# Use:
# Do( %component_name );
# and
# Do( %component_name = value );
# to set and get properties of the component.
# You can also use arbitrary expressions
# involving components, e.g.:
# Do( %target = %input1 + 2*%input2 );
# Note the %-prefix to each component name.
# See ?CustomizingComponents for more information.
end use;
Order:use DocumentTools in
# Enter Maple commands to be executed when the specified
# action is carried out on the component.
# Use:
# Do( %component_name );
# and
# Do( %component_name = value );
# to set and get properties of the component.
# You can also use arbitrary expressions
# involving components, e.g.:
# Do( %target = %input1 + 2*%input2 );
# Note the %-prefix to each component name.
# See ?CustomizingComponents for more information.
end use;
Order:use DocumentTools in
# Enter Maple commands to be executed when the specified
# action is carried out on the component.
# Use:
# Do( %component_name );
# and
# Do( %component_name = value );
# to set and get properties of the component.
# You can also use arbitrary expressions
# involving components, e.g.:
# Do( %target = %input1 + 2*%input2 );
# Note the %-prefix to each component name.
# See ?CustomizingComponents for more information.
end use;
Interval:From:To: Order:use DocumentTools in
# Enter Maple commands to be executed when the specified
# action is carried out on the component.
# Use:
# Do( %component_name );
# and
# Do( %component_name = value );
# to set and get properties of the component.
# You can also use arbitrary expressions
# involving components, e.g.:
# Do( %target = %input1 + 2*%input2 );
# Note the %-prefix to each component name.
# See ?CustomizingComponents for more information.
RadioButton0:=Do(%RadioButton0);
RadioButton1:=Do(%RadioButton1);
RadioButton2:=Do(%RadioButton2);
RadioButton3:=Do(%RadioButton3);
CheckBox0:=Do(%CheckBox0);
func:=Do(%MathContainer0);
if CheckBox0 then
xr:=Do(%Slider0);
Do(%Slider1=%Slider0);
else
xr:=Do(%Slider0);
yr:=Do(%Slider1);
end if;
if RadioButton0 then
t:=Do(%MathContainer2)+1;
MathContainer1:=Do(%MathContainer1);
t_func:=taylor(func,x=MathContainer1,t);
Do(%MathContainer8=t_func);
t_func_plot:=convert(t_func,polynom);
if CheckBox0 then
f_pl:=plot(func,x=MathContainer1-xr..MathContainer1+xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red,scaling=constrained);
s_pl:=plot(t_func_plot,x=MathContainer1-xr..MathContainer1+xr,y=-xr..xr,legend="Series",numpoints=250,color=green,scaling=constrained);
Do(%Plot0=display({f_pl,s_pl}));
else
f_pl:=plot(func,x=MathContainer1-xr..MathContainer1+xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red);
s_pl:=plot(t_func_plot,x=MathContainer1-xr..MathContainer1+xr,y=-yr..yr,legend="Series",numpoints=250,color=green);
Do(%Plot0=display({f_pl,s_pl}));
end if;
end if;
if RadioButton1 then
f0:=Do(%MathContainer3);
a := proc (n) options operator, arrow; (int(func*cos(n*x), x = -Pi .. Pi))/Pi end proc;
b := proc (n) options operator, arrow; (int(func*sin(n*x), x = -Pi .. Pi))/Pi end proc;
f1_func:=(1/2)*a(0)+add(a(n)*cos(n*x)+b(n)*sin(n*x), n = 1 .. f0);
Do(%MathContainer8=f1_func);
if CheckBox0 then
f_pl:=plot(func,x=-xr..+xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red,scaling=constrained);
s_pl:=plot(f1_func,x=-xr..xr,y=-xr..xr,legend="Series",numpoints=250,color=green,scaling=constrained);
Do(%Plot0=display({f_pl,s_pl}));
else
f_pl:=plot(func,x=-xr..xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red);
s_pl:=plot(f1_func,x=-xr..xr,y=-yr..yr,legend="Series",numpoints=250,color=green);
Do(%Plot0=display({f_pl,s_pl}));
end if;
end if;
if RadioButton2 then
f0 := Do(%MathContainer4);
c := proc (n) options operator, arrow; simplify((1/2)*(int(func*exp(-I*n*x), x = -Pi .. Pi))/Pi, size) end proc;
f2_func := add(c(n)*exp(I*n*x), n = -f0 .. f0);
Do(%MathContainer8=f2_func);
f2_func_plot := simplify(f2_func,assume = real);
if CheckBox0 then
f_pl:=plot(func,x=-xr..+xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red,scaling=constrained);
s_pl:=plot(f2_func_plot,x=-xr..xr,y=-xr..xr,legend="Series",numpoints=250,color=green,scaling=constrained);
Do(%Plot0=display({f_pl,s_pl}));
else
f_pl:=plot(func,x=-xr..xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red);
s_pl:=plot(f2_func_plot,x=-xr..xr,y=-yr..yr,legend="Series",numpoints=250,color=green);
Do(%Plot0=display({f_pl,s_pl}));
end if;
end if;
if RadioButton3 then
f0 :=Do(%MathContainer7);
MathContainer5 :=Do(%MathContainer5);
MathContainer6 := Do(%MathContainer6);
Range := MathContainer6-MathContainer5;
c := proc (n) options operator, arrow; simplify((int(func*exp(-(2*I)*Pi*n*x/Range), x = MathContainer5 .. MathContainer6))/Range, size) end proc;
f3_func := add(c(n)*exp((I*2)*Pi*n*x/Range), n = -f0 .. f0);
Do(%MathContainer8=f3_func);
f3_func_plot := simplify(f3_func,assume = real);
Center:=MathContainer5+0.5*Range;
if CheckBox0 then
f_pl:=plot(func,x=Center-xr..Center+xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red,scaling=constrained);
s_pl:=plot(f3_func_plot,x=Center-xr..Center+xr,y=-xr..xr,legend="Series",numpoints=250,color=green,scaling=constrained);
Do(%Plot0=display({f_pl,s_pl}));
else
f_pl:=plot(func,x=Center-xr..Center+xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red);
s_pl:=plot(f3_func_plot,x=Center-xr..Center+xr,y=-yr..yr,legend="Series",numpoints=250,color=green);
Do(%Plot0=display({f_pl,s_pl}));
end if;
end if;
end use;
Plot:LSUlUExPVEc2KS0lJ0NVUlZFU0c2JTdmejckJCEkcSIhIiIkITJsbW1tbWhyPCMhIzc3JCQhMSp6XENuOGRvIiEjOSQhMkVwUUo6TVIzIyEjNzckJCExW3BCOktHdDshIzkkITAiNDVbQ1QwPyEjNTckJCEyMjtTZydRSWY7ISM6JCEyJ3B4I29KQCo+PiEjNzckJCEyLmRVRSY9Qlg7ISM6JCEyLUhbdGkqek89ISM3NyQkITF0I281c0U3aiIhIzkkITIkKT5DKG9KI3B2IiEjNzckJCExcHNKckBDPTshIzkkITFUYnAib1ZgbyIhIzY3JCQhMiV5WDlBdXovOyEjOiQhMjshbzVsX244OyEjNzckJCExcHNKVkcqM2YiISM5JCExNERDeic0QGEiISM2NyQkITJDZ11tJkcueDohIzokITIxJDQ1PDZIdDkhIzc3JCQhMC1ibjp3RmMiISM4JCEyJ2YiWz9KYl1TIiEjNzckJCEydyFwc1opPS1iIiEjOiQhMWljRXI5L1o4ISM2NyQkITJyIT0mPkgjM086ISM6JCEyO0EtQTg1U0ciISM3NyQkITI+Wz8scCgpPV8iISM6JCExKik+eSpbJDNCNyEjNjckJCEyNENnNWMzIzM6ISM6JCExbWpuJ1JbbDsiISM2NyQkITIkZSYqUSxteSZcIiEjOiQhMmokel1iQyw8NiEjNzckJCEyUVhqKSpvOjVbIiEjOiQhMnpaWERKI0dnNSEjNzckJCEyKCk9KEghei0mbzkhIzokITJpKVtfOTwtOTUhIzc3JCQhMm9vQE1KWlJYIiEjOiQhMXQoXDsiZUNBJyohIzc3JCQhMlxBYytEajVXIiEjOiQhMVFJbklkTCI9KiEjNzckJCEyMDdJMFJGcFUiISM6JCExMHZVU1AuOygpISM3NyQkITJvb0AlNG5ZODkhIzokITE0JlxSKmZRIUgpISM3NyQkITJIQC4zIT5VKlIiISM6JCExR0syVHomUSd5ISM3NyQkITJvcXdAUUNsUSIhIzokITFrXXYneU92WyghIzc3JCQhMl54VmZtN0VQIiEjOiQhMWIvKkgmcGkoNCghIzc3JCQhMndQJWYtQjtlOCEjOiQhMWhiSSpmdic0biEjNzckJCExeCM+KT1LZVg4ISM5JCEyOmhFaydRbyZRJyEjODckJCEyeCFwc2p1Kj5MIiEjOiQhMXhCdzxSblxnISM3NyQkITJ3UlwkXD8nekoiISM6JCEwMDIiKSlHRDxkISM2NyQkITInNENnTTZCLzghIzokITEuKio+XlYwMWEhIzc3JCQhMnBAYSZvZCU0SCIhIzokITE5V10hPkV4NiYhIzc3JCQhMkNnXVlqJT53NyEjOiQhMVhreGlfIz0iWyEjNzckJCEyLC1iWjNTSEUiISM6JCExVGZuL09LXFghIzc3JCQhMnlYOU8tKXlbNyEjOiQhMlhDS2QpPWAiRyUhIzg3JCQhMVg3Ikc6a2ZCIiEjOSQhMS02QV5va1xTISM3NyQkITIxPSZ6dVUlPkEiISM6JCExMXU7XVlZMlEhIzc3JCQhMm9xd0BtXygzNyEjOiQhMSdHJ1FoI1IrZiQhIzc3JCQhK0VPJ1w+IiEiKSQhMiQ+W1RnakF0TCEjODckJCEyUCM0dEFCWyI9IiEjOiQhMW5ZMFhZQnJKISM3NyQkITI6TyFmWidvdDsiISM6JCEybWtMNFBwKnBIISM4NyQkITImPip6NF12UDoiISM6JCEybWxwZFtTY3kjISM4NyQkITJqMnBfYXUpUjYhIzokITEmPVFcMlNrZyMhIzc3JCQhMilmKipbJ3ApM0U2ISM6JCExWV5VZE5uUEMhIzc3JCQhMiM+Wz9MNFU4NiEjOiQhMUYpRztebixIIyEjNzckJCEyWXBCcEMtKik0IiEjOiQhMWwlcGhEJ3BIQCEjNzckJCEyOk1OM2M7ZjMiISM6JCEyI3A1dSNbXk8qPiEjODckJCEyIls/LDY2MnM1ISM6JCEyXnQ5aGoiM2M9ISM4NyQkITJqYyIqKVsjPillNSEjOiQhMjYjSHkkem44dCIhIzg3JCQhMXQjbyFmWjVXNSEjOSQhMigpMzQ1QlYwZyIhIzg3JCQhMiMqR3M/NGo4LiIhIzokITJ3UTZdLjNOXCIhIzg3JCQhMWRVMSc9LHAsIiEjOSQhMmE2bHVJZih5OCEjODckJCEyPCpHc0cycy41ISM6JCEwIzNAIkhsLEciISM2NyQkITFEOCR5ekxJKikqISM6JCEyKEc3NmsheSZ5NiEjODckJCExQmUmKmVram8oKiEjOiQhMiNwO29vUydmNCIhIzg3JCQhMFQtMVRpcGkqISM5JCExRVhTa3RKMjUhIzc3JCQhMURpMHVBNiFcKiEjOiQhMWlBUz9GYnAjKiEjODckJCExdk5SUTpOYCQqISM6JCExIz40N0FUZV4pISM4NyQkITE3SyEzI1I0PCMqISM6JCExUmtELE56NnkhIzg3JCQhMVAjNHQrJD4nMyohIzokITEtLjR1OF94ciEjODckJCEwcHNKbCZvVyopISM5JCExKkcpR15JNk9sISM4NyQkITEmUSc0JSkpPSk0KSkhIzokITEmeSd5KnkjZmxmISM4NyQkITEmR0AuJ3ooeW0pISM6JCExZClbSkVRZ1MmISM4NyQkITFrZyxXc1FSJikhIzokITJjVFYpcFMjUiRcISM5NyQkITAtYihbNFEoUikhIzkkITJFKSl5aWAlSFtXISM5NyQkITElXHRMbWo4RSkhIzokITF0SjJ3WCVwLCUhIzg3JCQhMSZbcnlXeGM3KSEjOiQhMUVtPyR5ISl5aCQhIzg3JCQhMT0meilwRSZSKXohIzokITJ2N0o+JVtnS0shIzk3JCQhMTM/XXYqPU0meSEjOiQhMXckUTFkW1ohSCEjODckJCExYSgpPTxZdD54ISM6JCExJTRia0xmVmYjISM4NyQkITFjUSc0P0pAZCghIzokITJsYCNSNHIiKXpBISM5NyQkITEwNXYoUilbUXUhIzokITJPVCJ6WFIwPj8hIzk3JCQhMD0meilmOD1JKCEjOSQhMnIzQmh5JWZ1PCEjOTckJCEwLWIoWyk9RzsoISM5JCEyJ3leVD1ObVo6ISM5NyQkITF2UCVmaWJdLighIzokITFwSVlkdT5kOCEjODckJCExVTNyblQnKSkqbyEjOiQhMnRLJkg4KT1APCIhIzk3JCQhMVYzcjIlNFB3JyEjOiQhMkJOb2tZR2MrIiEjOTckJCExNEdxRGU4Pm0hIzokITFeKXpTKyVHXyUpISM5NyQkITAnKipbLWZiIlwnISM5JCExLVphbHRqeXIhIzk3JCQhMTM/XWJeTldqISM6JCExIypmX0NjdGllISM5NyQkITFpLC9JeV42aSEjOiQhMmFQSyZbIz5tIVshIzo3JCQhMXknPipSQTMhMychIzokITFGaVFkNlN2USEjOTckJCExa2VZY251UWYhIzokITFtJCkpWy8iKTQqSCEjOTckJCExKlFaPWFSb3omISM6JCEyT1o/LD9MYUAjISM6NyQkITE6TU4pKVxzbmMhIzokITJ1dCNvZCcpKSkqZiIhIzo3JCQhMWo2em41aEliISM6JCEyJHApR2FGPkQuIiEjOjckJCExJyoqW0FHLG9SJiEjOiQhMWFQNDtIWnViISM6NyQkITEzQTBqK3ZeXyEjOiQhMiZmQydbWWVRQSIhIzs3JCQhMT0meilIL0NFXiEjOiQiMSlvJ1IqNEwrJD4hIzo3JCQhMTdJRGAhKTMjKVwhIzokIjEkKipSZShlVD9cISM6NyQkITJOYCQpM0N4bCVbISM7JCIxMS1VISoqNGM8KCEjOjckJCExQTI9OmBQN1ohIzokIjEmSDlXXExNJCopISM6NyQkITF1TCUzam0heVghIzokIjFuRElXVyVwLSIhIzk3JCQhMCR5WHUtM1RXISM5JCIyJmZLJ0hZOFg3IiEjOjckJCExbGljSnEoZUglISM6JCIyR29QRCQ0WyE+IiEjOjckJCExMGxpdylSRjslISM6JCIyWktKPioqeTlBIiEjOjckJCExMWoyNGtKSlMhIzokIjInW2UqKilbIj5HNyEjOjckJCExJSkzQSYpbyMzKlEhIzokIjJaeSgqZlJMSEAiISM6NyQkITJkNnpaPlYxdiQhIzskIjJPMlRpcilIeTYhIzo3JCQhMlhbcnkrP1tpJCEjOyQiMSkpKipINF1jTDYhIzk3JCQhMCJ6WnBMeHZNISM5JCIxRGw8elQ6bjUhIzk3JCQhMVlsOGEhZTVOJCEjOiQiMip5KGU3LDhHKyIhIzo3JCQhMkYqelwlWyo9MEshIzskIjFjODg9WyYzPyohIzo3JCQhMlBYamUxc2YxJCEjOyQiMVBvNzcmNClmJCkhIzo3JCQhMCVcdCRcbjslSCEjOSQiMWEkeSp6IlxSZSghIzo3JCQhMmkxbjwrdT0hRyEjOyQiMTk6ISpcKXkycSchIzo3JCQhMWs2em5ROmhFISM6JCIxPVc0WzkocCJlISM6NyQkITEiPls/Yi02XyMhIzokIjFLKFJDIW9pZFwhIzo3JCQhMWAiUVgwZDdSIyEjOiQiMSZRVnQyOC4+JSEjOjckJCEyTkM2R2M0b0QjISM7JCIxaHlRdXRJTk0hIzo3JCQhMWAiUVh4ang2IyEjOiQiMmAkUmtKWVYwRiEjOzckJCEyaVtyeSFSO3o+ISM7JCIxI1IhKj16Q28uIyEjOjckJCEySG06KjNwZk89ISM7JCIxLD5HbFJpOzkhIzo3JCQhMilRWGo9US02PCEjOyQiMWAlRyJHdnIzJCohIzs3JCQhMlJgJCkzRWUncDohIzskIjEmKUhBWypSI1tYISM7NyQkITBHcURDN3hVIiEjOSQiMidmKyVIJypbTlQmISM9NyQkITIocHknPiY0IzRIIiEjOyQhMWUzciUqZj4hZSMhIzs3JCQhMl8vaF9OLG47IiEjOyQhMig0JlFuVjUoKXklISM8NyQkITIkKioqKioqUkEqKj01ISM7JCExJ3psR2M4RWwnISM7NyQkIS9OUFZDalEqKSEjOSQhMSUzLCk9WSM9ZyghIzs3JCQhMEZCZXYlMyRbKCEjOiQhMVZuMEdSJykzISkhIzs3JCQhMT1yRj4leVk+JyEjOyQhMSwmUmFVdFp4KCEjOzckJCEybGxtbVkjNCJ5JSEjPCQhMTEmeURLamgicCEjOzckJCExLUwjZU5DXVYkISM7JCExZCc9O2ItZWImISM7NyQkITIjKSplKFJcVjAuIyEjPCQhMjojSFhzbSM0aSQhIzw3JCQhMUZGRDhqInpTKCEjPCQhMmRPJTNDOE5EOSEjPDckJCIxYSp5Jz4qKnoubCEjPCQiMkNBMiNvRDlVOCEjPDckJCIxYHchcEs7YTQjISM7JCIwJ3AkKlInMyQqZiUhIzo3JCQiMjxxPFdxQ0xOJCEjPCQiMSI+OzFOVmhxKCEjOzckJCIxQllsOC0hPnIlISM7JCIyLWB2ZChmIipINiEjOzckJCIxNmNTXjtXOmghIzskIjJ1KCkpNCJ6akFfIiEjOzckJCIxSFc1RUpgKVsoISM7JCIyLlhNMCg9VkE+ISM7NyQkIjExUCM0dHBxIikpISM7JCIyWE11Ql8/N0sjISM7NyQkIjJNXkdASj0jSDUhIzskIjF5cXk8OGN0RiEjOjckJCIxUVYzNlF3aDYhIzokIjIoKilwd2AoPmU9JCEjOzckJCIyImYqKltBV0cuOCEjOyQiMTJCbE0qKSkpSE8hIzo3JCQiMngzQTA4QjpWIiEjOyQiMSNvbzslW2tNUyEjOjckJCIyJUhGbzU+c3I6ISM7JCIxN1JCXGNSelchIzo3JCQiMjFabm8uUU9xIiEjOyQiMSU9V0pLVDEhXCEjOjckJCIyM2FNJylSRzolPSEjOyQiMVkqb2glZmRYYCEjOjckJCIyQklEOFZUaig+ISM7JCIxTlEsJilwKXp5JiEjOjckJCIydiM0dCM9eXU2IyEjOyQiMScqSEpYTlZqaSEjOjckJCIyMU1OKVsnNE1EIyEjOyQiMERSVS8rKlFuISM5NyQkIjJWeFZmPz5DUiMhIzskIjFoPypRRjcuRCghIzo3JCQiMjklXHQkcHgtYCMhIzskIjEzNVt0OGQieighIzo3JCQiMmJNJ2VFYCZwbCMhIzskIjFVSkcqZXh6SykhIzo3JCQiMSplKFIqPVVAIUchIzokIjBbWWxLRzorKiEjOTckJCIxRzZHXSEqKj4kSCEjOiQiMW8hRzJMJD5xJyohIzo3JCQiMWNTXltOWHFJISM6JCIyViZbVU1Kelk1ISM6NyQkIjF3KT0ocEAoSD8kISM6JCIyQSMpcE4qcC1MNiEjOjckJCIxMj0mejE8LE4kISM6JCIyWyRvVE5WTlU3ISM6NyQkIjJlazZ6dEx2WiQhIzskIjInUXYjUVtQMU4iISM6NyQkIjFwPip6el9AaSQhIzokIjJkNCRwekhdIlwiISM6NyQkIjJEaTA5UGRSdiQhIzskIjIkUi1mISlbN1I7ISM6NyQkIjJQQC4zJzM4KSpRISM7JCIyajg9NSVvJVsjPSEjOjckJCIxPCh5Jyo+R0QtJSEjOiQiMmk3YHhNbyMzPyEjOjckJCIyJkhALltBP2tUISM7JCIyIyozQFZ0UW9DIyEjOjckJCIxOCR5WFFfNUklISM6JCIxZnAnKSlSdzVeIyEjOTckJCIxazRDP0oieVYlISM6JCIyJXoySyZmTUMiRyEjOjckJCIxQzgkeXRxU2QlISM6JCIya3o+YyhSNWFKISM6NyQkIjEwYEteOyhccSUhIzokIjBPKW85ZWVETiEjODckJCIxXz1ZMCF6ayVbISM6JCIyTXdVJjRhJyp6UiEjOjckJCIxXyJRWHhYOClcISM6JCIxI3pXKD1JTXBXISM5NyQkIjFiS0opcCdHQl4hIzokIjI7byMzJj5FKVxdISM6NyQkIjJOWj1ZVHg8RCYhIzskIjFYTT1UUHBRYyEjOTckJCIxPSZ6KTRQeSRSJiEjOiQiMTsnKUdtbTptaiEjOTckJCIxWDVFJio0ISlIYiEjOiQiMWRDIltYY145KCEjOTckJCIxYUl3NXNbbGMhIzokIjFlI0cjb1RbNCEpISM5NyQkIjE9XXYpKT5AMmUhIzokIjE8OEE4KFxLLCohIzk3JCQiMGBLSm9YeCRmISM5JCIyUSRHSUUiXE8rIiEjOTckJCIxJHlYOS9JOTInISM6JCIyekJsaUpLIT42ISM5NyQkIjEkb3F3WEwhPmkhIzokIjF0PiwpR1spZjchIzg3JCQiMVFOKTNFd0VOJyEjOiQiMmsneicqZU5VKzkhIzk3JCQiMWUkUilmNU4qWychIzokIjIwOSYqM2gyIWU6ISM5NyQkIjE+JnopNGVNR20hIzokIjBlKy8nW2lMPCEjNzckJCIxbTJwSyE0aHYnISM6JCIyczpYRGpeJzQ+ISM5NyQkIjEmcEI0XCtCKm8hIzokIjEiKVwnZUNCUDYjISM4NyQkIjEpcEI0RGJ1LSghIzokIjJ2PVhleiQ0TUIhIzk3JCQiMUU8JEgkKUc/PCghIzokIjJ2NyhHJCo0IjNmIyEjOTckJCIxelg5YygzJypIKCEjOiQiMXIoZilRUF5PRyEjODckJCIxSkQ4LiY0b1coISM6JCIxaj5tZilbUDkkISM4NyQkIjF4VmZHb2t6diEjOiQiMjxEd28pcDtXTSEjOTckJCIxZltyPUMzNnghIzokIjJ3d2ApXCNRVnckISM5NyQkIjF5J29AIXpUX3khIzokIjFKXHAwKlJiOCUhIzg3JCQiMVxyeTteSyUqeiEjOiQiMS1bdF8/JHpgJSEjODckJCIxRTZHcSdSTTcpISM6JCIyV1klNCgqcE5KXCEjOTckJCIxd0wlM2ZgMEUpISM6JCIxayNmKnlnP3pgISM4NyQkIjFVYlF3TE8lUikhIzokIjEmPXlXaXp3JWUhIzg3JCQiMUhCZSZmOSVSJikhIzokIjFfQk1OS1gjUichIzg3JCQiMC1iKEdVI1xtKSEjOSQiMUJ0XGxHVycqbyEjODckJCIxRjpRMG0yNCkpISM6JCIxJykpKXlHZmI5diEjODckJCIxMTV2PHVlVyopISM6JCIxPGNyR2h6TiIpISM4NyQkIjE8UVhWJCp5eSEqISM6JCIxPCVmRHRIOHopISM4NyQkIjFsNnpGISk0OCMqISM6JCIxOShSUGNhJSpbKiEjODckJCIxMm48JVElM10kKiEjOiQiMW56PEYtcEM1ISM3NyQkIjFzI29xaShHJlwqISM6JCIyLCN6QicqUkE1NiEjODckJCIxSyEzP3lDJUcnKiEjOiQiMmI0JG9fbmgkPiIhIzg3JCQiMU4jZSZcI1spZigqISM6JCIyRlkmPVAkMzNHIiEjODckJCIxZE9UdHhMKyoqISM6JCIyaUU9KHldZ3o4ISM4NyQkIjFVYlFZQDAvNSEjOSQiMEpPO18rVVsiISM2NyQkIjJiSXddWU1tLCIhIzokIjInZkk4TnZUJGUiISM4NyQkIjFqYyIqRyJSOi4iISM5JCIyLVJPeidIdzI8ISM4NyQkIjIiKnpcL201Uy8iISM6JCIyVls/N1pCeCI9ISM4NyQkIjJZbDh1XihmZTUhIzokIjFAUj1zSllgPiEjNzckJCIyJTNyRmYjPkQyIiEjOiQiMEZmIjRoWiE0IyEjNjckJCIwJyoqWzsoXFwzIiEjOCQiMV9xeGIwQT5BISM3NyQkIjJydSdvbCFIKik0IiEjOiQiMnZtMUZYODpQIyEjODckJCIydkwlM3o1Kzg2ISM6JCIyMT0pKlEvYUpgIyEjODckJCIyV2plMUAxcTciISM6JCIyMEdcO0FrRXEjISM4NyQkIjIlUSc0L3chKipSNiEjOiQiMT1jP3lmInknRyEjNzckJCIyJUhCZTRiVmA2ISM6JCIyUC1JaFhIcy8kISM4NyQkIjIpUSc0JSkzU3Q7IiEjOiQiMlY0KHA0ITRAQyQhIzg3JCQiMl5Jd10yKzc9IiEjOiQiMkE5WSUzYTpZTSEjODckJCIydyk9KFx4Y2E+IiEjOiQiMWAjKW85T2ltTyEjNzckJCIyKioqKioqUjM5ITM3ISM6JCIyWlNyRS09KyhRISM4NyQkIjIyNXYoUjE6QTchIzokIjFCSndmZm40VCEjNzckJCIxRWtnVF9NTzchIzkkIjEzIzRBRS5ATyUhIzc3JCQiMm1tbTFQQytEIiEjOiQiMUpPQCdwTnBoJSEjNzckJCIyJ1x0TElqV2k3ISM6JCIxNClHPDE/JmVbISM3NyQkIjJPWGo9QzxzRiIhIzokIjEkXCF5QmAiKWVeISM3NyQkIjE+KEg5OUkoKkciISM5JCIxPSEqcDQhUVlVJiEjNzckJCIyNEEwJD1jRy84ISM6JCIxJypcMnVYXFpkISM3NyQkIjJKb3E7b3BySiIhIzokIjI6RzYtUzRmLychIzg3JCQiMnR5Jz5UYklKOCEjOiQiMUxIVkZYVChRJyEjNzckJCIyNEEwQkFtWk0iISM6JCIxNkomM25fbnMnISM3NyQkIjEmcEI0LjYpZTghIzkkIjEiKW94dTErJzQoISM3NyQkIjIzP10mXCYzPFAiISM6JCIxUiNbPCNvO1x1ISM3NyQkIjJIOCR5bC1pJlEiISM6JCIxKlIxJFJmb1h5ISM3NyQkIjIvYEsiSDEyKzkhIzokIjFXYCR6cjVfRikhIzc3JCQiMjFqMkhyXEVUIiEjOiQiMVp6OXdMP2snKSEjNzckJCIyLCsrIW9hQkU5ISM6JCIxcj1hV01kKyIqISM3NyQkIjBeeEIpM0ZTOSEjOCQiMUdHXCQ+QydwJiohIzc3JCQiMiMpXENyeixTWCIhIzokIjFBT1tFcHAvNSEjNjckJCIxInBzSjsoR245ISM5JCIyYjBxV0ZzRTAiISM3NyQkIjJgSXdxSFE/WyIhIzokIjEuP2hfUTEzNiEjNjckJCIyeCk9KHAlR0gmXCIhIzokIjJFLC9XSyd6ZjYhIzc3JCQiMi1YNyIzXFc0OiEjOiQiMl5sXG5GU3JAIiEjNzckJCIxamMiKnkob0FfIiEjOSQiMD1JPCpbLnI3ISM1NyQkIjJvc0pwbClHTzohIzokIjJ2dW48J282SzghIzc3JCQiMSwtYnAtW1w6ISM5JCIydTVXRSpvcSJSIiEjNzckJCIxM3BzMCRwS2MiISM5JCIyT1FsJipSXGlYIiEjNzckJCIyUSlmKiozMXZ3OiEjOiQiMnklZlB5IlE7XyIhIzc3JCQiMmphT1RHazNmIiEjOiQiMi0xWHVII2UjZiIhIzc3JCQiMSkpcHVJdVgvOyEjOSQiMVFWKTNMIVFqOyEjNjckJCIxSnlYJ1FlJD07ISM5JCIycy4+T2liJFE8ISM3NyQkIjFbcEJOVTlLOyEjOSQiMiZmSSwxJVtgIj0hIzc3JCQiMiYpM0EmKSo+IltrIiEjOiQiMiN5QVEsQVopKT0hIzc3JCQiMkdALltvSSRmOyEjOiQiMXB1Km8zXV4oPiEjNjckJCIya2MiKjNQO0JuIiEjOiQiMXdwKVtRUGAwIyEjNjckJCIyJmZbcj89OydvIiEjOiQiMj1eZiczRW5WQCEjNzckJCIkcSIhIiIkIjJsbW1tbWhcQiMhIzctJSdMRUdFTkRHNiMtJSlfVFlQRVNFVEc2Iy1JJW1yb3dHNiMvSSttb2R1bGVuYW1lRzYiSSxUeXBlc2V0dGluZ0dJKF9zeXNsaWJHNiI2NS1JI21zRzYjL0krbW9kdWxlbmFtZUc2IkksVHlwZXNldHRpbmdHSShfc3lzbGliRzYiNiNRJ1NlcmllczYiLyUnZmFtaWx5R1EwVGltZXN+TmV3flJvbWFuNiIvJSVzaXplR1EjMTI2Ii8lJWJvbGRHUSZmYWxzZTYiLyUnaXRhbGljR1EmZmFsc2U2Ii8lKnVuZGVybGluZUdRJmZhbHNlNiIvJSpzdWJzY3JpcHRHUSZmYWxzZTYiLyUsc3VwZXJzY3JpcHRHUSZmYWxzZTYiLyUrZm9yZWdyb3VuZEdRKFswLDAsMF02Ii8lK2JhY2tncm91bmRHUS5bMjU1LDI1NSwyNTVdNiIvJSdvcGFxdWVHUSZmYWxzZTYiLyUrZXhlY3V0YWJsZUdRJmZhbHNlNiIvJSlyZWFkb25seUdRJmZhbHNlNiIvJSljb21wb3NlZEdRJmZhbHNlNiIvJSpjb252ZXJ0ZWRHUSZmYWxzZTYiLyUraW1zZWxlY3RlZEdRJmZhbHNlNiIvJSxwbGFjZWhvbGRlckdRJmZhbHNlNiIvJTZzZWxlY3Rpb24tcGxhY2Vob2xkZXJHUSZmYWxzZTYiLyUsbWF0aHZhcmlhbnRHUSdub3JtYWw2Ii0lJkNPTE9SRzYmJSRSR0JHJCIiISEiIiQiIzUhIiIkIiIhISIiLSUnQ1VSVkVTRzYmN2Z6NyQkISRxIiEiIiQiMSJmUClcekE0SCEjODckJCExKnpcQ244ZG8iISM5JCIyMC0tYTV6KWZHISM5NyQkITFbcEI6S0d0OyEjOSQiMEEoelMncHAiRyEjNzckJCEyMjtTZydRSWY7ISM6JCIyKDQlZldkbyhvRiEjOTckJCEyLmRVRSY9Qlg7ISM6JCIxRHRdLnlMP0YhIzg3JCQhMXQjbzVzRTdqIiEjOSQiMSRSRVRTa0FuIyEjODckJCExcHNKckBDPTshIzkkIjFzemhnWyV5aSMhIzg3JCQhMiV5WDlBdXovOyEjOiQiMTBOXDlaLyNlIyEjODckJCExcHNKVkcqM2YiISM5JCIyVSRSP1VCJFxgIyEjOTckJCEyQ2ddbSZHLng6ISM6JCIyZUdLJkcieiMpWyMhIzk3JCQhMC1ibjp3RmMiISM4JCIyTDZwNituMVcjISM5NyQkITJ3IXBzWik9LWIiISM6JCIyOG1FRCc+NCpSIyEjOTckJCEyciE9Jj5IIzNPOiEjOiQiMVglUl1nV0ZOIyEjODckJCEyPls/LHAoKT1fIiEjOiQiMXNlMl1kdTFCISM4NyQkITI0Q2c1YzMjMzohIzokIjIkSDB2KClvKEhFIyEjOTckJCEyJGUmKlEsbXkmXCIhIzokIjJqT20mZUx1QkEhIzk3JCQhMlFYaikqbzo1WyIhIzokIjJiNmJaQ294PCMhIzk3JCQhMigpPShIIXotJm85ISM6JCIyOiFbdEt3VVJAISM5NyQkITJvb0BNSlpSWCIhIzokIjJMZ3UyZWZiNCMhIzk3JCQhMlxBYytEajVXIiEjOiQiMl8kMyNmWjF1MCMhIzk3JCQhMjA3STBSRnBVIiEjOiQiMmwlXG5ZZ0g7PyEjOTckJCEyb29AJTRuWTg5ISM6JCIyY29ONj8pKXkoPiEjOTckJCEySEAuMyE+VSpSIiEjOiQiMltuUilcY2VRPiEjOTckJCEyb3F3QFFDbFEiISM6JCIyX3gzI1JaPS4+ISM5NyQkITJeeFZmbTdFUCIhIzokIjInPmpcPDl0bD0hIzk3JCQhMndQJWYtQjtlOCEjOiQiMiV5bTltRGhGPSEjOTckJCExeCM+KT1LZVg4ISM5JCIyZC0zUmFmXXoiISM5NyQkITJ4IXBzanUqPkwiISM6JCIyJUh2Tjs9YGc8ISM5NyQkITJ3UlwkXD8nekoiISM6JCIxJXkieSpSOGJzIiEjODckJCEyJzRDZ002Qi84ISM6JCIyMTFjZU5iPXAiISM5NyQkITJwQGEmb2QlNEgiISM6JCIyWnlqLjE4KWY7ISM5NyQkITJDZ11ZaiU+dzchIzokIjJWLFQhPmh5QzshIzk3JCQhMiwtYlozU0hFIiEjOiQiMjAlPmEoKXl2JGYiISM5NyQkITJ5WDlPLSl5WzchIzokIjFsNTdDKFI1YyIhIzg3JCQhMVg3Ikc6a2ZCIiEjOSQiMiN5cnUiZTc8YCIhIzk3JCQhMjE9Jnp1VSU+QSIhIzokIjImKmU3cSxbKipcIiEjOTckJCEyb3F3QG1fKDM3ISM6JCIyTms0I28hKUhxOSEjOTckJCErRU8nXD4iISIpJCIyRF5KP2IwJlI5ISM5NyQkITJQIzR0QUJbIj0iISM6JCIyTVw4PillYjQ5ISM5NyQkITI6TyFmWidvdDsiISM6JCIyMWEjKW9zQyR5OCEjOTckJCEyJj4qejRddlA6IiEjOiQiMlEqPnc6J0gkWzghIzk3JCQhMmoycF9hdSlSNiEjOiQiMjEuXyEzL3I8OCEjOTckJCEyKWYqKlsncCkzRTYhIzokIjJkc3VOJ2ZQKEciISM5NyQkITIjPls/TDRVODYhIzokIjJcKmVQJkc5JmY3ISM5NyQkITJZcEJwQy0qKTQiISM6JCIyakNLIT5kZUY3ISM5NyQkITI6TU4zYztmMyIhIzokIjJIN25AKipHISo+IiEjOTckJCEyIls/LDY2MnM1ISM6JCIyMSNSIlJyJmVvNiEjOTckJCEyamMiKilbIz4pZTUhIzokIjE3cTxHOVlSNiEjODckJCExdCNvIWZaNVc1ISM5JCIyKmYlKSlHdWRyNSIhIzk3JCQhMiMqR3M/NGo4LiIhIzokIjJIbi1LIm9CejUhIzk3JCQhMWRVMSc9LHAsIiEjOSQiMlJLSjk+T3cvIiEjOTckJCEyPCpHc0cycy41ISM6JCIyQXJ1L1dfKj01ISM5NyQkITFEOCR5ekxJKikqISM6JCIxKTMiKlEpeVp4KSohIzk3JCQhMUJlJipla2pvKCohIzokIjBCJkdxLTA1JyohIzg3JCQhMFQtMVRpcGkqISM5JCIxMm55eEMrMyQqISM5NyQkITFEaTB1QTYhXCohIzokIjB1PWZtIUc+ISohIzg3JCQhMXZOUlE6TmAkKiEjOiQiMUZON2ZgQ00oKSEjOTckJCExN0shMyNSNDwjKiEjOiQiMGhIPz1WVVgpISM4NyQkITFQIzR0KyQ+JzMqISM6JCIxLj1AJHpmJSo9KSEjOTckJCEwcHNKbCZvVyopISM5JCIxOCc9TSR6TzN6ISM5NyQkITEmUSc0JSkpPSk0KSkhIzokIjFWXXJkZSFmayghIzk3JCQhMSZHQC4neih5bSkhIzokIjFSXDIvbShlUCghIzk3JCQhMWtnLFdzUVImKSEjOiQiMVBFTng0R1ByISM5NyQkITAtYihbNFEoUikhIzkkIjFKNy53JTQvKW8hIzk3JCQhMSVcdExtajhFKSEjOiQiMWInKWY3MlFUbSEjOTckJCExJltyeVd4YzcpISM6JCIwSi4+JyoqKio0ayEjODckJCExPSZ6KXBFJlIpeiEjOiQiMUoyKVEqby53aCEjOTckJCExMz9ddio9TSZ5ISM6JCIxYmY4IyoqPXcnZiEjOTckJCExYSgpPTxZdD54ISM6JCIxUG4yeChIN3cmISM5NyQkITFjUSc0P0pAZCghIzokIjEqZVEkNCczO2EmISM5NyQkITEwNXYoUilbUXUhIzokIjFXZjMnXEYsTiYhIzk3JCQhMD0meilmOD1JKCEjOSQiMidlUzk/LlBoXiEjOjckJCEwLWIoWyk9RzsoISM5JCIyOlplJT1qXHdcISM6NyQkITF2UCVmaWJdLighIzokIjF5a0thJipmN1shIzk3JCQhMVUzcm5UJykpKm8hIzokIjImND5hMiwkUmslISM6NyQkITFWM3IyJTRQdychIzokIjFSUCh5cEZCWyUhIzk3JCQhMTRHcURlOD5tISM6JCIxV3h3bkRPOlYhIzk3JCQhMCcqKlstZmIiXCchIzkkIjJDLiNRK21sc1QhIzo3JCQhMTM/XWJeTldqISM6JCIyJyp6S0EqeSZHLCUhIzo3JCQhMWksL0l5XjZpISM6JCIyWUFhUWc7RShRISM6NyQkITF5Jz4qUkEzITMnISM6JCIxRlghMyM+M1BQISM5NyQkITFrZVljbnVRZiEjOiQiMVElNGAmXFMlZiQhIzk3JCQhMSpRWj1hUm96JiEjOiQiMTI6dm5YIlFYJCEjOTckJCExOk1OKSlcc25jISM6JCIxKltHPWF4eEskISM5NyQkITFqNnpuNWhJYiEjOiQiMTBhbScpKXBhPiQhIzk3JCQhMScqKltBRyxvUiYhIzokIjFMWyNbYi92MSQhIzk3JCQhMTNBMGordl5fISM6JCIyPVk2PUYmcEhIISM6NyQkITE9JnopSC9DRV4hIzokIjJfNl9ZJilcNCJHISM6NyQkITE3SURgISkzIylcISM6JCIxdnIjNE8hKltuIyEjOTckJCEyTmAkKTNDeGwlWyEjOyQiME4mZVlKOFpEISM4NyQkITFBMj06YFA3WiEjOiQiMnN5JDQ2IlsxVSMhIzo3JCQhMXVMJTNqbSF5WCEjOiQiMid5d1RweTElSCMhIzo3JCQhMCR5WHUtM1RXISM5JCIxUUMvK08rbEAhIzk3JCQhMWxpY0pxKGVIJSEjOiQiMjkhcFoiM2QkRz8hIzo3JCQhMTBsaXcpUkY7JSEjOiQiMG5jUCE+US4+ISM4NyQkITExajI0a0pKUyEjOiQiMnknM0VvMmAheSIhIzo3JCQhMSUpM0EmKW8jMypRISM6JCIyUG4iR08hcCtsIiEjOjckJCEyZDZ6Wj5WMXYkISM7JCIyYCQqW01CXTZfIiEjOjckJCEyWFtyeSs/W2kkISM7JCIyODFgOSopZm9TIiEjOjckJCEwInpacEx4dk0hIzkkIjJMMVxhNipwdDchIzo3JCQhMVlsOGEhZTVOJCEjOiQiMmZQeDdUWVg7IiEjOjckJCEyRip6XCVbKj0wSyEjOyQiMktsTnF2TSsvIiEjOjckJCEyUFhqZTFzZjEkISM7JCIwJ1F3T3czXCMqISM5NyQkITAlXHQkXG47JUghIzkkIjF4InApemNAYyMpISM6NyQkITJpMW48K3U9IUchIzskIjIwJzNdW1UwJT0oISM7NyQkITFrNnpuUTpoRSEjOiQiMWUlZVZDLnU6JyEjOjckJCExIj5bP2ItNl8jISM6JCIwLSRISSw0JD4mISM5NyQkITFgIlFYMGQ3UiMhIzokIjElekklXDxNYVYhIzo3JCQhMk5DNkdjNG9EIyEjOyQiMnl6Nnc+TWNhJCEjOzckJCExYCJRWHhqeDYjISM6JCIyW1BVSDA3bngjISM7NyQkITJpW3J5IVI7ej4hIzskIjJGMyJHeSJcOjMjISM7NyQkITJIbToqM3BmTz0hIzskIjJCPFdCPUJMVyIhIzs3JCQhMilRWGo9US02PCEjOyQiMWwhW2ZjU0JaKiEjOzckJCEyUmAkKTNFZSdwOiEjOyQiMiQpKXpgNk5HUVkhIzw3JCQhMEdxREM3eFUiISM5JCIya0o2UnhSKyllISM9NyQkITIocHknPiY0IzRIIiEjOyQhMUM8MSNSR3FiIyEjOzckJCEyXy9oX04sbjsiISM7JCEyJ3p1UmE9RHhaISM8NyQkITIkKioqKioqUkEqKj01ISM7JCExTCxyKlFeIlttISM7NyQkIS9OUFZDalEqKSEjOSQhMWgpKWYyYC4rdyEjOzckJCEwRkJldiUzJFsoISM6JCExYEsiM2RZJDMhKSEjOzckJCExPXJGPiV5WT4nISM7JCExKVJyU0ROWXgoISM7NyQkITJsbG1tWSM0InklISM8JCExUVEkR3RTaCJwISM7NyQkITEtTCNlTkNdViQhIzskITF5YSs7LiFlYiYhIzs3JCQhMiMpKmUoUlxWMC4jISM8JCEyTlcxZ2hFNGkkISM8NyQkITFGRkQ4aiJ6UyghIzwkITEpeU5TS15gVSIhIzs3JCQiMWEqeSc+Kip6LmwhIzwkIjIxcCg9b0Q5VTghIzw3JCQiMWB3IXBLO2E0IyEjOyQiMSYpSGZwJjMkKmYlISM7NyQkIjI8cTxXcUNMTiQhIzwkIjFhXWBoOTkxeCEjOzckJCIxQllsOC0hPnIlISM7JCIyRSEqZmQkUiIqSDYhIzs3JCQiMTZjU147VzpoISM7JCIyY2VNSDteQV8iISM7NyQkIjFIVzVFSmApWyghIzskIjJVeFU2KCl6QiM+ISM7NyQkIjExUCM0dHBxIikpISM7JCIyMHo4cip5MEBCISM7NyQkIjJNXkdASj0jSDUhIzskIjA4WEwkSDN0RiEjOTckJCIxUVYzNlF3aDYhIzokIjIkZVVMT3NxJT0kISM7NyQkIjIiZioqW0FXRy44ISM7JCIwYDR3VDh1aSQhIzk3JCQiMngzQTA4QjpWIiEjOyQiMUtOWSR5IyopSFMhIzo3JCQiMiVIRm81PnNyOiEjOyQiMShwOXkhKjMuWiUhIzo3JCQiMjFabm8uUU9xIiEjOyQiMSJ6OW1kaFopWyEjOjckJCIyM2FNJylSRzolPSEjOyQiMVZUMydleCQ9YCEjOjckJCIyQklEOFZUaig+ISM7JCIxbj5nNi9xVmQhIzo3JCQiMnYjNHQjPXl1NiMhIzskIjFXRnozQUEjPichIzo3JCQiMjFNTilbJzRNRCMhIzskIjA9eCopcDMoSG0hIzk3JCQiMlZ4VmY/PkNSIyEjOyQiMSo+Xko6UGQzKCEjOjckJCIyOSVcdCRweC1gIyEjOyQiMS1NIlx1JT5ddiEjOjckJCIyYk0nZUVgJnBsIyEjOyQiMWBpanBsPSIqeiEjOjckJCIxKmUoUio9VUAhRyEjOiQiMThGTHkoUXpeKSEjOjckJCIxRzZHXSEqKj4kSCEjOiQiMTIieiFmS3U3ISohIzo3JCQiMWNTXltOWHFJISM6JCIxeWsjeUFWKXAmKiEjOjckJCIxdyk9KHBAKEg/JCEjOiQiMmFRYGEoW2o4NSEjOjckJCIxMj0mejE8LE4kISM6JCIySmMoKWU4RDQzIiEjOjckJCIyZWs2enRMdlokISM7JCIyUnhfNWAjUlY2ISM6NyQkIjFwPip6el9AaSQhIzokIjIkPXhgKipRYT43ISM6NyQkIjJEaTA5UGRSdiQhIzskIjEnPmhneGVVSCIhIzk3JCQiMlBALjMnMzgpKlEhIzskIjIkUSIpeS0zRSNRIiEjOjckJCIxPCh5Jyo+R0QtJSEjOiQiMiw0bGxRMVFZIiEjOjckJCIyJkhALltBP2tUISM7JCIyLishKXkmUU9qOiEjOjckJCIxOCR5WFFfNUklISM6JCIybFNabXIoZW07ISM6NyQkIjFrNEM/SiJ5ViUhIzokIjJkMko/WjVweCIhIzo3JCQiMUM4JHl0cVNkJSEjOiQiMng7eG5YQVQqPSEjOjckJCIxMGBLXjsoXHElISM6JCIxIkhIY0sibzg/ISM5NyQkIjFfPVkwIXprJVshIzokIjFkNjQnPkoxOiMhIzk3JCQiMV8iUVh4WDgpXCEjOiQiMk0zOXElM2QpRyMhIzo3JCQiMWJLSilwJ0dCXiEjOiQiMSYqcFJPVFhUQyEjOTckJCIyTlo9WVR4PEQmISM7JCIxIyllWzY/XidlIyEjOTckJCIxPSZ6KTRQeSRSJiEjOiQiMk9OJGV4NyZSdiMhIzo3JCQiMVg1RSYqNCEpSGIhIzokIjJqZzE8b1o1I0ghIzo3JCQiMWFJdzVzW2xjISM6JCIybEM8SF1VUjQkISM6NyQkIjE9XXYpKT5AMmUhIzokIjEjR2AiXC50IUckISM5NyQkIjBgS0pvWHgkZiEjOSQiMSlcbHBJZ3pYJCEjOTckJCIxJHlYOS9JOTInISM6JCIxdCU+JT01PldPISM5NyQkIjEkb3F3WEwhPmkhIzokIjE6KUdOOTtbJlEhIzk3JCQiMVFOKTNFd0VOJyEjOiQiMVQvSHZsYFxTISM5NyQkIjFlJFIpZjVOKlsnISM6JCIxeSFRMVI0QEQlISM5NyQkIjE+JnopNGVNR20hIzokIjFKSjloajtoVyEjOTckJCIxbTJwSyE0aHYnISM6JCIxNilbYjgqZmJZISM5NyQkIjEmcEI0XCtCKm8hIzokIjElKSlIYCs0WydbISM5NyQkIjEpcEI0RGJ1LSghIzokIjFYXkJEKCoqUjImISM5NyQkIjFFPCRIJClHPzwoISM6JCIxMywqUVVvISpIJiEjOTckJCIxelg5YygzJypIKCEjOiQiMTYhb2ElXFopXCYhIzk3JCQiMUpEOC4mNG9XKCEjOiQiMm1jYjkwWSJIZCEjOjckJCIxeFZmR29renYhIzokIjEvOyh5c0R3JGYhIzk3JCQiMWZbcj1DMzZ4ISM6JCIyYUpeMm1TUzknISM6NyQkIjF5J29AIXpUX3khIzokIjFcVV1Zay9taiEjOTckJCIxXHJ5O15LJSp6ISM6JCIxKj08KDNxJiopZSchIzk3JCQiMUU2R3EnUk03KSEjOiQiMWlTUXEtIj16JyEjOTckJCIxd0wlM2ZgMEUpISM6JCIwdSopKlE0UDJxISM4NyQkIjFVYlF3TE8lUikhIzokIjFQQXY+aC49cyEjOTckJCIxSEJlJmY5JVImKSEjOiQiMWVGIVE8KilwVyghIzk3JCQiMC1iKEdVI1xtKSEjOSQiMT5VXHNVJmVrKCEjOTckJCIxRjpRMG0yNCkpISM6JCIxdW1xNCQqW3Z5ISM5NyQkIjExNXY8dWVXKikhIzokIjBZW0gvYUg0KSEjODckJCIxPFFYViQqeXkhKiEjOiQiMTtQTXBwRTUkKSEjOTckJCIxbDZ6RiEpNDgjKiEjOiQiMDFJSzBRLGApISM4NyQkIjEybjwlUSUzXSQqISM6JCIxI1F2dWlLdHYpISM5NyQkIjFzI29xaShHJlwqISM6JCIwMS8zWWU+KyohIzg3JCQiMUshMz95QyVHJyohIzokIjE7elJfej9JIyohIzk3JCQiMU4jZSZcI1spZigqISM6JCIxJnlPYG4ncGYlKiEjOTckJCIxZE9UdHhMKyoqISM6JCIxciEzLWMsLHIqISM5NyQkIjFVYlFZQDAvNSEjOSQiMG1ZJCoqUnBsKiohIzg3JCQiMmJJd11ZTW0sIiEjOiQiMiNvQilbdk8rLSIhIzk3JCQiMWpjIipHIlI6LiIhIzkkIjJHKj10QFFfWzUhIzk3JCQiMiIqelwvbTVTLyIhIzokIjJIUU41PWxIMiIhIzk3JCQiMllsOHVeKGZlNSEjOiQiMiJvJVxINCRHLTYhIzk3JCQiMiUzckZmIz5EMiIhIzokIjJ6Myg+Ij1DNTgiISM5NyQkIjAnKipbOyhcXDMiISM4JCIyQj4mUiQqKUd0OiIhIzk3JCQiMnJ1J29sIUgqKTQiISM6JCIyXyoqXGlbWHc9IiEjOTckJCIydkwlM3o1Kzg2ISM6JCIyYElUPCc9Jio9NyEjOTckJCIyV2plMUAxcTciISM6JCIyLyE+ImVyIiozRCIhIzk3JCQiMiVRJzQvdyEqKlI2ISM6JCIxYGNDTzs+IkciISM4NyQkIjIlSEJlNGJWYDYhIzokIjJsUyRHeG5DODghIzk3JCQiMilRJzQlKTNTdDsiISM6JCIyaipmJz44L3JNIiEjOTckJCIyXkl3XTIrNz0iISM6JCIyayNlIlwtUDpRIiEjOTckJCIydyk9KFx4Y2E+IiEjOiQiMmFqcmYsSXdUIiEjOTckJCIyKioqKioqUjM5ITM3ISM6JCIyYDwpKno1XypcOSEjOTckJCIyMjV2KFIxOkE3ISM6JCIybFRvJTMzKm9bIiEjOTckJCIxRWtnVF9NTzchIzkkIjFUVUQnKSo9WF8iISM4NyQkIjJtbW0xUEMrRCIhIzokIjJud2FGTlI3YyIhIzk3JCQiMidcdExJaldpNyEjOiQiMFR3dCQ+JFxmIiEjNzckJCIyT1hqPUM8c0YiISM6JCIyRGwxXiM0UE47ISM5NyQkIjE+KEg5OUkoKkciISM5JCIvTCpwSS0qcDshIzY3JCQiMjRBMCQ9Y0cvOCEjOiQiMi86bl06TS5yIiEjOTckJCIySm9xO29wckoiISM6JCIydWl1c2Q7anUiISM5NyQkIjJ0eSc+VGJJSjghIzokIjJGJjRZSSdlZnkiISM5NyQkIjI0QTBCQW1aTSIhIzokIjJ2cm5qVEZRIz0hIzk3JCQiMSZwQjQuNillOCEjOSQiMiNSO01peFVqPSEjOTckJCIyMz9dJlwmMzxQIiEjOiQiMldaWyVmYSUpKio9ISM5NyQkIjJIOCR5bC1pJlEiISM6JCIyMSFvMiJIZiJSPiEjOTckJCIyL2BLIkgxMis5ISM6JCIyJikqeURTPSwhKT4hIzk3JCQiMjFqMkhyXEVUIiEjOiQiMTkqUkgyeWIsIyEjODckJCIyLCsrIW9hQkU5ISM6JCIyJlstMCY0IipSMCMhIzk3JCQiMF54QikzRlM5ISM4JCIybnhFTEF6TzQjISM5NyQkIjIjKVxDcnosU1giISM6JCIyTiZmQG0sX0tAISM5NyQkIjEicHNKOyhHbjkhIzkkIjF0PiM+ISlILDwjISM4NyQkIjJgSXdxSFE/WyIhIzokIjJgI0dvViVbPkAjISM5NyQkIjJ4KT0ocCVHSCZcIiEjOiQiMidlOFV5cGdcQSEjOTckJCIyLVg3IjNcVzQ6ISM6JCIyYTQqKW8iKVEqKkcjISM5NyQkIjFqYyIqeShvQV8iISM5JCIyJ0ctR3c3akVCISM5NyQkIjJvc0pwbClHTzohIzokIjIjUmhfOSNbcE8jISM5NyQkIjEsLWJwLVtcOiEjOSQiMigpM1piNT9eUyMhIzk3JCQiMTNwczAkcEtjIiEjOSQiMiZSKlJgIVxKWEMhIzk3JCQiMlEpZioqMzF2dzohIzokIjJGJTQySUImXFsjISM5NyQkIjJqYU9UR2szZiIhIzokIjIyMCtWWWlvXyMhIzk3JCQiMSkpcHVJdVgvOyEjOSQiMndHImVVeW5uRCEjOTckJCIxSnlYJ1FlJD07ISM5JCIxMmMqPjFFKjRFISM4NyQkIjFbcEJOVTlLOyEjOSQiMkVCeEJcIVFfRSEjOTckJCIyJikzQSYpKj4iW2siISM6JCIxQSgqelAlPT5wIyEjODckJCIyR0AuW29JJGY7ISM6JCIydFAoKTRuJip5dCMhIzk3JCQiMmtjIiozUDtCbiIhIzokIjJOKltfPS5sekYhIzk3JCQiMiZmW3I/PTsnbyIhIzokIjJqbyUqKW9tJlsjRyEjOTckJCIkcSIhIiIkIjE0QztdP3hxRyEjOC0lJ0xFR0VOREc2Iy0lKV9UWVBFU0VURzYjLUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkc2IjY1LUkjbXNHNiMvSSttb2R1bGVuYW1lRzYiSSxUeXBlc2V0dGluZ0dJKF9zeXNsaWJHNiI2I1EvTWF0aENvbnRhaW5lcjA2Ii8lJ2ZhbWlseUdRMFRpbWVzfk5ld35Sb21hbjYiLyUlc2l6ZUdRIzEyNiIvJSVib2xkR1EmZmFsc2U2Ii8lJ2l0YWxpY0dRJmZhbHNlNiIvJSp1bmRlcmxpbmVHUSZmYWxzZTYiLyUqc3Vic2NyaXB0R1EmZmFsc2U2Ii8lLHN1cGVyc2NyaXB0R1EmZmFsc2U2Ii8lK2ZvcmVncm91bmRHUShbMCwwLDBdNiIvJStiYWNrZ3JvdW5kR1EuWzI1NSwyNTUsMjU1XTYiLyUnb3BhcXVlR1EmZmFsc2U2Ii8lK2V4ZWN1dGFibGVHUSZmYWxzZTYiLyUpcmVhZG9ubHlHUSZmYWxzZTYiLyUpY29tcG9zZWRHUSZmYWxzZTYiLyUqY29udmVydGVkR1EmZmFsc2U2Ii8lK2ltc2VsZWN0ZWRHUSZmYWxzZTYiLyUscGxhY2Vob2xkZXJHUSZmYWxzZTYiLyU2c2VsZWN0aW9uLXBsYWNlaG9sZGVyR1EmZmFsc2U2Ii8lLG1hdGh2YXJpYW50R1Enbm9ybWFsNiItJSZDT0xPUkc2JiUkUkdCRyQiIzUhIiIkIiIhISIiJCIiISEiIi0lKkxJTkVTVFlMRUc2IyIiJS0lJVZJRVdHNiQ7JCEkcSIhIiIkIiRxIiEiIjskISRxIiEiIiQiJHEiISIiLSYlJl9BWElTRzYjIiIiNictJStfR1JJRExJTkVTRzYmLSUmQ09MT1JHNiYlJFJHQkckIiIhISIiJCIiISEiIiQiIiEhIiItJSpMSU5FU1RZTEVHNiMiIiEtJSpUSElDS05FU1NHNiMiIiEtJS1UUkFOU1BBUkVOQ1lHNiMkIiIhISIiLSUmQ09MT1JHNiYlJFJHQkckIiIhISIiJCIiISEiIiQiIiEhIiItJSpMSU5FU1RZTEVHNiMiIiEtJSpUSElDS05FU1NHNiMiIiEtJS1UUkFOU1BBUkVOQ1lHNiMkIiIhISIiLSYlJl9BWElTRzYjIiIjNictJStfR1JJRExJTkVTRzYmLSUmQ09MT1JHNiYlJFJHQkckIiIhISIiJCIiISEiIiQiIiEhIiItJSpMSU5FU1RZTEVHNiMiIiEtJSpUSElDS05FU1NHNiMiIiEtJS1UUkFOU1BBUkVOQ1lHNiMkIiIhISIiLSUmQ09MT1JHNiYlJFJHQkckIiIhISIiJCIiISEiIiQiIiEhIiItJSpMSU5FU1RZTEVHNiMiIiEtJSpUSElDS05FU1NHNiMiIiEtJS1UUkFOU1BBUkVOQ1lHNiMkIiIhISIiLSUrQVhFU0xBQkVMU0c2JS1JI21pRzYjL0krbW9kdWxlbmFtZUc2IkksVHlwZXNldHRpbmdHSShfc3lzbGliRzYiNjVRIng2Ii8lJ2ZhbWlseUdRKERFRkFVTFQ2Ii8lJXNpemVHUSMxMDYiLyUlYm9sZEdRJmZhbHNlNiIvJSdpdGFsaWNHUSV0cnVlNiIvJSp1bmRlcmxpbmVHUSZmYWxzZTYiLyUqc3Vic2NyaXB0R1EmZmFsc2U2Ii8lLHN1cGVyc2NyaXB0R1EmZmFsc2U2Ii8lK2ZvcmVncm91bmRHUShbMCwwLDBdNiIvJStiYWNrZ3JvdW5kR1EuWzI1NSwyNTUsMjU1XTYiLyUnb3BhcXVlR1EmZmFsc2U2Ii8lK2V4ZWN1dGFibGVHUSZmYWxzZTYiLyUpcmVhZG9ubHlHUSZmYWxzZTYiLyUpY29tcG9zZWRHUSZmYWxzZTYiLyUqY29udmVydGVkR1EmZmFsc2U2Ii8lK2ltc2VsZWN0ZWRHUSZmYWxzZTYiLyUscGxhY2Vob2xkZXJHUSZmYWxzZTYiLyU2c2VsZWN0aW9uLXBsYWNlaG9sZGVyR1EmZmFsc2U2Ii8lLG1hdGh2YXJpYW50R1EnaXRhbGljNiItSSNtaUc2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkc2IjY1USJ5NiIvJSdmYW1pbHlHUShERUZBVUxUNiIvJSVzaXplR1EjMTA2Ii8lJWJvbGRHUSZmYWxzZTYiLyUnaXRhbGljR1EldHJ1ZTYiLyUqdW5kZXJsaW5lR1EmZmFsc2U2Ii8lKnN1YnNjcmlwdEdRJmZhbHNlNiIvJSxzdXBlcnNjcmlwdEdRJmZhbHNlNiIvJStmb3JlZ3JvdW5kR1EoWzAsMCwwXTYiLyUrYmFja2dyb3VuZEdRLlsyNTUsMjU1LDI1NV02Ii8lJ29wYXF1ZUdRJmZhbHNlNiIvJStleGVjdXRhYmxlR1EmZmFsc2U2Ii8lKXJlYWRvbmx5R1EmZmFsc2U2Ii8lKWNvbXBvc2VkR1EmZmFsc2U2Ii8lKmNvbnZlcnRlZEdRJmZhbHNlNiIvJStpbXNlbGVjdGVkR1EmZmFsc2U2Ii8lLHBsYWNlaG9sZGVyR1EmZmFsc2U2Ii8lNnNlbGVjdGlvbi1wbGFjZWhvbGRlckdRJmZhbHNlNiIvJSxtYXRodmFyaWFudEdRJ2l0YWxpYzYiLSUlRk9OVEc2JSUoREVGQVVMVEclKERFRkFVTFRHIiM1LSUlUk9PVEc2Jy0lKUJPVU5EU19YRzYjJCIjXSEiIi0lKUJPVU5EU19ZRzYjJCIjXSEiIi0lLUJPVU5EU19XSURUSEc2IyQiJV1lISIiLSUuQk9VTkRTX0hFSUdIVEc2IyQiJXFiISIiLSUpQ0hJTERSRU5HNiI=Plot Settings:X Range:use DocumentTools in
# Enter Maple commands to be executed when the specified
# action is carried out on the component.
# Use:
# Do( %component_name );
# and
# Do( %component_name = value );
# to set and get properties of the component.
# You can also use arbitrary expressions
# involving components, e.g.:
# Do( %target = %input1 + 2*%input2 );
# Note the %-prefix to each component name.
# See ?CustomizingComponents for more information.
if CheckBox0 then
xr:=Do(%Slider0);
Do(%Slider1=%Slider0);
else
xr:=Do(%Slider0);
yr:=Do(%Slider1);
end if;
if RadioButton0 then
if CheckBox0 then
f_pl:=plot(func,x=MathContainer1-xr..MathContainer1+xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red,scaling=constrained);
s_pl:=plot(t_func_plot,x=MathContainer1-xr..MathContainer1+xr,y=-xr..xr,legend="Series",numpoints=250,color=green,scaling=constrained);
Do(%Plot0=display({f_pl,s_pl}));
else
f_pl:=plot(func,x=MathContainer1-xr..MathContainer1+xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red);
s_pl:=plot(t_func_plot,x=MathContainer1-xr..MathContainer1+xr,y=-yr..yr,legend="Series",numpoints=250,color=green);
Do(%Plot0=display({f_pl,s_pl}));
end if;
end if;
if RadioButton1 then
if CheckBox0 then
f_pl:=plot(func,x=-xr..+xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red,scaling=constrained);
s_pl:=plot(f1_func,x=-xr..xr,y=-xr..xr,legend="Series",numpoints=250,color=green,scaling=constrained);
Do(%Plot0=display({f_pl,s_pl}));
else
f_pl:=plot(func,x=-xr..xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red);
s_pl:=plot(f1_func,x=-xr..xr,y=-yr..yr,legend="Series",numpoints=250,color=green);
Do(%Plot0=display({f_pl,s_pl}));
end if;
end if;
if RadioButton2 then
if CheckBox0 then
f_pl:=plot(func,x=-xr..+xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red,scaling=constrained);
s_pl:=plot(f2_func_plot,x=-xr..xr,y=-xr..xr,legend="Series",numpoints=250,color=green,scaling=constrained);
Do(%Plot0=display({f_pl,s_pl}));
else
f_pl:=plot(func,x=-xr..xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red);
s_pl:=plot(f2_func_plot,x=-xr..xr,y=-yr..yr,legend="Series",numpoints=250,color=green);
Do(%Plot0=display({f_pl,s_pl}));
end if;
end if;
if RadioButton3 then
if CheckBox0 then
f_pl:=plot(func,x=Center-xr..Center+xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red,scaling=constrained);
s_pl:=plot(f3_func_plot,x=Center-xr..Center+xr,y=-xr..xr,legend="Series",numpoints=250,color=green,scaling=constrained);
Do(%Plot0=display({f_pl,s_pl}));
else
f_pl:=plot(func,x=Center-xr..Center+xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red);
s_pl:=plot(f3_func_plot,x=Center-xr..Center+xr,y=-yr..yr,legend="Series",numpoints=250,color=green);
Do(%Plot0=display({f_pl,s_pl}));
end if;
end if;
end use;
Y Range:use DocumentTools in
# Enter Maple commands to be executed when the specified
# action is carried out on the component.
# Use:
# Do( %component_name );
# and
# Do( %component_name = value );
# to set and get properties of the component.
# You can also use arbitrary expressions
# involving components, e.g.:
# Do( %target = %input1 + 2*%input2 );
# Note the %-prefix to each component name.
# See ?CustomizingComponents for more information.
if CheckBox0 then
xr:=Do(%Slider1);
Do(%Slider0=%Slider1);
else
xr:=Do(%Slider0);
yr:=Do(%Slider1);
end if;
if RadioButton0 then
if CheckBox0 then
f_pl:=plot(func,x=MathContainer1-xr..MathContainer1+xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red,scaling=constrained);
s_pl:=plot(t_func_plot,x=MathContainer1-xr..MathContainer1+xr,y=-xr..xr,legend="Series",numpoints=250,color=green,scaling=constrained);
Do(%Plot0=display({f_pl,s_pl}));
else
f_pl:=plot(func,x=MathContainer1-xr..MathContainer1+xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red);
s_pl:=plot(t_func_plot,x=MathContainer1-xr..MathContainer1+xr,y=-yr..yr,legend="Series",numpoints=250,color=green);
Do(%Plot0=display({f_pl,s_pl}));
end if;
end if;
if RadioButton1 then
if CheckBox0 then
f_pl:=plot(func,x=-xr..+xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red,scaling=constrained);
s_pl:=plot(f1_func,x=-xr..xr,y=-xr..xr,legend="Series",numpoints=250,color=green,scaling=constrained);
Do(%Plot0=display({f_pl,s_pl}));
else
f_pl:=plot(func,x=-xr..xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red);
s_pl:=plot(f1_func,x=-xr..xr,y=-yr..yr,legend="Series",numpoints=250,color=green);
Do(%Plot0=display({f_pl,s_pl}));
end if;
end if;
if RadioButton2 then
if CheckBox0 then
f_pl:=plot(func,x=-xr..+xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red,scaling=constrained);
s_pl:=plot(f2_func_plot,x=-xr..xr,y=-xr..xr,legend="Series",numpoints=250,color=green,scaling=constrained);
Do(%Plot0=display({f_pl,s_pl}));
else
f_pl:=plot(func,x=-xr..xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red);
s_pl:=plot(f2_func_plot,x=-xr..xr,y=-yr..yr,legend="Series",numpoints=250,color=green);
Do(%Plot0=display({f_pl,s_pl}));
end if;
end if;
if RadioButton3 then
if CheckBox0 then
f_pl:=plot(func,x=Center-xr..Center+xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red,scaling=constrained);
s_pl:=plot(f3_func_plot,x=Center-xr..Center+xr,y=-xr..xr,legend="Series",numpoints=250,color=green,scaling=constrained);
Do(%Plot0=display({f_pl,s_pl}));
else
f_pl:=plot(func,x=Center-xr..Center+xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red);
s_pl:=plot(f3_func_plot,x=Center-xr..Center+xr,y=-yr..yr,legend="Series",numpoints=250,color=green);
Do(%Plot0=display({f_pl,s_pl}));
end if;
end if;
end use;
use DocumentTools in
# Enter Maple commands to be executed when the specified
# action is carried out on the component.
# Use:
# Do( %component_name );
# and
# Do( %component_name = value );
# to set and get properties of the component.
# You can also use arbitrary expressions
# involving components, e.g.:
# Do( %target = %input1 + 2*%input2 );
# Note the %-prefix to each component name.
# See ?CustomizingComponents for more information.
CheckBox0:=Do(%CheckBox0);
if CheckBox0 then
xr:=Do(%Slider0);
Do(%Slider1=%Slider0);
else
xr:=Do(%Slider0);
yr:=Do(%Slider1);
end if;
if RadioButton0 then
if CheckBox0 then
f_pl:=plot(func,x=MathContainer1-xr..MathContainer1+xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red,scaling=constrained);
s_pl:=plot(t_func_plot,x=MathContainer1-xr..MathContainer1+xr,y=-xr..xr,legend="Series",numpoints=250,color=green,scaling=constrained);
Do(%Plot0=display({f_pl,s_pl}));
else
f_pl:=plot(func,x=MathContainer1-xr..MathContainer1+xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red);
s_pl:=plot(t_func_plot,x=MathContainer1-xr..MathContainer1+xr,y=-yr..yr,legend="Series",numpoints=250,color=green);
Do(%Plot0=display({f_pl,s_pl}));
end if;
end if;
if RadioButton1 then
if CheckBox0 then
f_pl:=plot(func,x=-xr..+xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red,scaling=constrained);
s_pl:=plot(f1_func,x=-xr..xr,y=-xr..xr,legend="Series",numpoints=250,color=green,scaling=constrained);
Do(%Plot0=display({f_pl,s_pl}));
else
f_pl:=plot(func,x=-xr..xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red);
s_pl:=plot(f1_func,x=-xr..xr,y=-yr..yr,legend="Series",numpoints=250,color=green);
Do(%Plot0=display({f_pl,s_pl}));
end if;
end if;
if RadioButton2 then
if CheckBox0 then
f_pl:=plot(func,x=-xr..+xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red,scaling=constrained);
s_pl:=plot(f2_func_plot,x=-xr..xr,y=-xr..xr,legend="Series",numpoints=250,color=green,scaling=constrained);
Do(%Plot0=display({f_pl,s_pl}));
else
f_pl:=plot(func,x=-xr..xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red);
s_pl:=plot(f2_func_plot,x=-xr..xr,y=-yr..yr,legend="Series",numpoints=250,color=green);
Do(%Plot0=display({f_pl,s_pl}));
end if;
end if;
if RadioButton3 then
if CheckBox0 then
f_pl:=plot(func,x=Center-xr..Center+xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red,scaling=constrained);
s_pl:=plot(f3_func_plot,x=Center-xr..Center+xr,y=-xr..xr,legend="Series",numpoints=250,color=green,scaling=constrained);
Do(%Plot0=display({f_pl,s_pl}));
else
f_pl:=plot(func,x=Center-xr..Center+xr,y=-xr..xr,legend="MathContainer0",numpoints=250,linestyle=dashdot,discont='true',color=red);
s_pl:=plot(f3_func_plot,x=Center-xr..Center+xr,y=-yr..yr,legend="Series",numpoints=250,color=green);
Do(%Plot0=display({f_pl,s_pl}));
end if;
end if;
end use;