股东与股价相对曲线

Sub 股东与股价相对曲线()
    Dim obj As AcadObject
    For Each obj In ThisDrawing.ModelSpace
        obj.Delete
    Next
    ThisDrawing.Application.Update
    Dim a() As Double, p() As Double
    f = "002106"
    On Error Resume Next
    Set oDoc = CreateObject("htmlfile")
    Set ww = CreateObject("WinHttp.WinHttpRequest.5.1")
    With CreateObject("Microsoft.XMLHTTP")
        .Open "GET", "http://stock.finance.qq.com/corp1/stk_holder_count.php?zqdm=" & f, False
        .send
        oDoc.body.innerHTML = .responsetext
        Set r = oDoc.all.tags("table")(1).Rows
        ReDim a(0 To 3 * r.Length - 7), p(0 To 3 * r.Length - 7)
        c = 10000000.00011
        d = 0.0000035
        s = 10000
        t = 0.0000000035
        For i = 1 To r.Length - 2
            a((i - 1) * 3) = r.Length - i
            p((i - 1) * 3) = r.Length - i

            a((i - 1) * 3 + 1) = r(i).Cells(2).innerText / r(i).Cells(3).innerText
            If c > a((i - 1) * 3 + 1) Then
                c = a((i - 1) * 3 + 1)
                g = r.Length - i
            End If
            If d < a((i - 1) * 3 + 1) Then d = a((i - 1) * 3 + 1)
            a((i - 1) * 3 + 2) = 0
            p((i - 1) * 3 + 2) = 0

            h = r(i).Cells(0).innerText
1:
            ww.Open "GET", "http://q.stock.sohu.com/hisHq?code=cn_" & f & "&start=" & Format(h, "yyyymmdd") & "&end=" & Format(h, "yyyymmdd") & "&stat=1&order=D&period=d&callback=a&rt=jsonp", False
            ww.send
            p((i - 1) * 3 + 1) = Split(ww.responsetext, """,""")(2)
            If p((i - 1) * 3 + 1) < 0.01 Then
                h = DateAdd("d", -1, h)
                GoTo 1
            End If
            If i < 20 And s > p((i - 1) * 3 + 1) Then
                s = p((i - 1) * 3 + 1)
                t = r.Length - i
            End If
            'Debug.Print h, p((i - 1) * 3 + 1)
        Next i
        For i = 1 To r.Length - 1
            a((i - 1) * 3 + 1) = a((i - 1) * 3 + 1) / c
            p((i - 1) * 3 + 1) = p((i - 1) * 3 + 1) / s
        Next i
    End With

    Dim splineobj As AcadSpline
    Dim starttan(0 To 2) As Double
    Dim endtan(0 To 2) As Double
    Dim point1(0 To 2) As Double
    Dim point2(0 To 2) As Double
    Dim fitpoints(0 To 8) As Double
    starttan(0) = 0: starttan(1) = 0: starttan(2) = 0
    endtan(0) = 0: endtan(1) = 0: endtan(2) = 0
    point1(0) = g: point1(1) = 1: point1(2) = 0
    point2(0) = r.Length: point2(1) = d / s: point2(2) = 0
    Set splineobj = ThisDrawing.ModelSpace.AddSpline(a, starttan, endtan)
    splineobj.color = acRed
    Set Annotation = ThisDrawing.ModelSpace.AddMText(point1, 20, Format(c, "0.000"))
    Annotation.Height = 1

    point1(0) = t: point1(1) = 2: point1(2) = 0
    Set splineobj = ThisDrawing.ModelSpace.AddSpline(p, starttan, endtan)
    Set Annotation = ThisDrawing.ModelSpace.AddMText(point1, 20, s)
    Annotation.Height = 1
    ThisDrawing.Application.ZoomWindow starttan, point2
    ThisDrawing.Application.Update
End Sub

时间: 2024-10-11 00:22:13

股东与股价相对曲线的相关文章

除权、除息

背景 上市公司以股票股利分配给股东,也就是公司的盈余转为增资时,或进行配股时,就要对股价进行除权(XR),XR是EXCLUDE(除去)RIGHT(权利)的简写.上市公司将盈余以现金分配给股东,股价就要除息(XD),XD是EXCLUDE(除去)DIVIDEND(利息)的简写. 除权除息日购入该公司股票的股东则不可以享有本次分红派息或配股. 除权与除息是投资者在日常交易中经常遇到的两个名词,这里涉及到上市公司分红派息和配股.分红派息是上市公司向其股东派发红利和股息的过程,其主要形式有现金股利和股票股

RSI 指标

相对强弱指标RSI又叫力度指标,其英文全称为“Relative Strength Index”,由威尔斯•魏尔德﹝Welles Wilder﹞所创造的,是目前股市技术分析中比较常用的中短线指标.第一节 RSI指标的原理和计算方法一.RSI指标的原理相对强弱指标RSI是根据股票市场上供求关系平衡的原理,通过比较一段时期内单个股票价格的涨跌的幅度或整个市场的指数的涨跌的大小来分析判断市场上多空双方买卖力量的强弱程度,从而判断未来市场走势的一种技术指标.从它构造的原理来看,与MACD.TRIX等趋向类

A博娱乐雄安新区概念股疯涨前 8643户股东“埋伏”龙头股

A博娱乐4个交易日已过,依旧有31只雄安新区概念股封在涨停板.不过,有人欢喜就有人愁,每经投资宝(微信号:mjtzb2)发现,虽然目前刚刚开始公布一季报,但是已有超过200家上市公司通过交易所互动平台公布了截至3月31日的股东人数,其中,有包括冀东水泥.天津港等6家属于雄安新区概念板块的个股.有意思的是,在4月到来之前,有15763户股东提前"下车",卖掉股份,"倒在黎明前"痛失牛股. 15763户股东痛失雄安新区概念股 "如果上天再给我一次机会,我希望将

专访马云:面对股东的期待,未来如何保持阿里继续增长?

北京时间9月24日凌晨消息,阿里巴巴集团董事会主席马云今日在纽约接受了新浪专访,就阿里上市的感受.生态系统建设.国际化战略和收购理念等问题谈了自己想法. 马云表示,阿里成功上市,自己充满感恩.压力和敬畏:股价跌涨都是暂时,阿里注重的是未来长远发展,在意的是长线投资者:阿里不走帝国模式,要建设多样化生态系统.他还称,阿里的国际化是帮助全球中小企业,必须坚持自己的战略愿景和价值观:收购的标准是是否吻合阿里的使命,能够帮助中小企业去发展. 以下为整理后的专访实录: 新浪:阿里成功上市,股价飙升,你的心

图表制作股价图

工具/原料 图表制作:FineReport7.1.1 大小:148.2M 适用平台:windows/linux 1. 概述 股价图(K线图),顾名思义,股价图通常用来显示股价的波动,如下图开盘-盘高-盘低-收盘图,并设置K线: 注:上图中的红色为涨,绿色为跌. 2. 示例 2.1 准备数据 新建工作薄,添加数据集ds1,SQL语句为SELECT * FROM [公司股票],查询出公司股票数据. 2.2 插入图表和数据源 以悬浮图表为例,点击插入>悬浮元素>插入图表,图表类型选择股价图,点击确定

巴菲特:给股东信件中的精华句子

成为了世人眼里的一代投资大师,可是,人们却看不到他所写的任何一本书. 因为巴菲特先生至今没有写过书,也没有打算写书.几乎全球的价值投资者在每年都会关注伯克希尔-哈撒韦公司的年报,因为这个里面就有他写给股东们的一封信,这封信总结一年的得失,其中不免有新的观点而看法,乃至成为世界投资经理人的必读物,可见其影响何其巨大. 这里简要摘录部分精华句子: NO.1 价值投资?多余 大多数分析师认为他们必须在两种相对立的投资方法中做出选择:"价值"和"成长性".我们认为这是一种模

Amazon以后会是什么样子?股东们已经对赔钱感到不耐烦了。

原作者:Andrés Martinez 原文链接:http://www.slate.com/articles/technology/future_tense/2014/11/amazon_shareholders_are_tired_of_losing_money.html (译者注:本文文笔犀利,措辞激烈,对Amazon的某些批评个人感觉有些夸张,请读者审慎阅读.) 2014年6月18日,Amazon CEO Jeff Bezos在西雅图展示了该公司的第一部智能手机 -- Fire Phone

外资股东让武平离开展讯

零星的雨点飘落在夜晚的黄浦江上,对岸林立的大厦放射出五彩的霓虹,披挂着世博会标志的渡轮扬笛驶过,而这一畔的红摩咖啡馆却显得低调而沉静. 面容精瘦的武平操着一口浓重的西北普通话,他摆手婉拒了<创业家>的拍照请求:“这次不拍了,真的不拍了.咱们就是随便聊聊.”背墙而坐,一杯矿泉水,46岁的他保持着黄浦江一样的平静,也许心中仍有波澜意气,但却不再慷慨激昂. 就在10天前的5月28日,<创业家>记者收到了他的短信:“我下月开始即不再担任展讯董事长,也离开我亲自创立并为之付出无尽心力的地方.

股价飙升500倍,市值超过4700亿美元,从网络书店起家的亚马逊凭什么一飞冲天?

砺石导语:亚马逊股价上周创出999.00美元的历史最高价,距1000美元的关口仅有一步之遥.从一家建在自家车库里的网络图书公司,到被媒体称为"吞噬世界的怪物",亚马逊崛起的背后有着怎样的征途? 文|文媛媛 如果你在亚马逊IPO的时候投资1万美元,那么现在你会得到500万美元. 作为美国最大的电子商务公司,亚马逊股价上周创出999.00美元的历史最高价,距1000美元的关口仅有一步之遥.上周五,亚马逊股价报收于995.78美元,市值达到4730亿美元. 亚马逊公司1995年成立,是世界上