Song's profileSICP自留地BlogListsNetwork Tools Help

Blog


    October 29

    假若银行写明"现金当面点清,离柜概不负责",拿到ATM机多吐的钱就算合法得利

    理由简述如下:
    银行柜面假若标示“现金当面点清,离柜概不负责”字样,即应该认定该条款为对双方都有法律效力之意思表示,ATM全称automatic teller machine中文即自动柜员机,“现金当面点清,离柜概不负责”对自动柜员机上之交易当然有效,因此即使当事人明知ATM多吐钱而蓄意取款,其目的也只能是试图依双方约定而合法获得利益,其行为为当然的合法,利益取得也合法,故既不能被认定为盗窃,其取得的利益也不能被认定为不当的利。其目的,手段,方法,和所获利益皆合法。
    September 05

    自制之免责声明(第一版)

    先作为第一版码出来,就可能简短,就我现在的认识而言,可合法斩断在网上发帖之责任
     
    以下文字、图片、影像(指本段文字以后的内容)仅供作者个人学习、研究之用,不构成作者的任何意思表示,也不是作者意识之客观表现,其中所涉及的人物、团体、地点与现实无任何关系,作者不对该内容所引发的对现实的认识或者期待及其后果负责。阅读或以任何方式复制、保存、传播、展示以下内容(部分或全部)都有可能对当事人和(或)第三人造成包括但不限于人身、财产的损害,作者已明示可能的风险,不对任何由此造成的损害承担责任。
     
     
    January 27

    删改录1

    政治哲学包含高远的思想、松散的口号、可疑的事实、粗糙的宣传和复杂的理论。

    设定在实践中导致不公的法律与明文规定这样的法律一样卑鄙。

    说“好的研究应该是不包含价值判定的研究”本身就是一个价值判定。

    XX们努力从混乱中得到秩序,在鬼都找不到的地方寻求意义。

    一个人的义务不是苟且求生,而是慷慨赴死。

    January 09

    忽悠学笔记 3

              "人都是相信他想相信的事物,只要在真相的旁边挖一个陷阱,可谓上上之策。"

    1.事实不重要,主要看能不能让大众相信你

    这里有一个很好的例子就是“为什么可乐罐被做成圆筒状?而牛奶纸盒是方的?”某经济学家给出了很多解释,比如说大家通常直接就着可乐罐喝可乐,做成圆筒比较容易抓在手里,比如说圆筒状比较省料,而牛奶纸盒做成方的是为了节约运输成本,这样的理论被写到书上,还经常被用作咨询公司面试时候的考题。那么就没人直接就着牛奶纸盒喝牛奶的?牛奶厂不希望省点包装料?可乐厂不希望节省运输成本了?如果你仔细想,就会发现这位经济学家给出的解释很没有道理,那么可乐罐被做成圆筒状,牛奶纸盒是方的实质原因是什么呢?因为这样做比较简单。可乐罐的周边用的材料是相当薄的铝,将其卷成圆筒状比较容易,折成方的不但困难还容易造成边角破损。至于牛奶纸盒是完全由纸折叠而成的,方的比较容易做。同样的道理玻璃啤酒瓶大多都是圆筒状是因为那东西大多是吹制出来的,吹出来比较容易成为那个造型而已。可是为什么大众对这位经济学家的解释都可以欣然接受呢?因为他至少给出了一些看上去有点道理的观点。

    2.表达的方法会影响别人的接受程度

    请看看营销学教授是如何解释“为什么高级商务人士以出轨行为来应对经济衰退?”

    他先解释说“在经济衰退时,人们渴望拥抱。”

    立马招来质疑“拥抱自己的孩子,拥抱自己的配偶,似乎都更加容易,也更加安全。”

    教授答曰:这正是意义所在,风险就是诱饵。那些银行家正遭受“风险赤字”,他们工作中的风险被强制消除,因此增加私人生活中的风险可能是一种补偿方式。

    先不论其说得有没有道理,至少他的第二次发言用词更正式且像那么回事,因而受到的质疑比先前少。所以要让别人接受,应该尽量说起话来像个专业人士,在别人能听懂个大概的前提下适当使用一些术语看来挺有帮助。

    January 02

    失败的2008过去了

    08年最后一天得知自己考试没考过,那个郁闷啊,比比别人,都怪自己飞得不够先! 然后去报销费用的时候,又被经理抓住谈话,这个人的说话风格实在是有点那个 "你还准备在这行做的吧?" "不太清楚" "嗯?" "... ..." "大家都是从没钱到有钱的" "... ..."(纳闷他想表达什么) "明年打算让你多接触一下大客户" "... ..." "杂们就一大赌场,多接触不同类型的人对你以后有好处,反正是要把他们都忽悠了,包括上市的" 囧 "我看以后正确的行业发展放向是......."(和一个月前说的完全不一样) 然后又和没考过的在网上互舔了伤口 有个女的上来说丈夫压力大也很努力复习了,可还是一连几次没能考过,听到消息自己先哭了一场,又不敢给老公知道 埃,看来我的压力还算小的了 回家睡觉,一觉睡过一年,总算心情好点
    December 29

    投资组合的风险真的可以有效测量吗?资本资产定价理论(CAPM)和套利定价理论(APT)都是大忽悠!

    以前看金融方面的书都是抱佛脚应付考试的,所以大致是老和尚念经念啊念,两次看组合投资的时候都觉得很有问题,但也无暇细想,这次把它翻出来仔细读了一遍,觉得资本资产定价理论(CAPM)和套利定价理论(APT)都是大忽悠!
     
    1。既然假设只要市面上有价值的有风险投资品都在投资者组合当中,而且投资者的配比都是一样的,那他价格多少又有什么关系,不管价格是多少,每个人最后每种资产持有数量的比例都要与其数量对所有资产数量的比例么?
    比如市场上有且只有10斤黄金,100斤银,1000斤铜他们对投资者都是有价值的有风险投资品,那么不管1斤银子是1元还是1万元,按capm你都是以1斤黄金搭配10斤银搭配100斤铜的比例来持有的吧?

    2。Beta系数真的和定价模型有关系吗?你仔细看看大家怎么用Beta系数的,先回归法测算,然后用测算的来计算价格,根本就和定价模型没有关系,大忽悠?apt是什么东西,为了给统计学应用找依据而随便拿出来忽悠人,你看看它的套利假设,所有人都是以多项式来估计某一投资物的价值的,而每项的参数又由使用模型的人任选的,大忽悠?

    3。既然承认了一项资本的风险有两类组成,系统和非系统的,非系统的可以组合管理以后消除影响,而系统风险大家都一样,就没有人会在乎单个资产的风险是多少了,那又哪来的定价和总风险有关的道理?进一步,如果所有人都搞组合管理且使用一样的标准来评价东西,定价随便了,因为不管价格多少你都得配这点放手里。

    4。大家还记得sharp指数吗?说什么如果一个组合投资收益最后在资本市场线的上方就说明这个投资组合好?那我就想问了,既然你承认有资本市场线这条线?那就承认有资本市场有效边界咯?那我就想问了,你的投资组合怎么可能跑到边界之外去?你的sharp指数高只能说明你最近比较走运而已。

    September 24

    cclee3623

    September 22

    在我们把国企私有化的时候,太平洋那头正刮起金融机构国有化的飓风?

    当我们需要有人为四个现代化建设出谋划策的时候?受西方进步文化思想熏陶的学者从象牙塔里走出来,告诉我们问题出在“产权制度“上,我们对人的激励不够,在学者们的潺潺教导声中,我们茅塞顿开了。我们请来一大批有专才的外国友人和爱国华人华侨,在他们的无私帮助下开始了热火朝天的”产权制度“改革,历史证明中国人民是勤劳的人民,勇于实践的人民,任劳任怨的人民,在全国各族人民的努力下,我们的石油钢铁企业实现了海内外上市,我们的国有金融机构纷纷成了股份有限公司,中国石油中国石化更是为了向世人展示中国人民热情好客的做派不但在海外以折扣价格发行还在上市前以提高国内油气零售价格的方式预祝上市圆满成功,国有银行则以不足挂齿的区区一点股份换来了国外大财团将自己几百年积累下来的宝贵经验倾囊相授,可是,在我们正忙着学习国外资本市场先进经验的时候,太平洋那头又刮起了一股金融飓风,被我们作为公司治理和风险控制方面标杆的金融巨头纷纷陷入困境,美国最大的房地产抵押贷款机构和保险公司被政府买下,几乎完全国有化,西方学者开始鼓吹既然私有存款机构离开政府担保就无法安全运行根本就没有存在的意义,私有金融机构那种盈利时大肆赚取利润亏损时由纳税人买单根本就不公平。难道我们的产权制度改革只是南柯一梦?我们到底干了些什么?四内的四大银行自不用说,如果中国平安这样的私有保险公司由于经营不善而陷入困境我们应该怎么办?
    September 11

    sicp阅读放缓

    因为近期有更重要的事情,sicp的阅读计划要放慢进度,希望到年底一切都能顺顺利利
    September 03

    数字电路的程序模拟 Chapter 3.3.4

    总结一下3.3.4中数字电路模拟的方法
    其将模拟数字电路所需要的信息以『wire』为单元进行存储
    『wire』中包含的信息包括:在此线路上的即时电压,当该跟线路上电压发生变化其如何对数字电路的其他部分进行调整。这样一旦数字电路的某个输入信号发生变化,其就可以沿着线路传递,造成其他各段发生变化。
    从程序设计上来讲,『wire』本身作为一个procedure,将电压和电压变化后所需要对电路其他部分进行何种调整以局部变量和procedure的方式保存。
    在程序中搭建数字电路,每连接一个电子器件,程序都会将相应的procedure写入『wire』中,并设定新的电压。
    July 30

    sicp 3.14

    先看一下loop都做了什么,它把第一个列的开头部分和第二个列重新组合,然后对第一列余下的部分和新组合得的列再次应用loop。
    不难看出mystery实际上返回的是一个列的逆序列,但该过程的side effect值得注意,它把原先的x的“尾巴”全部截掉了!
    July 28

    3.8思考

    一开始的版本实际上被我写成
    (define (f num)
      (let ((s 1))
        (if (= s 1)
            (begin (set! s 0) num)
            0)))
     这样的话f永远都是把给她的参数原样反回

    sicp 3.8

    ;the idea behind the procedure is straightforward
    ;it only passes argument once, after that it returns zero no matter what
    (define f
      (let ((s 1))
        (lambda (num)
        (if (= s 1)
            (begin (set! s 0) num)
            0))))
       

    sicp 3.7

    ;不难看出make-joint需要做的是在客户账户中添加一条额外的密钥并返回该账户
    ;由于帐户这个对象在系统中是以过程形式定义的,不调用过程无法修改其本地参数
    ;有必要在make-account中添加额外的命令来收集新密钥
    (define (make-account balance password);初始化时以list形式输入password
      (define (withdraw amount)
        (if (>= balance amount)
            (begin (set! balance (- balance amount))
                   balance)
            "Insufficient funds"))
      (define (deposit amount)
        (set! balance (+ balance amount))
        balance)
      (define (in? p password1)
              (cond ((null? password1) #f)
                    ((eq? p (car password1)) #t)
                    (else (in? p (cdr password1)))))
      (define (addpassword password1)
              (set! password (cons password1 password)))
                    
      (define (dispatch p m)
        (if (in? p password);测试p是否在password列表中
            (cond ((eq? m 'withdraw) withdraw)
                  ((eq? m 'deposit) deposit)
                  ((eq? m 'addpassword) addpassword)
                  (else (error "Unknown request -- MAKE-ACCOUNT"
                               m)))
            (error "Incorrect password" m))
        )
      dispatch)
    (define (make-joint account oldpassword newpassword)
      (begin ((account oldpassword 'addpassword) newpassword) account))
    July 23

    小结、计划和随感

    把sicp的前两章读完了,刚开始看第三章,算是对这本书有了初步的感觉,接下来准备改进一下阅读方法,不再拘泥于习题或者一些细节,而更注重从宏观上把握其中的思想和思考方法,因此有些习题会跳过,打算第三章看完以后一边做project,一边看第四章,打算做的project初定为“RSA加密”,“博弈”,“网页排序”。第四章看完以后就开始同步阅读6.171
    做了MBTI职业性格测试,结果如下:
     
    Psytopic分析:您的性格类型是“INTJ”(内向+直觉+思维+判断)
    在实现自己的想法和达成自己的目标时有创新的想法和非凡的动力。能很快洞察到外界事物间的规律并形成长期的远景计划。一旦决定做一件事就会开始规划并直到完成为止。多疑、独立,对于自己和他人能力和表现的要 求都非常高。
    。。。。。。

     
    都是好话,吹捧好像有点过头了,不过我决定向“企业并购专家”努力,谁叫本人崇拜<星际迷航>里的borg人呢?梦想着说着“Strength is irrelevant. Resistance is futile. We wish to improve ourselves. We will add your biological and technological distinctiveness to our own. Your culture will adapt to service ours.”这种够酷够冷血的台词力压四座,想想都觉得是很光明的未来。
    July 22

    sicp 3.2

    (define (make-monitored func)
      (let ((init 0))     
        (lambda (x)
          (cond ((eq? x 'how-many-calls?) init)
                ((eq? x 'reset-count) (set! init 0))
                (else (set! init (+ 1 init)) (func x))))))

    sicp 2.78

    (define (attach-tag type-tag contents)
      (if (eq? type-tag 'scheme-number)
        contents
        (cons type-tag contents)))
    
    (define (type-tag datum)
      (cond ((number? datum) 'scheme-number)
            ((pair? datum) (car datum))
            (else
              (error "Bad tagged datum -- TYPE-TAG" datum))))
    
    (define (contents datum)
      (cond ((number? datum) datum)
            ((pair? datum) (cdr datum))
            (else
              (error "Bad tagged datum -- TYPE-TAG" datum))))
    
    July 18

    sicp 2.74

    因为各个部门编制的员工文件有不同的数据结构,对数据的具体操作需要与其所在的部门文件相适应,可以使用(list 'division file)的方式给不同部门的文件打上标签,再使用data-directed方法构造通用函数,即使其后有新部门加入只需在type-operation表中添加相应procedure就可以了.
    July 16

    sicp 2.69

    (define (make-leaf symbol weight)
      (list 'leaf symbol weight))
    (define (leaf? object)
      (eq? (car object) 'leaf))
    (define (symbol-leaf x) (cadr x))
    (define (weight-leaf x) (caddr x))
    (define (make-code-tree left right)
      (list left
            right
            (append (symbols left) (symbols right))
            (+ (weight left) (weight right))))
    (define (left-branch tree) (car tree))
    (define (right-branch tree) (cadr tree))
    (define (symbols tree)
      (if (leaf? tree)
          (list (symbol-leaf tree))
          (caddr tree)))
    (define (weight tree)
      (if (leaf? tree)
          (weight-leaf tree)
          (cadddr tree)))
    ;********************************************* my work begin from here
    (define (generate-huffman-tree pairs)
      (successive-merge (make-leaf-set pairs)))
    (define (successive-merge treeset);the treeset here must be in ascending order
      (if (null? (cddr treeset));test if treeset has only two elements
          (make-code-tree (car treeset) (cadr treeset))
          (successive-merge (merge-then-arrange treeset))))

    (define (merge-then-arrange treeset)
      (addjoin-ascending (make-code-tree (car treeset) (cadr treeset)) (cddr treeset)))
    (define (addjoin-ascending tree treeset)
      (cond ((null? treeset) (list tree))
            ((> (weight tree) (weight (car treeset)))
             (cons (car treeset) (addjoin-ascending tree (cdr treeset))))
            (else (cons tree treeset))))
    (define (make-leaf-set pairs)
      (if (null? pairs)
          '()
          (let ((pair (car pairs)))
            (addjoin-ascending (make-leaf (car pair)    ; symbol
                                   (cadr pair))  ; frequency
                               (make-leaf-set (cdr pairs))))))
    ;********************************************* for testing
    (define sample-pairs '((A 4) (B 2) (C 2) (D 1)))
    (generate-huffman-tree sample-pairs)