股市看盘秘诀十八条

股市看盘秘诀十八条
       1, 对大盘,大盘股(白线)上得比小盘股(黄线)快,要出现回调,而黄线上涨比白线快,则会带动白线上.

　　2,涨跌比率大于1而大盘跌,表明空方势强,反之多方强.此状况高位看跌低位看涨.

　　3,成交量大的股票开始走软,或者前期股市的热门板块走软,当小心行情已接近尾声.

　　4,股票基本走软,市场在热点消失还没有出现新市场热点的时候,不要轻易去买股票.

　　5, 成交量屡创天量,而股价涨幅不大,应随时考虑派发,反之成交量极度萎缩不要轻易抛出股票.

　　6,大盘5分种成交明细若出现价量配合理想当看好后市,反之要小心.

　　7,成交量若上午太小,则下午反弹的机会多,如上午太大,则下午下跌概率大.

　　8,操作时间最好在下午,因为下午操作有上午的盘子作依托,运用60分种Ｋ线分析,可靠性好.

　　9,上涨的股票若压盘出奇的大,但最终被消灭,表明仍会上涨.

　　10,一般股票的升跌贴着均价运行,若发生背离将会出现反转.

　　11,盘面经常出现大手笔买卖,买进时一下吃高几个档位,表明大户在进货.

　　12, 个股在盘整或下跌时,内盘大于外盘,且阴线实体小,成交量大,日后该股有行情的可能性大;大盘暴跌,而该股没跌多少或者根本没跌,下档接盘强,成交放得很大,后市有戏的可能大.

　　13,股价上冲的线头(曲线)绝对的多于下跌的线头时当看好该股.

　　14,在下跌的势道里,应选逆势股;在上涨的势道里,应选大手笔买卖的股票.

　　15, 开盘数分种就把股价往上直拉,而均线没有跟上,往往都是以当天失败的形式而告终.

　　16, 当日下跌放巨量,但收的阴线实体不大,而且大部分时间在昨日收盘以上运行,第二天涨的机会多.

　　17, 涨幅在5-7%以上,内盘大于外盘,高点不断创新,低点不断抬高,说明有机构大户在进货.

　　18,分价表若是均匀分布说明大户不在里面,否则有大户介入.

--
一步一步教你从互联网赚钱 http://www.zqzn.com/index.asp?rid=key480769
投资理财 http://li-cai.blogspot.com/

Emacs中加入自己编码识别

强大的编辑器要有强大的编码识别能力 -- unicad.el

如果你经常要查看或编辑多种国家语言的文件，那你可能经常碰到乱码的情况。

unicad.el 是从 Mozilla universal charset auto detector 改写过来的 Elisp 程序，在 GNU Emacs 里加载上 unicad 就可以自动识别多种编码，以后再也不会遇到乱码的文件了。把下载到的 unicad.el 复制到 Emacs 的 load-path 里，比如 site-lisp ，在 ~/.emacs 里加上下面这句：

(require 'unicad)

如果你觉得检测过程拖慢了打开文件的速度，可以 byte-compile 这个文件：

M-x byte-compile-file <RET> /path/to/unicad.el

超载地址 http://cid-3643184002e3d5e6.skydrive.live.com/self.aspx/Public/unicad.zip

--
一步一步教你从互联网赚钱 http://www.zqzn.com/index.asp?rid=key480769
投资理财 http://li-cai.blogspot.com/

Emacs code-publish

;;; code-publish.el --- convert codes into html, used for msn space
;; Because of the limited allowed file types,
;; if the extension of this file is not .el, please change it manually.

;; Author: Qichen Huang <jasonal00+emacs at gmail.com>
;; Version: 0.2

;;; Commentary:
;; (require 'code-publish)

;; Usage:
;; M-x code-publish
;; the converted html code will be copied to kill-ring,
;; which could be directly pasted onto msn space as html code.

;; History:
;; 14.08.2006 Version 0.2
;; 14.08.2006  Added: tag <div>
;; 28.07.2006 Version 0.1

;;; Code:

(defun code-publish ()
  "Convert region between mark and point into HTML, save the result into kill ring."
  (interactive)
  (kill-new (code-publish-region (mark) (point)))
  (message "Code convert completed."))



(defvar font-header "<font size=\"2\">")
(defvar div-header "<div style=\"background-color:rgb(255,255,224);\">")
(defvar footer "</div></font>")
(defvar tag-open "<span style=\"font-family: Courier New,Courier,Monospace;")
(defvar tag-close ">")
(defvar tag-end "</span>")
(defvar newline-tag "<br>")
(defvar space "&nbsp;")
(defvar space2 "&nbsp;&nbsp;")
(defvar space4 "&nbsp;&nbsp;&nbsp;&nbsp;")

(defvar code-builtin-color       " color: rgb(0,139,0);\"")
(defvar code-comment-color       " color: rgb(205,0,0); font-style: italic;\"")
(defvar code-constant-color      " color: rgb(47,79,79);\"")
(defvar code-doc-color           " color: rgb(0,139,0);\"")
(defvar code-function-name-color " color: rgb(0,0,255); font-weight: bold;\"")
(defvar code-keyword-color       " color: rgb(160,32,240);\"")
(defvar code-preprocessor-color  " color: rgb(250,128,114);\"")
(defvar code-string-color        " color: rgb(0,139,0);\"")
(defvar code-type-color          " color: rgb(0,0,128);\"")
(defvar code-variable-name-color " color: rgb(139,90,40);\"")
(defvar code-warning-color       " color: rgb(255,0,0);\"")
(defvar code-default-color       " \"")

(defun code-publish-region (begin-point end-point)
  (let ((beg (min begin-point end-point))
        (end (max begin-point end-point))
        (str "")
        (tmp nil)
        (result nil)
        (tface nil)
        (color "")
        )
    ;;(beginning-of-buffer)
    (unless (= beg end)
      (save-excursion
        (setq result (concat result font-header))
        (setq result (concat result div-header))
        (goto-char beg)
        (while (< (point) end)
          (setq tmp (next-single-property-change (point) 'face))
          (unless tmp
            (setq tmp end)) ;; there is no face change, set tmp to end point
          ;; no cross-line properties
          (when (> tmp (line-end-position))
            (setq tmp (line-end-position))) ;; New line
          ;; skip spaces and tabs
          (save-excursion
            (goto-char tmp)
            (when (looking-at "[ \t]+")
              (re-search-forward "[ \t]+" (line-end-position) t)
              (setq tmp (point))))
          (when (> tmp end)
            (setq tmp end))
          (setq str (buffer-substring-no-properties (point) tmp))
          (while (string-match "<" str)
            (setq str (replace-match "&lt;" t nil str)))
          (while (string-match ">" str)
            (setq str (replace-match "&gt;" t nil str)))
          (while (string-match "  " str)
            (setq str (replace-match space2 t nil str)))
          (while (string-match "\t" str)
            (setq str (replace-match space4 t nil str)))
          (setq tface (get-text-property (point) 'face))
          (when (listp tface)
            (setq tface (car tface)))
          (cond
           ((eq tface font-lock-builtin-face)
            (setq color code-builtin-color))
           ((eq tface font-lock-comment-face)
            (setq color code-comment-color))
           ((eq tface font-lock-constant-face)
            (setq color code-constant-color))
           ((eq tface font-lock-doc-face)
            (setq color code-doc-color))
           ((eq tface font-lock-function-name-face)
            (setq color code-function-name-color))
           ((eq tface font-lock-keyword-face)
            (setq color code-keyword-color))
           ((eq tface font-lock-preprocessor-face)
            (setq color code-preprocessor-color))
           ((eq tface font-lock-string-face)
            (setq color code-string-color))
           ((eq tface font-lock-type-face)
            (setq color code-type-color))
           ((eq tface font-lock-variable-name-face)
            (setq color code-variable-name-color))
           ((eq tface font-lock-warning-face)
            (setq color code-warning-color))
           (t (setq color code-default-color)))
          ;; (setq color "<span color=\"\">")
          (setq result (concat result tag-open color tag-close str tag-end))
          (when (= tmp (line-end-position))
            (setq result (concat result newline-tag))
            (setq tmp (+ 1 (line-end-position))))
          (goto-char tmp))
        (setq result (concat result footer))
        result
        ))))

(provide 'code-publish)

;;; ################ code-publish ends here #######################

Emacs中建立文件自动关联mode

一次性关联 ( setq auto-mode-alist ;; 将文件模式和文件后缀关联起来。 ( append '(("\\.py\\'" . python-mode) ("\\.s?html?\\'" . html-helper-mode) (" \\.asp\\'" . html-helper-mode) ("\\.phtml\\'" . html-helper-mode) ("\\.css\\'" . css-mode) ) auto-mode-alist)) 单个文件关联 (add-to-list 'auto-mode-alist '("\\.org$" . org-mode))

--
一步一步教你从互联网赚钱 http://www.zqzn.com/index.asp?rid=key480769
投资理财 http://li-cai.blogspot.com/

【转帖】如何不重新启动 Emacs 就让 .emacs 的配置起作用

我刚刚使用 Emacs 的时候，总是 vi ~/.emacs 然后重新启动 emacs ，效率很低 ，暗自嘟囔， emacs 怎么没有这种功能，不重起，就自动更新 .emacs 的设置 呢？ 后来我发现，这个功能完全没有必要，我的做法是: 用 emacs 打开 .emacs 文件，C-x C-e 光标前面的运行一条语句。立即生效。 选择一个 region , M-x eval-region M-x load-file ~/.emacs M-x eval-buffer 都是立即生效，可以马上试验一条语句的效果。 例如，在任何一个文件中，写 (setq frame-title-format "emacs@%b") 把光标停在在这条语句后面， C-x C-e ，马上看到 emacs 的 标题栏上发生变化。 我用这种方法调试我的每一个小的配置文件，按上篇文章说的方法， 把他放在 ~/Emacs/myconfig/my-site-start.d 中。

--
一步一步教你从互联网赚钱 http://www.zqzn.com/index.asp?rid=key480769
投资理财 http://li-cai.blogspot.com/

Emacs 在窗口的标题栏上显示文件名称

在窗口的标题栏上显示文件名称

(setq frame-title-format "%n%F/%b")

% 后面跟一个特殊字符表示特殊的意义。

--
一步一步教你从互联网赚钱 http://www.zqzn.com/index.asp?rid=key480769
投资理财 http://li-cai.blogspot.com/

Emacs中保存 session 和 desktop

保存 session 和 desktop . 每次关闭 emacs 后, 在打开 emacs 时,恢复很多很多东西, 就像你没有关闭 emacs 一样

(require 'session)
(add-hook 'after-init-hook 'session-initialize) 
(load "desktop")
(desktop-load-default)
(desktop-read);

第一次使用的时候,要运行 M-x desktop-save 命令.

--
一步一步教你从互联网赚钱 http://www.zqzn.com/index.asp?rid=key480769
投资理财 http://li-cai.blogspot.com/