Ley de Moore

Imágen 1. Fuente: ¿Qué es la Ley de Moore? de Seofilo (2015)

Regresión lineal en la Ley de Moore en microprocesadores gama premium

La Ley de Moore dice que cada 24 meses el número de transistores por unidad de superficie en circuitos integrados se duplicaba, para este análisis se agruparon datos de los que tenían los máximos números de transistores en menor espacio de todos los dispositivos de marcas comerciales año a año, tomado de distintas fuentes, desde que Intel sacó el primer microprocesador.

Importar

Importar paquetes

library(pacman)
p_load("readr", "tidyverse", "DT", "prettydoc")

Datos

moore <- read.csv("u1a9.csv")
names(moore)
## [1] "Anio"         "Transistores" "Tamanio"
  • Gráfico de correlación, gráfico de pares
head(moore)
##   Anio Transistores Tamanio
## 1 1974         4500    1500
## 2 1976         6500    1500
## 3 1978        29000    1500
## 4 1979        29000    1500
## 5 1982       134000    1500
## 6 1985       275000    1400
pairs(moore)

Modelar

Grado de correlación lineal

  • Matriz de coeficientes de correlación:
Anio <- as.vector(moore$Anio)
Anio <- as.numeric(moore$Anio)
Transistores <- as.vector(moore$Transistores)
Transistores <- as.numeric(moore$Transistores)
Tamanio <- as.vector(moore$Tamanio)
Tamanio <- as.numeric(moore$Tamanio)

moore1 <- data.frame(Anio, Transistores, Tamanio)
cor(moore)
##                    Anio Transistores    Tamanio
## Anio          1.0000000    0.6875046 -0.9504936
## Transistores  0.6875046    1.0000000 -0.4967278
## Tamanio      -0.9504936   -0.4967278  1.0000000

Cálculo y representación de la recta de mínimos cuadrados

regr <- lm(Tamanio ~ Transistores, data=moore1)
regr1 <- lm(Transistores ~ Anio, data=moore1)
summary (regr)
## 
## Call:
## lm(formula = Tamanio ~ Transistores, data = moore1)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -565.3 -338.1 -285.7  270.4  842.9 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)   6.572e+02  1.070e+02   6.141 1.25e-06 ***
## Transistores -9.245e-08  3.053e-08  -3.028  0.00523 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 504.4 on 28 degrees of freedom
## Multiple R-squared:  0.2467, Adjusted R-squared:  0.2198 
## F-statistic: 9.172 on 1 and 28 DF,  p-value: 0.005235
summary (regr1)
## 
## Call:
## lm(formula = Transistores ~ Anio, data = moore1)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.543e+09 -1.760e+09 -8.550e+08  1.505e+09  5.293e+09 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept) -3.170e+11  6.363e+10  -4.982 2.92e-05 ***
## Anio         1.594e+08  3.182e+07   5.010 2.70e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.268e+09 on 28 degrees of freedom
## Multiple R-squared:  0.4727, Adjusted R-squared:  0.4538 
## F-statistic:  25.1 on 1 and 28 DF,  p-value: 2.701e-05
  • Entonces, la recta de mínimos cuadrrados, sería la siguiente para Transistores/Tamaño:

\[ y = 6.572^2 + (-9.245*10e-8) x \] * Entonces, la recta de mínimos cuadrrados, sería la siguiente para Transistores/Año:

\[ y = -3.170^11 + 1.594^8 x \] ### Representación gráfica de las rectas

plot(moore1$Tamanio, moore$Transistores, xlab = "Tamaño de arquitectura en nm", ylab = "Transistores")
abline(regr)

plot(moore1$Anio, moore$Transistores, xlab = "Año", ylab = "Transistores")
abline(regr1)

### Modelación de valores

nuevos.anios <- data.frame(Anio = seq (2004, 20015))
predict(regr, nuevos.anios)
## Warning: 'newdata' had 18012 rows but variables found have 30 rows
##            1            2            3            4            5            6 
##  657.1590187  657.1588338  657.1567537  657.1567537  657.1470462  657.1340104 
##            7            8            9           10           11           12 
##  657.1363217  657.0503196  656.8728333  656.6509484  656.4660442  656.4660442 
##           13           14           15           16           17           18 
##  654.6262480  653.2764477  652.9990915  652.0745708  619.2540849  646.8048026 
##           19           20           21           22           23           24 
##  630.2558816  619.1616328  481.5004964  444.5196673  416.7840454  370.5580090 
##           25           26           27           28           29           30 
##  485.1985793  143.1259099    0.7497177  -82.4571478 -239.6256716 -267.3612935

Redacción Personal

Lo que Moore dijo que sucedería se cumple si tomamos de muestra todos los nuevos microprocesadores de equipos comerciales con estándares que van aplicados al público en general, sin embargo esto deja de suceder si lo aplicamos solamente con lo mejor de lo mejor que sale año con año (la muestra de este análisis), los cuales no necesariamente cumplen con estándares de nivel comercial al público en general, sino que son hechos para dispositivos de alto rendimiento que requieren operaciones más complejas.

Lo curioso de esta Ley es que hay intervención de más variables que las que se muestran en este análisis, los fabricantes e ingenieros han hecho estratégias para que esta ley se siga cumpliendo a propósito para que el consumo sea regular, se generen más ingresos y cada año que pasa se gasta menos en costos de producción.

Todo esto anterior se resume en que con cada año que pasa más transistores trabajan más rápido en un menor espacio por un costo más barato de producción con lo cuál a las empresas les conviene seguir desarrollando estas tecnologías bajo la Ley de Moore, que poco a poco se acerca a que deje de funcionar como una ley.

En datos estadísticos se puede ver con la imágen 1 de la regresión lineal de la Ley de Moore en todos los dispositivos que tiene un margen de error, que numéricamente es ciertamente confiable, lo cual no sucede con los datos del análisis realizado en esta actividad, los cuales arrojan datos demasiado dispersos a lo que su regresión lineal indican y a lo que la Ley de Moore afirma, con lo cual se puede decir que los microprocesadores de gama alta quedan completamente fuera de esta Ley y ya no deberían de considerarse para muestras estadísticas de esta ley.

Referencias Bibliográficas