Sistema de Ecuaciones: Compatible Determinado de 2x2 y 3x3physicsleninac@hotmail.com
Ejemplos : Ecuaci\303\263n 1 = 3*x+5*y=10,y/3+(2/5)*x=1/2,y=2*x+1use DocumentTools in
Do(%eq1=%ListBox0);
end use;
Ecuaci\303\263n 2 = 6*x-4*y=-6,(5/3)*x+2*y=1,y=-3*x+4use DocumentTools in
Do(%eq2=%ListBox1);
end use;
Inserte las ecuaciones: Ecuaci\303\263n 1 = Ecuaci\303\263n 2 = use DocumentTools in
Do(%eq1=NULL);
Do(%eq2=NULL);
Do(%solucs=NULL);
Do(%solucsn=NULL);
Do(%visgraf=plots[display](plots[textplot]([0,0,""]),axes=none));
Do(%zplot=plots[display](plots[textplot]([0,0,""]),axes=none));
end use;
Instrucciones - Primero use los ejemplos seleccionando una ecuaci\303\263n por cada lista; enseguida click en el bot\303\263n: Click aqu\303\255 para hallar la soluci\303\263n y graficar. Para ejercicios nuevos: - Click en el bot\303\263n reset - Ingrese las ecuaciones en los campo vacios 1 y 2 (solo para ecuciones que dependen de "x" e "y") - Click en el bot\303\263n: Click aqu\303\255 para hallar la soluci\303\263n y graficar. Listo.JSFHuse DocumentTools in
ec1:=Do(%eq1):#asignaci\303\263n de la ecuaci\303\263n 1
ec2:=Do(%eq2):#asignaci\303\263n de la ecuaci\303\263n 2
slns:=solve({ec1,ec2},{x,y}):# resuelve el sistema de ecuaciones
Do(%solucs=simplify(slns));#salida sin decimales
Do(%solucsn=evalf((slns),5));#salida con decimales
gse:=implicitplot({ec1,ec2},x=-20..20,y=-20..20,gridlines=true);#gr\303\241fica del sistema de ecuaciones
p1:=eval(x,slns);#asignaci\303\263n de la variable x
p2:=eval(y,slns);#asignaci\303\263n de la variable y
gp:=textplot([p1,p2,('typeset')("Punto de Intersecci\303\263n.",[x,y])],'align'='right'):#gr\303\241fica del punto de intersecci\303\263n
pint:=point([p1,p2],color=black,symbol=cross,color=blue,symbolsize=35);#gr\303\241fica de la marca de intersecci\303\263n
glinex:=line([p1,p2],[p1,0],color=blue,linestyle=dash);#gr\303\241fica de linea punteada "x"
gliney:=line([p1,p2],[0,p2],color=blue,linestyle=dash);#gr\303\241fica de linea punteada "y"
Do(%visgraf=display({gse,pint,gp},title="Gr\303\241fica de un sistema de ecuaciones"));#visualizaci\303\263n de las gr\303\241ficas
Do(%zplot=display({gse,pint,gp,glinex,gliney},view=[-0.005+p1..0.005+p1,-0.005+p2..0.005+p2],gridlines=false));#zoom en el punto x,y
end use;
= JSFHNiktJSVURVhURzYkNyQkIiIhISIiJCIiISEiIi0lKV9UWVBFU0VURzYjLUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkc2IjY1LUkjbXNHNiMvSSttb2R1bGVuYW1lRzYiSSxUeXBlc2V0dGluZ0dJKF9zeXNsaWJHNiI2I1EhNiIvJSdmYW1pbHlHUTBUaW1lc35OZXd+Um9tYW42Ii8lJXNpemVHUSMxMjYiLyUlYm9sZEdRJmZhbHNlNiIvJSdpdGFsaWNHUSZmYWxzZTYiLyUqdW5kZXJsaW5lR1EmZmFsc2U2Ii8lKnN1YnNjcmlwdEdRJmZhbHNlNiIvJSxzdXBlcnNjcmlwdEdRJmZhbHNlNiIvJStmb3JlZ3JvdW5kR1EoWzAsMCwwXTYiLyUrYmFja2dyb3VuZEdRLlsyNTUsMjU1LDI1NV02Ii8lJ29wYXF1ZUdRJmZhbHNlNiIvJStleGVjdXRhYmxlR1EmZmFsc2U2Ii8lKXJlYWRvbmx5R1EmZmFsc2U2Ii8lKWNvbXBvc2VkR1EmZmFsc2U2Ii8lKmNvbnZlcnRlZEdRJmZhbHNlNiIvJStpbXNlbGVjdGVkR1EmZmFsc2U2Ii8lLHBsYWNlaG9sZGVyR1EmZmFsc2U2Ii8lNnNlbGVjdGlvbi1wbGFjZWhvbGRlckdRJmZhbHNlNiIvJSxtYXRodmFyaWFudEdRJ25vcm1hbDYiLSYlJl9BWElTRzYjIiIiNiYtJSZDT0xPUkc2JiUkUkdCRyQiIiEhIiIkIiIhISIiJCIiISEiIi0lKkxJTkVTVFlMRUc2IyIiIS0lKlRISUNLTkVTU0c2IyIiIS0lLVRSQU5TUEFSRU5DWUc2IyQiIiEhIiItJiUmX0FYSVNHNiMiIiM2Ji0lJkNPTE9SRzYmJSRSR0JHJCIiISEiIiQiIiEhIiIkIiIhISIiLSUqTElORVNUWUxFRzYjIiIhLSUqVEhJQ0tORVNTRzYjIiIhLSUtVFJBTlNQQVJFTkNZRzYjJCIiISEiIi0lKkFYRVNTVFlMRUc2IyUlTk9ORUctJSlfVklTSUJMRUc2IyIiIi0lJVJPT1RHNictJSlCT1VORFNfWEc2IyQiI10hIiItJSlCT1VORFNfWUc2IyQiI10hIiItJS1CT1VORFNfV0lEVEhHNiMkIiVdZSEiIi0lLkJPVU5EU19IRUlHSFRHNiMkIiVdUSEiIi0lKUNISUxEUkVORzYiLSUrQU5OT1RBVElPTkc2Jy0lKUJPVU5EU19YRzYjJCIiISEiIi0lKUJPVU5EU19ZRzYjJCIiISEiIi0lLUJPVU5EU19XSURUSEc2IyQiJStTISIiLSUuQk9VTkRTX0hFSUdIVEc2IyQiJStTISIiLSUpQ0hJTERSRU5HNiI=NiI=NiktJSVURVhURzYkNyQkIiIhISIiJCIiISEiIi0lKV9UWVBFU0VURzYjLUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkc2IjY1LUkjbXNHNiMvSSttb2R1bGVuYW1lRzYiSSxUeXBlc2V0dGluZ0dJKF9zeXNsaWJHNiI2I1EhNiIvJSdmYW1pbHlHUTBUaW1lc35OZXd+Um9tYW42Ii8lJXNpemVHUSMxMjYiLyUlYm9sZEdRJmZhbHNlNiIvJSdpdGFsaWNHUSZmYWxzZTYiLyUqdW5kZXJsaW5lR1EmZmFsc2U2Ii8lKnN1YnNjcmlwdEdRJmZhbHNlNiIvJSxzdXBlcnNjcmlwdEdRJmZhbHNlNiIvJStmb3JlZ3JvdW5kR1EoWzAsMCwwXTYiLyUrYmFja2dyb3VuZEdRLlsyNTUsMjU1LDI1NV02Ii8lJ29wYXF1ZUdRJmZhbHNlNiIvJStleGVjdXRhYmxlR1EmZmFsc2U2Ii8lKXJlYWRvbmx5R1EmZmFsc2U2Ii8lKWNvbXBvc2VkR1EmZmFsc2U2Ii8lKmNvbnZlcnRlZEdRJmZhbHNlNiIvJStpbXNlbGVjdGVkR1EmZmFsc2U2Ii8lLHBsYWNlaG9sZGVyR1EmZmFsc2U2Ii8lNnNlbGVjdGlvbi1wbGFjZWhvbGRlckdRJmZhbHNlNiIvJSxtYXRodmFyaWFudEdRJ25vcm1hbDYiLSYlJl9BWElTRzYjIiIiNiYtJSZDT0xPUkc2JiUkUkdCRyQiIiEhIiIkIiIhISIiJCIiISEiIi0lKkxJTkVTVFlMRUc2IyIiIS0lKlRISUNLTkVTU0c2IyIiIS0lLVRSQU5TUEFSRU5DWUc2IyQiIiEhIiItJiUmX0FYSVNHNiMiIiM2Ji0lJkNPTE9SRzYmJSRSR0JHJCIiISEiIiQiIiEhIiIkIiIhISIiLSUqTElORVNUWUxFRzYjIiIhLSUqVEhJQ0tORVNTRzYjIiIhLSUtVFJBTlNQQVJFTkNZRzYjJCIiISEiIi0lKkFYRVNTVFlMRUc2IyUlTk9ORUctJSlfVklTSUJMRUc2IyIiIi0lJVJPT1RHNictJSlCT1VORFNfWEc2IyQiI10hIiItJSlCT1VORFNfWUc2IyQiI10hIiItJS1CT1VORFNfV0lEVEhHNiMkIiVdRyEiIi0lLkJPVU5EU19IRUlHSFRHNiMkIiVdOCEiIi0lKUNISUxEUkVORzYiLSUrQU5OT1RBVElPTkc2Jy0lKUJPVU5EU19YRzYjJCIiISEiIi0lKUJPVU5EU19ZRzYjJCIiISEiIi0lLUJPVU5EU19XSURUSEc2IyQiJStTISIiLSUuQk9VTkRTX0hFSUdIVEc2IyQiJStTISIiLSUpQ0hJTERSRU5HNiI=NiI=
LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYjLUkjbWlHRiQ2I1EhRic=Sistema de Ecuaciones de 3x3
Ejemplos : Ec. 1 = 8*x-4*y+3*z=-8,5*x+6*y+z=10use DocumentTools in
Do(%eq3=%ListBox2);
end use;
Ec. 2 = 8*x+6*y+2*z=10,3*x+2*y+2*z=15use DocumentTools in
Do(%eq4=%ListBox3);
end use;
Ec. 3 = -3*x+6*y+z=8,10*x+12*y+3*z=-4use DocumentTools in
Do(%eq5=%ListBox4);
end use;
Inserte las ecuaciones: Ecuaci\303\263n 1 = Ecuaci\303\263n 2 = Ecuaci\303\262n 3 = use DocumentTools in
Do(%eq3=NULL);
Do(%eq4=NULL);
Do(%eq5=NULL);
Do(%solucstv=NULL);
Do(%solucstvn=NULL);
Do(%CheckBox0=NULL);
Do(%visgraftv=plots[display](plots[textplot]([0,0,""]),axes=none));
end use;
Instrucciones: Las mismas que la anterior.use DocumentTools in
ec3:=Do(%eq3):#asignaci\303\263n de la ecuaci\303\263n 1
ec4:=Do(%eq4):#asignaci\303\263n de la ecuaci\303\263n 2
ec5:=Do(%eq5):#asignaci\303\263n de la ecuaci\303\263n 3
slnstv:=solve({ec3,ec4,ec5},{x,y,z}):# resuelve el sistema de ecuaciones
Do(%solucstv=simplify(slnstv));#salida sin decimales
Do(%solucstvn=evalf((slnstv),5));#salida con decimales
gsetv:=implicitplot3d({ec3,ec4,ec5},x=-20..20,y=-20..20,z=-20..20,grid=[13,13,13]);#gr\303\241fica del sistema de ecuaciones
Do(%visgraftv=display({gsetv},title="Gr\303\241fica de un sistema de ecuaciones de 3x3"));#visualizaci\303\263n de las gr\303\241ficas
end use;
= LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYjLUkjbWlHRiQ2I1EhRic=NiktJSVURVhURzYkNyQkIiIhISIiJCIiISEiIi0lKV9UWVBFU0VURzYjLUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkc2IjY1LUkjbXNHNiMvSSttb2R1bGVuYW1lRzYiSSxUeXBlc2V0dGluZ0dJKF9zeXNsaWJHNiI2I1EhNiIvJSdmYW1pbHlHUTBUaW1lc35OZXd+Um9tYW42Ii8lJXNpemVHUSMxMjYiLyUlYm9sZEdRJmZhbHNlNiIvJSdpdGFsaWNHUSZmYWxzZTYiLyUqdW5kZXJsaW5lR1EmZmFsc2U2Ii8lKnN1YnNjcmlwdEdRJmZhbHNlNiIvJSxzdXBlcnNjcmlwdEdRJmZhbHNlNiIvJStmb3JlZ3JvdW5kR1EoWzAsMCwwXTYiLyUrYmFja2dyb3VuZEdRLlsyNTUsMjU1LDI1NV02Ii8lJ29wYXF1ZUdRJmZhbHNlNiIvJStleGVjdXRhYmxlR1EmZmFsc2U2Ii8lKXJlYWRvbmx5R1EmZmFsc2U2Ii8lKWNvbXBvc2VkR1EmZmFsc2U2Ii8lKmNvbnZlcnRlZEdRJmZhbHNlNiIvJStpbXNlbGVjdGVkR1EmZmFsc2U2Ii8lLHBsYWNlaG9sZGVyR1EmZmFsc2U2Ii8lNnNlbGVjdGlvbi1wbGFjZWhvbGRlckdRJmZhbHNlNiIvJSxtYXRodmFyaWFudEdRJ25vcm1hbDYiLSYlJl9BWElTRzYjIiIiNiYtJSZDT0xPUkc2JiUkUkdCRyQiIiEhIiIkIiIhISIiJCIiISEiIi0lKkxJTkVTVFlMRUc2IyIiIS0lKlRISUNLTkVTU0c2IyIiIS0lLVRSQU5TUEFSRU5DWUc2IyQiIiEhIiItJiUmX0FYSVNHNiMiIiM2Ji0lJkNPTE9SRzYmJSRSR0JHJCIiISEiIiQiIiEhIiIkIiIhISIiLSUqTElORVNUWUxFRzYjIiIhLSUqVEhJQ0tORVNTRzYjIiIhLSUtVFJBTlNQQVJFTkNZRzYjJCIiISEiIi0lKkFYRVNTVFlMRUc2IyUlTk9ORUctJSlfVklTSUJMRUc2IyIiIi0lJVJPT1RHNictJSlCT1VORFNfWEc2IyQiI10hIiItJSlCT1VORFNfWUc2IyQiI10hIiItJS1CT1VORFNfV0lEVEhHNiMkIiVxXCEiIi0lLkJPVU5EU19IRUlHSFRHNiMkIiVnSyEiIi0lKUNISUxEUkVORzYiLSUrQU5OT1RBVElPTkc2Jy0lKUJPVU5EU19YRzYjJCIiISEiIi0lKUJPVU5EU19ZRzYjJCIiISEiIi0lLUJPVU5EU19XSURUSEc2IyQiJStTISIiLSUuQk9VTkRTX0hFSUdIVEc2IyQiJStTISIiLSUpQ0hJTERSRU5HNiI=NiI=use DocumentTools in
proctd:=proc()
if GetProperty("CheckBox0",value) = "true" then
SetProperty("visgraftv",value,implicitplot3d({ec3,ec4,ec5},x=-20..20,y=-20..20,z=-20..20,style=surface));
else
SetProperty("visgraftv",value,implicitplot3d({ec3,ec4,ec5},x=-20..20,y=-20..20,z=-20..20,grid=[13,13,13]));
end if;
end proc:
proctd();
end use;