ファミリープランの場合

Nexus one

Familyプラン(2台)の場合530ドルのSIMロックフリーを買った方が安い。

> fx <- function(x){c((529.99 * 2) + 109.99 * x, 179.99 * 2 + 79.99 * x * 2) + 70}
> m <- t(sapply(1:24, fx))
> m <- cbind(m, m[,2] - m[,1])
> m
         [,1]    [,2]    [,3]
 [1,] 1239.97  589.96 -650.01
 [2,] 1349.96  749.94 -600.02
 [3,] 1459.95  909.92 -550.03
 [4,] 1569.94 1069.90 -500.04
 [5,] 1679.93 1229.88 -450.05
 [6,] 1789.92 1389.86 -400.06
 [7,] 1899.91 1549.84 -350.07
 [8,] 2009.90 1709.82 -300.08
 [9,] 2119.89 1869.80 -250.09
[10,] 2229.88 2029.78 -200.10
[11,] 2339.87 2189.76 -150.11
[12,] 2449.86 2349.74 -100.12
[13,] 2559.85 2509.72  -50.13
[14,] 2669.84 2669.70   -0.14
[15,] 2779.83 2829.68   49.85
[16,] 2889.82 2989.66   99.84
[17,] 2999.81 3149.64  149.83
[18,] 3109.80 3309.62  199.82
[19,] 3219.79 3469.60  249.81
[20,] 3329.78 3629.58  299.80
[21,] 3439.77 3789.56  349.79
[22,] 3549.76 3949.54  399.78
[23,] 3659.75 4109.52  449.77
[24,] 3769.74 4269.50  499.76