¡Descarga Mapeo de área con Mathematica y más Ejercicios en PDF de Matemáticas Aplicadas solo en Docsity!
In[ ]:= datos11 = Import importa [ " C:\Users\Joshua Hernandez\Downloads\ constante Region región ( 1,2 ) .csv" ] ; grafs11 = Rest todos excepto el primero [ datos11 ] ; grafica11 = ListPlot3D representación 3D de lista [ grafs11 ] f11 = Interpolation interpolación [ grafs11 ] ; grad11 = { D deriva [ f11 [ x, y ] , x ] , D deriva [ f11 [ x, y ] , y ]} ; { h x0, y0 = 20; } = { 7050, 4000 } ; pts11 = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 6000 }] ; gotas11 = Graphics gráfico [{ Blue, azul Point punto [ pts11 ] , Red, rojo Line línea [ pts11 ]}] ; curva11 = ListContourPlot representación de contornos de lista [ grafs11 ] ;
{ x0, y0 } = { 7800, 3300 } ; hpts112 = 20; = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; gotas112 = Graphics gráfico [{ Blue, azul Point punto [ pts112 ] , Red, rojo Line línea [ pts112 ]}] ; { x0, y0 } = { 8800, 2000 } ; hpts113 = 20; = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; gotas113 = Graphics gráfico [{ Blue, azul Point punto [ pts113 ] , Red, rojo Line línea [ pts113 ]}] ;
{ x0, y0 } = { 5100, 3850 } ; hpts114 = 20; = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; gotas114 = Graphics gráfico [{ Blue, azul Point punto [ pts114 ] , Red, rojo Line línea [ pts114 ]}] ; Show muestra [ curva11, gotas11, gotas112, gotas113, gotas114 ]
Out[ ]=
Out[ ]=
(^05000 6000 7000 8000 )
1000
2000
3000
4000
In[ ]:= { h x0, y0 = 20; } = { 3400, 1200 } ; pts114 = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; g114 = Graphics gráfico [{ Blue, azul Point punto [ pts114 ] , Red, rojo Line línea [ pts114 ]}] ; { h x0, y0 = 20; } = { 3000, 1000 } ; pts113 = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; g113 = Graphics gráfico [{ Blue, azul Point punto [ pts113 ] , Red, rojo Line línea [ pts113 ]}] ; { x0, y0 } = { 2700, 600 } ; hpts112 = 20; = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; g112 = Graphics gráfico [{ Blue, azul Point punto [ pts112 ] , Red, rojo Line línea [ pts112 ]}] ; Show muestra [ curva11, g112, g113, g114 ]
Out[ ]=
(^00 1000 2000 3000 )
1000
2000
3000
4000
In[ ]:= datos11 = Import importa [ " C:\Users\Joshua Hernandez\Downloads\ constante Region región ( 1,3 ) .csv" ] ; grafs11 = Rest todos excepto el primero [ datos11 ] ; grafica11 = ListPlot3D representación 3D de lista [ grafs11 ] ; f11 = Interpolation interpolación [ grafs11 ] ; grad11 = { D deriva [ f11 [ x, y ] , x ] , D deriva [ f11 [ x, y ] , y ]} ; curva11 = ListContourPlot representación de contornos de lista [ grafs11 ] ;
In[ ]:= { h x0, y0 = 20; } = { 10 500, 2050 } ; pts114 = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; g114 = Graphics gráfico [{ Blue, azul Point punto [ pts114 ] , Red, rojo Line línea [ pts114 ]}] ; { h x0, y0 = 20; } = { 12 000, 1500 } ; pts113 = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; g113 = Graphics gráfico [{ Blue, azul Point punto [ pts113 ] , Red, rojo Line línea [ pts113 ]}] ; { x0, y0 } = { 11 200, 1500 } ; hpts112 = 20; = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; g112 = Graphics gráfico [{ Blue, azul Point punto [ pts112 ] , Red, rojo Line línea [ pts112 ]}] ;
Show muestra [ curva11, g112, g113, g114 ]
Out[ ]=
(^0) 10 000 11 000 12 000 13 000
1000
2000
3000
4000
In[ ]:= datos11 = Import importa [ " C:\Users\Joshua Hernandez\Downloads\ constante Region región ( 2,1 ) .csv" ] ; grafs11 = Rest todos excepto el primero [ datos11 ] ; grafica11 = ListPlot3D representación 3D de lista [ grafs11 ] ; f11 = Interpolation interpolación [ grafs11 ] ; grad11 = { D deriva [ f11 [ x, y ] , x ] , D deriva [ f11 [ x, y ] , y ]} ; curva11 = ListContourPlot representación de contornos de lista [ grafs11 ] ;
In[ ]:= { h x0, y0 = 20; } = { 7000, 7400 } ; pts112 = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; g112 = Graphics gráfico [{ Blue, azul Point punto [ pts112 ] , Red, rojo Line línea [ pts112 ]}] ; { h x0, y0 = 20; } = { 8500, 7300 } ; pts112 = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; g113 = Graphics gráfico [{ Blue, azul Point punto [ pts112 ] , Red, rojo Line línea [ pts112 ]}] ; { x0, y0 } = { 8000, 7600 } ; hpts112 = 20; = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; g114 = Graphics gráfico [{ Blue, azul Point punto [ pts112 ] , Red, rojo Line línea [ pts112 ]}] ;
Show muestra [ curva11, g112, g113, g114 ]
In[ ]:=
5000 6000 7000 8000 9000
5000
6000
7000
8000
9000
In[ ]:= datos11 = Import importa [ " C:\Users\Joshua Hernandez\Downloads\ constante Region región ( 2,3 ) .csv" ] ; grafs11 = Rest todos excepto el primero [ datos11 ] ; grafica11 = ListPlot3D representación 3D de lista [ grafs11 ] ; f11 = Interpolation interpolación [ grafs11 ] ; grad11 = { D deriva [ f11 [ x, y ] , x ] , D deriva [ f11 [ x, y ] , y ]} ; curva11 = ListContourPlot representación de contornos de lista [ grafs11 ] ;
In[ ]:= { h x0, y0 = 20; } = { 10 000, 7000 } ; pts112 = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; g112 = Graphics gráfico [{ Blue, azul Point punto [ pts112 ] , Red, rojo Line línea [ pts112 ]}] ; { h x0, y0 = 20; } = { 13 300, 7000 } ; pts112 = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; g113 = Graphics gráfico [{ Blue, azul Point punto [ pts112 ] , Red, rojo Line línea [ pts112 ]}] ; { x0, y0 } = { 11 650, 6320 } ; hpts112 = 20; = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; g114 = Graphics gráfico [{ Blue, azul Point punto [ pts112 ] , Red, rojo Line línea [ pts112 ]}] ;
Show muestra [ curva11, g112, g113, g114 ]
Out[ ]=
10 000 11 000 12 000 13 000
5000
6000
7000
8000
9000
In[ ]:= datos11 = Import importa [ " C:\Users\Joshua Hernandez\Downloads\ constante Region región ( 2,4 ) .csv" ] ; grafs11 = Rest todos excepto el primero [ datos11 ] ; grafica11 = ListPlot3D representación 3D de lista [ grafs11 ] ; f11 = Interpolation interpolación [ grafs11 ] ; grad11 = { D deriva [ f11 [ x, y ] , x ] , D deriva [ f11 [ x, y ] , y ]} ; curva11 = ListContourPlot representación de contornos de lista [ grafs11 ] ;
In[ ]:= { h x0, y0 = 20; } = { 600, 13 500 } ; pts112 = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; g112 = Graphics gráfico [{ Blue, azul Point punto [ pts112 ] , Red, rojo Line línea [ pts112 ]}] ; { h x0, y0 = 20; } = { 3000, 13 000 } ; pts112 = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; g113 = Graphics gráfico [{ Blue, azul Point punto [ pts112 ] , Red, rojo Line línea [ pts112 ]}] ; { x0, y0 } = { 2250, 13 550 } ; hpts112 = 20; = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; g114 = Graphics gráfico [{ Blue, azul Point punto [ pts112 ] , Red, rojo Line línea [ pts112 ]}] ;
Show muestra [ curva11, g112, g113, g114 ]
Out[ ]=
0 1000 2000 3000 4000
10 000
11 000
12 000
13 000
In[ ]:= datos11 = Import importa [ " C:\Users\Joshua Hernandez\Downloads\ constante Region región ( 3,2 ) .csv" ] ; grafs11 = Rest todos excepto el primero [ datos11 ] ; grafica11 = ListPlot3D representación 3D de lista [ grafs11 ] ; f11 = Interpolation interpolación [ grafs11 ] ; grad11 = { D deriva [ f11 [ x, y ] , x ] , D deriva [ f11 [ x, y ] , y ]} ; curva11 = ListContourPlot representación de contornos de lista [ grafs11 ] ;
In[ ]:= { h x0, y0 = 20; } = { 4700, 13 600 } ; pts112 = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; g112 = Graphics gráfico [{ Blue, azul Point punto [ pts112 ] , Red, rojo Line línea [ pts112 ]}] ; { x0, y0 } = { 6850, 13 400 } ; hpts112 = 20; = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; g113 = Graphics gráfico [{ Blue, azul Point punto [ pts112 ] , Red, rojo Line línea [ pts112 ]}] ; { h x0, y0 = 20; } = { 8800, 12 800 } ; pts112 = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; g114 = Graphics gráfico [{ Blue, azul Point punto [ pts112 ] , Red, rojo Line línea [ pts112 ]}] ;
Show muestra [ curva11, g112, g113, g114 ]
Out[ ]=
5000 6000 7000 8000 9000
10 000
11 000
12 000
13 000
In[ ]:= { h x0, y0 = 20; } = { 10 300, 13 600 } ; pts112 = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; g112 = Graphics gráfico [{ Blue, azul Point punto [ pts112 ] , Red, rojo Line línea [ pts112 ]}] ; { h x0, y0 = 20; } = { 11 900, 13 150 } ; pts112 = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; g113 = Graphics gráfico [{ Blue, azul Point punto [ pts112 ] , Red, rojo Line línea [ pts112 ]}] ; { x0, y0 } = { 12 570, 12 200 } ; hpts112 = 20; = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; g114 = Graphics gráfico [{ Blue, azul Point punto [ pts112 ] , Red, rojo Line línea [ pts112 ]}] ; { x0, y0 } = { 13 400, 11 500 } ; hpts112 = 20; = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; g115 = Graphics gráfico [{ Blue, azul Point punto [ pts112 ] , Red, rojo Line línea [ pts112 ]}] ;
Show muestra [ curva11, g112, g113, g114, g115 ]
Out[ ]=
10 000 11 000 12 000 13 000
10 000
11 000
12 000
13 000
In[ ]:= datos11 = Import importa [ " C:\Users\Joshua Hernandez\Downloads\ constante Region región ( 3,4 ) .csv" ] ; grafs11 = Rest todos excepto el primero [ datos11 ] ; grafica11 = ListPlot3D representación 3D de lista [ grafs11 ] ; f11 = Interpolation interpolación [ grafs11 ] ; grad11 = { D deriva [ f11 [ x, y ] , x ] , D deriva [ f11 [ x, y ] , y ]} ; curva11 = ListContourPlot representación de contornos de lista [ grafs11 ] ;
In[ ]:= datos11 = Import importa [ " C:\Users\Joshua Hernandez\Downloads\ constante Region región ( 4,1 ) .csv" ] ; grafs11 = Rest todos excepto el primero [ datos11 ] ; grafica11 = ListPlot3D representación 3D de lista [ grafs11 ] ; f11 = Interpolation interpolación [ grafs11 ] ; grad11 = { D deriva [ f11 [ x, y ] , x ] , D deriva [ f11 [ x, y ] , y ]} ; curva11 = ListContourPlot representación de contornos de lista [ grafs11 ]
Out[ ]=
0 1000 2000 3000 4000
14 000
15 000
16 000
17 000
18 000
In[ ]:=
In[ ]:= { h x0, y0 = 20; } = { 800, 16 000 } ; pts112 = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; g112 = Graphics gráfico [{ Blue, azul Point punto [ pts112 ] , Red, rojo Line línea [ pts112 ]}] ; { h x0, y0 = 20; } = { 2000, 17 900 } ; pts112 = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; g113 = Graphics gráfico [{ Blue, azul Point punto [ pts112 ] , Red, rojo Line línea [ pts112 ]}] ; { x0, y0 } = { 3900, 16 400 } ; hpts112 = 20; = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; g114 = Graphics gráfico [{ Blue, azul Point punto [ pts112 ] , Red, rojo Line línea [ pts112 ]}] ; { x0, y0 } = { 4100, 16 000 } ; hpts112 = 20; = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; g115 = Graphics gráfico [{ Blue, azul Point punto [ pts112 ] , Red, rojo Line línea [ pts112 ]}] ;
Show muestra [ curva11, g112, g113, g114, g115 ]
Out[ ]=
0 1000 2000 3000 4000
14 000
15 000
16 000
17 000
18 000
In[ ]:= { h x0, y0 = 20; } = { 5300, 16 500 } ; pts112 = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; g112 = Graphics gráfico [{ Blue, azul Point punto [ pts112 ] , Red, rojo Line línea [ pts112 ]}] ; { h x0, y0 = 20; } = { 6900, 16 400 } ; pts112 = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; g113 = Graphics gráfico [{ Blue, azul Point punto [ pts112 ] , Red, rojo Line línea [ pts112 ]}] ; { x0, y0 } = { 8000, 15 000 } ; hpts112 = 20; = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; g114 = Graphics gráfico [{ Blue, azul Point punto [ pts112 ] , Red, rojo Line línea [ pts112 ]}] ; { x0, y0 } = { 6900, 17 200 } ; hpts112 = 20; = Table tabla [{ x0, y0 } = { x0, y0 } - h ***** grad11 /. { x → x0, y → y0 } , { i, 1, 8000 }] ; g115 = Graphics gráfico [{ Blue, azul Point punto [ pts112 ] , Red, rojo Line línea [ pts112 ]}] ;
Show muestra [ curva11, g112, g113, g114, g115 ]
Out[ ]=
5000 6000 7000 8000 9000
14 000
15 000
16 000
17 000
18 000
datos11 = Import importa [ " C:\Users\Joshua Hernandez\Downloads\ constante Region región ( 4,3 ) .csv" ] ; grafs11 = Rest todos excepto el primero [ datos11 ] ; grafica11 = ListPlot3D representación 3D de lista [ grafs11 ] ; f11 = Interpolation interpolación [ grafs11 ] ; grad11 = { D deriva [ f11 [ x, y ] , x ] , D deriva [ f11 [ x, y ] , y ]} ; curva11 = ListContourPlot representación de contornos de lista [ grafs11 ] ;
