2 ##########################################################################
4 ##########################################################################
6 # Variacion de la resistencia con la temperatura. #
8 ##########################################################################
9 # Script para gnuplot para graficar esta variacion #
10 ##########################################################################
12 ################### RELACION ENTRE R Y T (To=293) ########################
14 # Setea la terminal como postscript para generar la salida.
15 set terminal postscript enhanced color
17 # Dibuja la referencia de las funciones abajo
18 set key bottom spacing 2.5
20 # Setea el archivo de salida
21 set output 'tp2-To=293.ps'
23 # Define la función con las que aproxima por medio de cuadrados mínimos
26 # Setea el formato de la salida
28 set title "Variacion de la resistencia con la temperatura para T_{0}=293K"
29 set xlabel "T (temperatura)"
30 set ylabel "R (resistencia)"
32 # Calcula la recta que mas se aproxima a los puntos por cuadrados mínimos
33 # teniendo en cuenta los errores
34 fit r(x) 'tp2.dat' using 13:7:9 via a, b
36 # Funciones calculada a partir de una serie de Taylor
37 R(x) = -0.142 + 2.53e-3*x
39 # Dibuja los puntos y la recta
40 plot "tp2.dat" using 13:7:($13+$14):($13-$14):($7+$8):($7-$8) title "Mediciones con sus errores" with xyerrorbars, \
41 r(x) title "Recta que mejor se aproxima por cuadrados minimos: R_{(T)} = 2,94e^{-3}*T - 1,48", \
42 R(x) title "Recta calculada a partir de la serie de Taylor en T_{0}=293K: R_{(T)} = 2,53e^{-3}*T - 0,14"
44 ################### RELACION ENTRE R Y T (To=2553) #######################
46 # Setea la terminal como postscript para generar la salida.
47 set terminal postscript enhanced color
49 # Setea el archivo de salida
50 set output 'tp2-To=2553.ps'
52 # Define la función con las que aproxima por medio de cuadrados mínimos
55 # Setea el formato de la salida
57 set title "Variacion de la resistencia con la temperatura para T_{0}=2553K"
58 set xlabel "T (temperatura)"
59 set ylabel "R (resistencia)"
61 # Calcula la recta que mas se aproxima a los puntos por cuadrados mínimos
62 # teniendo en cuenta los errores (desde el dato 1 hasta el 10)
63 fit r(x) 'tp2.dat' every ::0::9 using 13:7:9 via a, b
65 # Funciones calculada a partir de una serie de Taylor
66 R(x) = -1.57 + 3.01e-3*x
68 # Dibuja los puntos y la recta
69 plot "tp2.dat" every ::0::9 using 13:7:($13+$14):($13-$14):($7+$8):($7-$8) title "Mediciones con sus errores" with xyerrorbars, \
70 r(x) title "Recta que mejor se aproxima por cuadrados minimos: R_{(T)} = 2,94e^{-3}*T - 1,48", \
71 R(x) title "Recta calculada a partir de la serie de Taylor en T_{0}=2553K: R_{(T)} = 3,01e^{-3}*T - 1,57"