Economics on 格物堂

黄牛党是价格管制体制下的需求调节器

Wed, 11 Jan 2012 00:00:00 +0000

最近因为回家抢票的事情，我认真思考了一下黄牛党的问题，觉得黄牛党的存在是十分必要的。

一直以来，国人把车票难买归根于黄牛党的存在，其中误会深矣。从经济学角度讲，决定车票是否难买取决于两个方面：一是需求方面，即有多少人需要而能购买车票；二是供给方面，即铁道部有多少车票。

倘若车票市场是自由市场，则两者总能够达到一个平衡。然而，车票市场不是自由市场，原因是政府对车票设定了价格上限，这一举措是有政治考量的，这是题外话。然而，这一举措，必然导致过高的车票需求，实际上，使得市场没有达到自己的均衡。市场不是白痴，它总会想办法调解这个局面，于是，一个崭新的职业诞生了，那就是黄牛党。“黄牛党”三个字出现以来，一直遭人鄙视。然而，其在经济学上却是有意义的。按照自由市场原理，市场上存在超额需求，必然要导致价格上涨，以在更高的价格水平达到均衡。然而，限价导致车票不能明着涨，那好，黄牛党可以让车票价格暗地里涨，而暗地里涨上去的价格，事实上，有助于构建一个新的均衡点。

那些靠自己排队去购买更多车票的人其实并没有什么过错。当然，如果法令规定不许低价买票，高价卖票那黄牛党就有过错了，因为他们违反法令了。现代社会下，所有人都应该遵守法令，除非该法令因为不合理而被废止。

我是想说，这样的法令规定也许就是不合理的。当然了，也有一种黄牛党是应该打击的，那就是利用自己的职权的黄牛党。打击这些人的原因，不是因为他们作为黄牛党而倒票，乃在于他们滥用职权。滥用职权谋取私利现代社会最应该命令禁止，并应予以严厉打击的。

打击黄牛党并不能很好的解决售票问题。解决售票问题最根本的途径似乎乃在于增加铁路供给，多建设南北铁路大动脉。不过，这又是具有风险的，因为中国人口的南北移动带有明显的季节性，倘若为了缓解季节性的车票压力，而铺设过多的南北铁路，必然导致南北铁路在其余时间入不敷出，最终导致亏损，无论是政府还是市场决策，都是不划算的。

因此，多建设南北动脉不能解决根本问题。也就是供给方面似乎无有可为了。那就从需求方面看看吧。车票的需求短期内是绝对刚性的，因为中国人不可能在春节期间都不回家过年。在长期内是可能的，因为到时候中国的文化会发生改变，或许不再过春节了。还有一种可能，就是届时中国的社会发展已经达到了区域平衡，即河南、四川的人不需要跑到北京来工作了，因为当地工业已经发展到了足以吸纳当地劳动力的地步，没有工作地点和家乡的分离，也就不再有过节时候的大量需求了，届时车票也就不成问题了。看来看去，所有问题的解，还在于发展经济，平衡发展经济。

如果你能看到这里，恭喜你，你要觉得乏味了。因为你发现，靠，这是一个长期问题啊！长期的解决方案有个什么用啊。是的，长期方案用途很小，大部分人都喜欢短期方案，喜欢立竿见影的策略。那么,来说一说短期吧。

短期内，需大于供的局面难以彻底解决。最优化的结果是是的所有的供给有效地分配给需求，不存在重复分配，也不存在迟缓分配。要做到这一点，铁道部已经推出了电话订票和网络订票，我知道他们本意很好，可是，他们真的做的很差。他们应该做一个简单的招标，设奖金500万，召集计算机高手设计一个高规格的订票网站。网站的大致样子可以是这样的：

进去主页，会让用户选择订票入口。一般推荐选择地理位置最近的入口，比如人在北京进北京入口。同时，网站应该像同花顺或者三国杀那样，显示那个入口的订票压力较大。
用户选择入口之后，网站跳转。比如北京入口，则跳转到只负责北京地区的服务器上。如果选择河北入口，则跳转到河北的服务器上。这里服务器是并联的。
调转到北京服务器之后，选择目的地，比如郑州。网站跳转到北京-郑州服务器上。之所以这么设计，是为了防止下面的状况，即北京去南宁的票没有售完，但是因为订北京到郑州的人太多，堵死了北京服务器，从而去南宁的人有票也订不到。这种方案将北京去南宁和北京去郑州的服务器并联。两者互不影响。
订票开始。

这貌似也是一个不太短期的方案，那来个更短期的吧。

在订票电话前面加拨0317不拥堵！

尊严是人的固定成本

Wed, 07 Dec 2011 00:00:00 +0000

昨天吃午饭的时候，几个人谈到“西单磕头王”都“羡慕”不已。据说这个人在北京拥有四辆车和数套房产。这些财富在我们看来短时间内是可望而不可及的，而他竟然通过“磕头乞讨”就得到了。

其中一人说，这些人比我们好多了。我们辛辛苦苦工作，脑力劳动加体力劳动到头来也没人家挣的多。另一个人则持有相反观点，他认为这个人付出挺多的，最重要的是他为此付出了自己的尊严。

我在思考一个问题：大部分人不去乞讨的原因是什么？

从经济学角度来讲，是因为道德教育导致了我们对自己的尊严估值甚高，高到让我们觉得无论什么东西都不足以与其等值交换。结果大部分人都守着一个无法变现的尊严。而“西单磕头王”所做的事情概括起来有两部分来构成：

重估自己的尊严。在这过程中，他重估自己的尊严，并且适当的调低了自己对尊严的估值，这样使得世界上有些东西可以与尊严等值交换。
把重估的尊严进行变现。也就是说，他卖出了自己的尊严来换取金钱，当然还有随之而来的负面评价。

有了这个基础，我们便可以研究尊严在经济学中到底处于什么地位了。

我认为对于任何一个乞讨的人而言，他第一次放下尊严是一个重大的举动。因为从此之后，尊严就成为了他乞讨事业中的“固定成本”。也就说，一旦一个人放下尊严，那么第二次、第三次放下尊严并不会使他付出更大的代价了（从道德角度来讲，一旦一个人决定不要脸，那么已经不可能是他更觉得羞耻了）。

这就可以很好的解释为什么有些人愿意乞讨为生了。我们可以从他乞讨的成本和收益来进行分析。

乞讨的成本。

乞讨的成本分为两部分，即固定成本和变动成本。固定成本就是一个人的尊严，这构成乞讨成本的最大一部分。变动成本则包括乞讨过程中的吃、穿、道具、交通费等东西。

乞讨的收益。

从乞讨过程中得到的金钱和物品。

由于尊严是固定成本的最大部分，变动成本在成本中所占比例甚少，再加上一旦开始乞讨，尊严作为固定成本则随即沉没无法收回。而乞讨的收益则是日益增加，由此推出乞讨的平均成本是日益递减的。那么，作为一个理性人，乞讨者没有理由自动终结乞讨过程。

索罗模型模拟

Sat, 25 Dec 2010 00:00:00 +0000

索罗模型

索罗模型是宏观经济学中的基础模型，用于解释经济体长期经济增长的原因，索罗模型的主要关注集中在资本积累、人口增长和技术进步。

索罗模型的模拟

基于R语言写一段模拟索罗模型的应用。

library(shiny)
library(ggplot2)
library(deSolve)

# 索罗模型微分方程
solow_model <- function(time, state, parameters) {
 with(as.list(c(state, parameters)), {
 dk <- s * (k^alpha) * (A * L)^(1-alpha) - (delta + n + g) * k
 list(dk)
 })
}

ui <- fluidPage(
 titlePanel("索罗经济增长模型模拟器"),
 sidebarLayout(
 sidebarPanel(
 sliderInput("s", "储蓄率 (s)", 0.1, 0.5, 0.25, 0.01),
 sliderInput("delta", "折旧率 (δ)", 0.01, 0.15, 0.05, 0.01),
 sliderInput("n", "人口增长率 (n)", 0.0, 0.05, 0.02, 0.001),
 sliderInput("g", "技术进步率 (g)", 0.0, 0.05, 0.01, 0.001),
 sliderInput("alpha", "资本产出弹性 (α)", 0.2, 0.8, 0.3, 0.05),
 numericInput("k0", "初始人均资本", 0.1, min = 0.01, max = 10),
 actionButton("run", "运行模拟")
 ),
 
 mainPanel(
 tabsetPanel(
 tabPanel("资本动态", plotOutput("capital_plot")),
 tabPanel("稳态分析", 
 plotOutput("phase_diagram"),
 htmlOutput("steady_state"))
 ),
 h4("模型说明:"),
 uiOutput("model_desc")
 )
 )
)

server <- function(input, output) {
 observeEvent(input$run, {
 parameters <- c(s = input$s,
 delta = input$delta,
 n = input$n,
 g = input$g,
 alpha = input$alpha,
 A = 1, # 初始技术水平
 L = 1) # 初始劳动力
 
 state <- c(k = input$k0)
 times <- seq(0, 100, by = 1)
 
 # 解微分方程
 out <- ode(y = state, times = times, func = solow_model, parms = parameters)
 
 # 处理结果
 df <- data.frame(
 Time = out[,1],
 Capital = out[,2],
 Output = (out[,2]^input$alpha) * (parameters["A"] * exp((parameters["n"]+parameters["g"])*out[,1]))^(1-input$alpha),
 Consumption = (1 - input$s) * (out[,2]^input$alpha) * (parameters["A"] * exp((parameters["n"]+parameters["g"])*out[,1]))^(1-input$alpha)
 )
 
 # 资本动态图
 output$capital_plot <- renderPlot({
 ggplot(df, aes(Time, Capital)) +
 geom_line(color = "darkblue", size = 1.2) +
 geom_hline(yintercept = (input$s/(input$delta + input$n + input$g))^(1/(1-input$alpha)), 
 linetype = "dashed", color = "red") +
 labs(title = "人均资本动态路径",
 subtitle = "红色虚线表示理论稳态值",
 y = "人均资本 (k)") +
 theme_minimal()
 })
 
 # 相位图
 output$phase_diagram <- renderPlot({
 ggplot(df, aes(Capital, Output)) +
 geom_path(color = "darkgreen", size = 1.2) +
 geom_point(aes(x = tail(Capital,1), y = tail(Output,1)), 
 color = "red", size = 3) +
 labs(title = "资本-产出相位图",
 x = "人均资本 (k)",
 y = "人均产出 (y)") +
 theme_minimal()
 })
 
 # 稳态计算
 output$steady_state <- renderUI({
 k_star <- (input$s/(input$delta + input$n + input$g))^(1/(1-input$alpha))
 y_star <- k_star^input$alpha
 c_star <- (1 - input$s) * y_star
 
 HTML(paste(
 "<h4>稳态值计算:</h4>",
 paste0("人均资本 k* = ", round(k_star, 3)),
 paste0("人均产出 y* = ", round(y_star, 3)),
 paste0("人均消费 c* = ", round(c_star, 3)),
 sep = "<br/>"
 ))
 })
 })
 
 output$model_desc <- renderUI({
 HTML("<p>标准索罗模型设定：</p>
 <ul>
 <li>生产函数：Y = K<sup>α</sup>(AL)<sup>1-α</sup></li>
 <li>资本积累：dk/dt = sY - (δ + n + g)K</li>
 <li>稳态条件：sy = (δ + n + g)k</li>
 </ul>")
 })
}

shinyApp(ui = ui, server = server)

Shiny applications not supported in static R Markdown documents

一些说明

可以互动调整以下参数：

储蓄率 (s)
资本折旧率 (δ)
人口增长率 (n)
技术进步率 (g)
资本产出弹性 (α)

可视化展示

资本积累动态路径
资本-产出相位图
理论稳态值标记
实时稳态值计算

技术实现

使用deSolve包进行微分方程求解
ggplot2生成动态图表
响应式编程实现实时更新
HTML输出格式化显示结果

使用方法：

确保已安装所需包：

install.packages(c("shiny", "ggplot2", "deSolve"))

shiny::runApp("app.R") # 假设代码保存为app.R

应用场景

展示储蓄率变化对稳态的影响
观察人口老龄化（降低n）的经济效应
演示技术进步如何提升长期增长路径
比较不同生产函数参数的影响
这个应用可以帮助学生直观理解：
- 经济收敛到稳态的动态过程
- 参数变化对长期均衡的影响
- 投资与消费的权衡关系
- 增长核算的基本原理