A. 哪位高手知道益盟操盘手分时中的“资金净流”指标源码和日K线中的“大单比率”及“资金博弈”源码
这两个指标是他们根据第二代数据的分笔成交统计出来的，就算是给你源码也用不了。同时，其它软件也不能用，因为每一家软件公司的数据分拆都不一样。不过，其实这两个指标真没有多大的用处，一般都是他们吹出来的。可能对一些比较有经验的股民有用，对新手没有。
B. VB 修改图片的尺寸并保存，比如现有图片256*128，我要修改成15*15的尺寸，要源码！
首先，声明以下核心代码部分完全照抄，由CSDN上laviewpbt提供，我在之前一篇VB常见问题里给出过链接。当时提到VB的效率问题，我举
出图片缩放的例子，用VB写的图片缩放，效率居然很高，以此证明算法的重要性。laviewpbt又是受到了CSDN上zyl910，本名好像叫周岳灵的
激发，结果做出的程序效率更加惊人。有兴趣的可以看看我这篇文章里给出的论坛链接。
所以，我这里用的解决方法就是从他们这里得来。不过这些高人们关注的是效率，程序里面有很大篇幅是不同算法比较，已经时间测试。而对于更加关心使用的人来说，代码需要裁剪。我粗略的筛选了下，对模块内容没有改动，而只是从主程序里拨出我们需要的内容。
那么，就开始吧。
首先，用到三个模块和一个类模块，这部分代码我们不用重写了。程序搭建时候添加进去。需要说明的是，如果你已经有一个在做的项目，那么简单的导入模块可能是不行的。laviewpbt给我们做了一个很好的示范，他的API声明都是在一个模块里面的，那么你的项目最好也这样，然后，把他的API声明贴在后面，运行程序时候如果有重复，会自动找到，然后你就停掉他，注释掉或者删除。这几个模块的内容我最后贴出，这里到现在也不能上传附件。
那么，我们重点要介绍怎么用。
Private DIBData As CImagePrivate DIBWork As CImage
首先要声明两个类变量。这个是我们自定义的类。在模块里。
接着两段代码，一个加载图片，一个改变图片大小。
我们要打开图片，初始化上面这两个量，初始化过程写在 form_load里面
Set DIBData = New CImage
Set DIBWork = New CImage
scaNum = 1 '这个是比例
scaWidth = Me.Width '这个是窗体宽度的初始参照值
Picture1.Picture = LoadPicture(App.Path & "\手球场地小图.jpg")
Dim DIBTemp As New CImage
If DIBTemp.LoadPictureFromFile(App.Path & "\手球场地小图.jpg") = True Then
Set DIBData = DIBTemp
DIBWork.DisposeResource
Picture1.Width = DIBData.Width
Picture1.Height = DIBData.Height
DIBData.Render Picture1.Hdc
Picture1.Refresh
Else
MsgBox "错误的图像文件", vbCritical
End If
Set DIBTemp = Nothing
当窗体大小变化的时候，我们再写一段代码改变图片大小已经PictureBox大小任务就完成了。
需要说明的是，以下调用的代码，对尺寸的计量单位是pixel，而VB窗体默认的计量单位是Tiwp，显示器上一个pixel里面可以有很多twip，如果你做出来的程序，图像顺畅显示了，但是就是很小，那么，恭喜你，你成功了，只是需要将尺寸转换成vb里面的tiwp，
乘以 Screen.TwipsPerPixelX
这段代码如下：
Dim W As Long, H As Long
W = DIBData.Width * scaNum
H = DIBData.Height * scaNum
If W < 1 Then W = 1 If H < 1 Then H = 1
Dim DIBTemp As New CImage
Dim t As Currency
Me.MousePointer = vbHourglass
t = Utility.GetCurrentTime
Set DIBTemp = Resample(DIBData, W, H, 2) '这里固定选择一个算法，双线性内插值
' t = GetCurrentTime - t
Me.MousePointer = vbDefault
' Me.Caption = " 处理时间：" & Format(t / 1000, "##,###,##0.000") & "秒"
Set DIBWork = DIBTemp
Set DIBTemp = Nothing
PicData.Width = DIBWork.Width * Screen.TwipsPerPixelX
PicData.Height = DIBWork.Height * Screen.TwipsPerPixelX
DIBWork.Render PicData.Hdc
' SolNum
PicData.Refresh
代码被我注释掉一部分，原代码中有时间测试内容。
把这段代码独立成一个Sub，然后在form_reSize里面调用，当然，调用之前首先要计算变化比例scaNum
下面开贴模块代码
模块一、ImageResize模块：
Option Explicit
Public Enum ResizeModeConst
SMC_Nearest = 0 '最邻近插值
SMC_StretchBlt = 1 'StretchBlt
SMC_BiliNear = 2 '双线性内插值
End Enum
Public
Function Resample(Img As CImage, NewWidth As Long, NewHeight As Long,
Optional Method As ResizeModeConst = SMC_BiliNear) As CImage
Dim X As Long, Y As Long
Dim XX As Long, YY As Long
Dim OldYY As Long
Dim Width As Long, Height As Long
Dim Sa As SAFEARRAY, SaN As SAFEARRAY
Dim ImageData() As Byte, NewImageData() As Byte
Dim Stride As Long, NewStride As Long
Dim Offset As Long
Dim Speed As Long, SpeedN As Long
Dim NewImg As New CImage
If NewImg.CreateNewImage(NewWidth, NewHeight) = True Then
With Sa
.Element = 1
.Dimension = 1
.Bounds.Elements = Img.Stride * Img.Height
.Pointer = Img.Pointer
End With
CopyMemory ByVal VarPtrArray(ImageData()), VarPtr(Sa), 4
With SaN
.Element = 1
.Dimension = 1
.Bounds.Elements = NewImg.Stride * NewImg.Height
.Pointer = NewImg.Pointer
End With
CopyMemory ByVal VarPtrArray(NewImageData()), VarPtr(SaN), 4
Width = Img.Width: Height = Img.Height
Stride = Img.Stride: NewStride = NewImg.Stride
ReDim LinearRow(NewWidth - 1) As Long
Select Case Method
Case ResizeModeConst.SMC_Nearest
OldYY = -1
For X = 0 To NewWidth - 1
LinearRow(X) = (X * Width \ NewWidth) * 3
Next
For Y = 0 To NewHeight - 1
SpeedN = Y * NewStride
YY = Y * Height \ NewHeight
Offset = YY * Stride
If YY = OldYY Then
CopyMemory NewImageData(SpeedN), NewImageData(SpeedN - NewStride), NewStride
Else
OldYY = YY
For X = 0 To NewWidth - 1
Speed = Offset + LinearRow(X)
NewImageData(SpeedN) = ImageData(Speed)
NewImageData(SpeedN + 1) = ImageData(Speed + 1)
NewImageData(SpeedN + 2) = ImageData(Speed + 2)
SpeedN = SpeedN + 3
Next
End If
Next
Case ResizeModeConst.SMC_StretchBlt
Img.Render NewImg.Hdc, 0, 0, NewImg.Width, NewImg.Height, 0, 0, Img.Width, Img.Height
Case ResizeModeConst.SMC_BiliNear
Dim PartXX As Long, PartYY As Long
Dim InvertXX As Long, InvertYY As Long
Dim NewX As Long, NewY As Long
Dim SpeedP As Long, ColOffset As Long
Dim Pos As Double
ReDim RowOffset(NewWidth - 1) As Long
ReDim RowPartXX(NewWidth - 1) As Long
For X = 0 To NewWidth - 1
Pos = X * (Width - 1) / NewWidth
RowOffset(X) = Int(Pos) * 3
RowPartXX(X) = (Pos - Int(Pos)) * 2048
Next
For Y = 0 To NewHeight - 1
SpeedN = Y * NewStride
Pos = Y * (Height - 1) / NewHeight
PartYY = (Pos - Int(Pos)) * 2048
InvertYY = 2048 - PartYY
ColOffset = Int(Pos) * Stride
For X = 0 To NewWidth - 1
PartXX = RowPartXX(X)
InvertXX = 2048 - PartXX
Speed = ColOffset + RowOffset(X)
SpeedP = Speed + Stride
NewImageData(SpeedN + 2) = ((ImageData(Speed + 2) * InvertXX +
ImageData(Speed + 5) * PartXX) * InvertYY + (ImageData(SpeedP + 2) *
InvertXX + ImageData(SpeedP + 5) * PartXX) * PartYY) \ 4194304
NewImageData(SpeedN + 1) = ((ImageData(Speed + 1) * InvertXX +
ImageData(Speed + 4) * PartXX) * InvertYY + (ImageData(SpeedP + 1) *
InvertXX + ImageData(SpeedP + 4) * PartXX) * PartYY) \ 4194304
NewImageData(SpeedN) = ((ImageData(Speed) * InvertXX + ImageData(Speed +
3) * PartXX) * InvertYY + (ImageData(SpeedP) * InvertXX +
ImageData(SpeedP + 3) * PartXX) * PartYY) \ 4194304
SpeedN = SpeedN + 3
Next
Next
End Select
CopyMemory ByVal VarPtrArray(ImageData()), 0&, 4
CopyMemory ByVal VarPtrArray(NewImageData()), 0&, 4
End If
Set Resample = NewImg
End Function
模块2、可以忽略的和时间测试有关部分，内容不多，也贴出
Private SystemFrequency As Currency
Public Function GetCurrentTime() As Currency
If SystemFrequency = 0 Then '未初始化
If QueryPerformanceFrequency(SystemFrequency) = 0 Then
SystemFrequency = ERRORINDEX '无高精度计数器
End If
End If
If SystemFrequency <> ERRORINDEX Then
Dim CurCount As Currency
QueryPerformanceCounter CurCount
GetCurrentTime = CurCount * 1000@ / SystemFrequency
Else
GetCurrentTime = GetTickCount()
End If
End Function
模块3、API声明部分，需要你自己解决冲突问题。
Option Explicit
Public Const ERRORINDEX As Long = -1
Public Const DIB_RGB_COLORS As Long = 0
Public Const BI_RGB As Long = 0 '正常
Public Const STRETCH_ANDSCANS As Long = 1
Public Const STRETCH_DELETESCANS As Long = 3
Public Const STRETCH_HALFTONE As Long = 4
Public Const STRETCH_ORSCANS As Long = 2
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public Type POINTAPI
X As Long
Y As Long
End Type
Public Type RGBQUAD
Blue As Byte
Green As Byte
Red As Byte
Alpha As Byte
End Type
Public Type LOGPALETTE
palVersion As Integer
palNumEntries As Integer
palPalEntry(255) As RGBQUAD
End Type
Public Type SAFEARRAYBOUND
Elements As Long
lLbound As Long
End Type
Public Type SAFEARRAY2D
Dimension As Integer
Features As Integer
Element As Long
Locks As Long
Pointer As Long
Bounds(1) As SAFEARRAYBOUND
End Type
Public Type SAFEARRAY
Dimension As Integer
Features As Integer
Element As Long
Locks As Long
Pointer As Long
Bounds As SAFEARRAYBOUND
End Type
Public Type BITMAPINFOHEADER
Size As Long
Width As Long
Height As Long
Planes As Integer
BitCount As Integer
Compression As Long
SizeImage As Long
XPelsPerMeter As Long
YPelsPerMeter As Long
ClrUsed As Long
ClrImportant As Long
End Type
Public Type BITMAPINFO
Header As BITMAPINFOHEADER
Palette(255) As RGBQUAD
End Type
Public Type Bitmap
Type As Long
Width As Long
Height As Long
WidthBytes As Long
Planes As Integer
BitsPixel As Integer
Bits As Long
End Type
'
'内存操作相关API
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpDst As Any, lpSrc As Any, ByVal ByteLength As Long)
Public Declare Sub ZeroMemory Lib "kernel32" Alias "RtlMoveMemory" (Dest As Any, ByVal numBytes As Long)
Public
Declare Sub FillMemory Lib "kernel32.dll" Alias "RtlFillMemory" (ByRef
Destination As Any, ByVal Length As Long, ByVal Fill As Byte)
'VB本体API
Public
Declare Function OleLoadPicture Lib "olepro32" (pStream As Any, ByVal
lSize As Long, ByVal fRunmode As Long, riid As Any, ppvObj As Any) As
Long
Public Declare Function SafeArrayGetDim Lib "oleaut32.dll" (ByRef saArray() As Any) As Long
Public Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (ByRef Ptr() As Any) As Long
'GDI系统API函数
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function CreateCompatibleDC Lib "gdi32.dll" (ByVal Hdc As Long) As Long
Public
Declare Function CreateDIBSection Lib "gdi32.dll" (ByVal Hdc As Long,
ByRef pBitmapInfo As Any, ByVal un As Long, ByRef Pointer As Long, ByVal
Handle As Long, ByVal Dw As Long) As Long
Public Declare Function DeleteDC Lib "gdi32.dll" (ByVal Hdc As Long) As Long
Public Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal Hdc As Long) As Long
Public Declare Function DeleteObject Lib "gdi32.dll" (ByVal hObject As Long) As Long
Public
Declare Function SetDIBColorTable Lib "gdi32" (ByVal Hdc As Long, ByVal
un1 As Long, ByVal un2 As Long, pcRGBQuad As RGBQUAD) As Long
Public
Declare Function GetDIBColorTable Lib "gdi32" (ByVal Hdc As Long, ByVal
un1 As Long, ByVal un2 As Long, pRGBQuad As RGBQUAD) As Long
Public Declare Function SelectObject Lib "gdi32.dll" (ByVal Hdc As Long, ByVal hObject As Long) As Long
Public
Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As
Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long,
ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal
dwRop As Long) As Long
Public Declare Function SetStretchBltMode Lib "gdi32" (ByVal Hdc As Long, ByVal nStretchMode As Long) As Long
Public
Declare Function StretchBlt Lib "gdi32" (ByVal Hdc As Long, ByVal X As
Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long,
ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal
nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As
Long
Public Declare Function SetDIBitsToDevice Lib "gdi32" (ByVal Hdc
As Long, ByVal X As Long, ByVal Y As Long, ByVal dx As Long, ByVal dy
As Long, ByVal SrcX As Long, ByVal SrcY As Long, ByVal Scan As Long,
ByVal NumScans As Long, Bits As Any, BitsInfo As BITMAPINFO, ByVal
wUsage As Long) As Long
Public Declare Function GetTickCount Lib "kernel32" () As Long
Public Declare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As Currency) As Long
Public Declare Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As Currency) As Long
类模块、CImage；文件名CImage.cls
Option Explicit
Private m_Width As Long '层的宽度
Private m_Height As Long '层的高度
Private m_Stride As Long '层数据每个扫描行的大小
Private m_Hdc As Long '层的内存DC
Private m_Pointer As Long '层数据在内存的首地址w
Private m_Handle As Long 'DIBSection的句柄
Private m_OldHandle As Long '原始设备环境的句柄
Public Property Get Width() As Long
Width = m_Width
End Property
Public Property Get Height() As Long
Height = m_Height
End Property
Public Property Get Stride() As Long
Stride = m_Stride
End Property
Public Property Get Hdc() As Long
Hdc = m_Hdc
End Property
Public Property Get Handle() As Long
Handle = m_Handle
End Property
Public Property Get Pointer() As Long
Pointer = m_Pointer
End Property
Private Sub Class_Terminate()
DisposeResource
End Sub
Public Function CreateNewImage(ByVal Width As Long, _ ByVal Height As Long) As Boolean
Dim ScreenDC As Long, BmpInfo As BITMAPINFOHEADER
If Width <= 0 Or Height <= 0 Then Exit Function
DisposeResource '删除原始的内存资源
With BmpInfo
.BitCount = 24
.Height = -Height '为了和GDI对象的坐标系统（起点坐标在左上角），建立一个倒序的DIB
.Width = Width
.Planes = 1
.Size = 40
m_Stride = ((Width * 3 + 3) And &HFFFFFFFC)
.SizeImage = m_Stride * Height
End With
ScreenDC = GetDC(0) '得到屏幕DC
m_Hdc = CreateCompatibleDC(ScreenDC)
ReleaseDC 0, ScreenDC '释放屏幕DC
m_Handle = CreateDIBSection(m_Hdc, BmpInfo, DIB_RGB_COLORS, m_Pointer, 0, 0)
If m_Handle <> 0 Then '希望系统能够让我们成功创建DIB吧
m_OldHandle = SelectObject(m_Hdc, m_Handle)
m_Width = Width: m_Height = Height
CreateNewImage = True
End If
End Function
Public Sub DisposeResource()
If m_Hdc <> 0 Then
SelectObject m_Hdc, m_OldHandle
DeleteDC m_Hdc
DeleteObject m_Handle
m_Width = 0: m_Height = 0 '重置其他的图像相关属性
m_Handle = 0: m_OldHandle = 0
m_Pointer = 0: m_Hdc = 0
End If
End Sub
Public Function Render(ByVal DestDC As Long, _
Optional ByVal DestX As Long, _
Optional ByVal DestY As Long, _
Optional ByVal DestWidth As Long, _
Optional ByVal DestHeight As Long, _
Optional ByVal SrcX As Long, _
Optional ByVal SrcY As Long, _
Optional ByVal SrcWidth As Long, _
Optional ByVal SrcHeight As Long) As Boolean
If m_Handle = 0 Then Exit Function
If DestWidth = 0 Then DestWidth = m_Width
If DestHeight = 0 Then DestHeight = m_Height
If SrcX < 0 Then SrcX = 0 ' 源X,Y不能为负，但目的X,Y可以
If SrcY < 0 Then SrcY = 0
If SrcWidth = 0 Then
SrcWidth = m_Width
ElseIf SrcWidth < 0 Then
DestWidth = -DestWidth
SrcWidth = -SrcWidth
End If
If SrcHeight = 0 Then
SrcHeight = m_Height
ElseIf SrcHeight < 0 Then
DestHeight = -DestHeight
SrcHeight = -SrcHeight
End If
SetStretchBltMode DestDC, STRETCH_HALFTONE
StretchBlt DestDC, DestX, DestY, DestWidth, DestHeight, m_Hdc, SrcX, SrcY, SrcWidth, SrcHeight, vbSrcCopy
End Function
Public Function LoadPictureFromFile(FileName As String) As Boolean
Dim Width As Long, Height As Long
Dim StdPic As StdPicture
On Error GoTo Errhandle:
Set StdPic = LoadPicture(FileName)
Width = ConvertHimetrixToPixels(StdPic.Width, True)
Height = ConvertHimetrixToPixels(StdPic.Height, False)
If CreateNewImage(Width, Height) = True Then
StdPic.Render m_Hdc + 0&, 0&, 0&, Width + 0&, Height +
0&, 0, StdPic.Height, StdPic.Width, -StdPic.Height, ByVal 0
'类似于BMP的逆序存储，所以用-StdPic.Height
LoadPictureFromFile = True
End If
Errhandle:
End Function
Private Function ConvertHimetrixToPixels(HiMetrix As Long, Horizontally As Boolean) As Long
If Horizontally Then
ConvertHimetrixToPixels = HiMetrix * 1440 / 2540 / Screen.TwipsPerPixelX
Else
ConvertHimetrixToPixels = HiMetrix * 1440 / 2540 / Screen.TwipsPerPixelY
End If
End Function
Private Function ConvertPixelsToHimetrix(Pixels As Long, Horizontally As Boolean) As Long
If Horizontally Then
ConvertPixelsToHimetrix = Pixels * Screen.TwipsPerPixelX * 2540 / 1440
Else
ConvertPixelsToHimetrix = Pixels * Screen.TwipsPerPixelY * 2540 / 1440
End IfEnd Function
C. 有没有易语言的尺寸改变 控件也跟随比例改变的源码啊
.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
连续赋值 (0, _启动窗口.左边, _启动窗口.顶边)
_启动窗口.宽度 ＝ 取屏幕宽度 ()
_启动窗口.高度 ＝ 取屏幕高度 () － 30
.子程序 __启动窗口_尺寸被改变
标签1.左边 ＝ _启动窗口.取用户区宽度 () － 10 － 标签1.宽度
标签1.顶边 ＝ _启动窗口.取用户区高度 () － 15
标签1.标题 ＝ “窗口宽度：” ＋ 到文本 (_启动窗口.取用户区宽度 ()) ＋ “ 窗口高度:” ＋ 到文本 (_启动窗口.取用户区高度 ())
_启动窗口.标题 ＝ “标签左边:” ＋ 到文本 (标签1.左边) ＋ “ 标签顶边:” ＋ 到文本 (标签1.顶边)
.如果真 (_启动窗口.宽度 ＜ 400)
_启动窗口.宽度 ＝ 400
.如果真结束
.如果真 (_启动窗口.高度 ＜ 300)
_启动窗口.高度 ＝ 300
.如果真结束
D. php实现图片等比例缩放代码
新建文件index.php，需要在统计目录下有个图片为q.jpg（可根据源码进行更改图片的名称）
源代码如下:
<?php
$filename="q.jpg";
$per=0.3;
list($width,
$height)=getimagesize($filename);
$n_w=$width*$per;
$n_h=$height*$per;
$new=imagecreatetruecolor($n_w,
$n_h);
$img=imagecreatefromjpeg($filename);
//拷贝部分图像并调整
imageresized($new,
$img,0,
0,0,
0,$n_w,
$n_h,
$width,
$height);
//图像输出新图片、另存为
imagejpeg($new,
"q1.jpg");
imagedestroy($new);
imagedestroy($img);
?>
使用浏览器运行过后，在index.php同级的目录下会有个q1.jpg，这个图片就是等比例缩放后的图片,路径可以自己在源代码里面更改，放在自己的项目当中去或写个方法也行
以上所述上就是本文的全部内容了，希望对大家学习php语言能够有所帮助。
E. js实现网页高度和宽度成比例的代码
你是要实现网页还是图片成比例缩放啊？
我这有个图片成比例缩放的JS代码，如下：
<script type="text/javascript">
//自动缩放图片尺寸
//参数：图片对象，最大宽度，最大高度
function gw_js_chgimg_wh(obj,width,height){
var image=new Image();
image.src=obj.src; //获取图像路径
var width1=image.width; //获取图像宽度
var height1=image.height; //获取图像高度
var w=width1/width;
var h=height1/height;
if(width1<width && height1<height){
obj.width=width1;
obj.height=height1;
}else{
if(h>w){
obj.height=height;
obj.width=width1*height/height1;
}else{
obj.width=width;
obj.height=height1*width/width1;
}
}
}
</script>
如果你是要网页成比例的代码，具体是要实现什么样的功能？请描述清楚一点，好方便理解。
F. 源码费用占项目费用 比例
百分之三十。源代码费用一般在30000左右，服务器一年至少3000，维护成本每月6000以上。在项目总费用是100000元左右。占用比例为百分之三十左右。
G. 求：东方财富通指标公式：【资金趋势】的源码
东方财富通指标公式【资金趋势】的源码如下：
均价:=(H+L+O+C)/4;
分水岭:MA(3*均价-2*SMA(均价，2，1)，12)，LINETHICK1;
做多趋势:IF(均价>分水岭，均价，分水岭)，COLORYELLOW;
支撑:REVERSE(做多趋势)+2*分水岭，COLORMAGENTA;
下跌:IF(均价<分水岭，均价，分水岭)，COLORGRAY;B:=(2*EMA(LLV(均价，7)，10)-均价);
做空趋势:(3*B-2*SMA(B，10，1))，COLORGREEN，LINETHICK2;
阻力:=REVERSE(下跌)+2*分水岭。
拓展资料：
股票是股份有限公司发行的证明股东所持股份的凭证。这表明股东拥有股份公司部分资本的所有权。由于股票包含经济利益，可以上市、流通和转让，因此股票也是一种证券。中国上市公司的股票在上海证券交易所和深圳证券交易所发行。投资者一般在证券经纪公司开户。
普通股分析指标有MACD、KDJ、RSI等指标，主要用于对股票市场和目标的分析判断。
开盘价：开盘价为投标阶段的第一笔交易价格。如果没有交易，则前一天的收盘价为开盘价。
收盘价：指每天交易的最后一只股票的价格，即收盘价。
最高价格：指当日交易价格中的最高价格。有时候最高的价格只有一个，有时候不止一个。
最低价格：指当日交易价格中的最低价格。有时候最低的价格只有一个，有时候不止一个。
普通股
普通股是指在公司经营管理、利润和财产分配中享有共同权利的股份。代表在满足所有债权偿还要求和优先股股东的收益权和债权后，对企业利润和剩余财产的要求。它构成了公司资本的基础，是股票的基本形式，也是最重要、流通量最大的股票。
在上海和深圳证券交易所交易的股票是普通股。普通股持有人按其股份比例享有下列基本权利：
（1） 公司有权参与决策。普通股股东有权参加股东大会，有权提出建议、投票表决，也可以委托他人代为行使股东权利。
（2） 利润分配权。普通股股东有权从公司利润分配中获得股息。普通股股利不是固定的，这取决于公司的利润状况及其分配政策。普通股股东在有权获得股息分配之前必须获得固定股息。
（3） 股票期权。如果公司需要扩容和增发普通股，现有普通股股东有权按照其持股比例以低于市场价格的特定价格购买一定数量的新发行股份，以保持其对企业原有的所有权比例。
（4） 剩余资产的分配权。公司破产或清算时，如果清偿债务后公司资产仍然存在，剩余部分应按优先股股东和普通股股东的顺序分配。
H. 计算机软件源代码多少比例相似构成侵犯商业秘密罪
具体多少相同或相似比列构成侵权法律并未明确规定，实践中这个要看相似的计算机软件源代码部分是否属于整个源代码的重要核心部分，如果相似的计算机软件源代码不是整个源代码的重要核心部分，则不构成侵犯商业秘密罪，如果相似的计算机软件源代码属于整个源代码的重要核心部分并且相似超过10%以上则构成侵犯商业秘密罪
以上答案由长昊律师事务所--陈建成律师为你解答希望能帮到你
I. 在盯盘系统怎么制作黄金分割比例的源码
N:=74;
M:=3;
PC:(C+REF(C,1)+O)/3;
高:=REF(HHV(H,N),M);
低:=REF(LLV(L,N),M);
H19:=高-(高-低)*0.191;
H38:=高-(高-低)*0.382;
H中:=高-(高-低)*0.5;
H61:=高-(高-低)*0.618;
H80:=高-(高-低)*0.809;
J. 谁有.net的图片自动按比例缩小的源代码
要等比例缩放很简单的，思路是长度或宽度固定，另一边根据缩放的比例算出来，然后按照普通的缩放方法生成
缩略图
就可以了。