PK m:JBH mimetypetext/x-wxmathmlPK m:J$
format.txt
This file contains a wxMaxima session.
.wxmx files are .xml-based files contained in a .zip container like .odt
or .docx files. After changing their name to end in .zip the .xml and
other files inside them can can be extracted using any .zip file viewer.
The reason why part of a .wxmx file still might seem to make sense in a
ordinary text viewer is that the text portion of .wxmx by default
isn't compressed: This way if only one line of the text changes this won't
(with a high probability) change the value of half of the bytes of the
.zip archive making the .wxmx file more version-control-friendly.
wxMaxima can be downloaded from https://github.com/andrejv/wxmaxima.
PK m:J1 content.xml
kill(all)$numer:true$ decimales:6$ prec:10^decimales$a:0$ b:1$ N:10$h:(b-a)/N$ t[0]:0$ y[0]:1$y(t):=.5*exp(-2*t)+.5*exp(-4*t)$define(f0(t,y),exp(-2*t)-4*y);define(f1(t,y),diff(f0(t,y),t,1)+ diff(f0(t,y),y,1)*f0(t,y));define(f2(t,y),diff(f1(t,y),t,1)+ diff(f1(t,y),y,1)*f0(t,y));define(f3(t,y),diff(f2(t,y),t,1)+ diff(f2(t,y),y,1)*f0(t,y));print("i "," Analítica"," Taylor")$for k:0 thru N do ( t[k]:t[0]+k*h, t[k+1]:t[0]+h, y[k+1]:y[k]+h*(f0(t[k],y[k]) +(h/2)*f1(t[k],y[k]) +(h^2/6)*f2(t[k],y[k]) +(h^3/24)*f3(t[k],y[k])), print(round(t[k]*10)/10," ", float(round(y(t[k])*prec)/prec)," ", float(round(y[k]*prec)/prec)) )$wxdraw2d(color=red,key="Solución Taylor",point_type=filled_circle,point_size=1,points(makelist([t[j],y[j]],j,0,N)),color=blue,key="Solución Exacta",explicit(y(t),t,a,b),grid=true,xlabel="t",ylabel="y",title="Solución analítica versus solución numérica");PK m:Jw? ?
image1.pngPNG
IHDR X W bKGD IDATx{|?r5Ѫ(B
PxY]ڨ5E)]lxF6Oѥ}ص;f6!.VF%"10{I;sv~jg|d3gflDDDDV5 BHDDBHDDBHDDBHDDBHDDBHDDBHDDBHDDBHDDBHDDBHDDBHDDBHDDBHDDBHDDBHDDBHDDBHDDBHDDBHDDBH}c@nz6->Iڮ@ --2ź3hlN((gX-MWl6Mz3Ar>|~.>&P?ΐDZ[[35NRpX|X,Kx