求助数学大佬写个子程序公式，股票成本价计算~

嗨特

例如：100元的价格买了1000股
50元的价格买了1000股

25元的价格买2000股

10元的价格买了5000股
幼稚园毕业的我不知道怎么算了，求个子程序计算公式~谢谢
例如输入价格跟数量得到成本价那样~

美稀宗

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
当前均价	双精度小数型
现有价值	整数型
现有数量	整数型

调试输出 (股票开仓 (2.1, 1000))
调试输出 (股票平仓 (3.2, 2.1, 1000))
调试输出 (增仓 (3.2, 1000, 2.1, 1000, 当前均价), 当前均价)
调试输出 (减仓 (3.2, 500, 2.1, 1000, 现有价值, 现有数量), 现有价值, 现有数量)
调试输出 (股票开仓 (100, 1000))  ' 100元的价格买了1000股
调试输出 (增仓 (50, 1000, 100, 1000, 当前均价), 当前均价)  ' 50元的价格买了1000股
调试输出 (增仓 (25, 2000, 当前均价, 2000, 当前均价), 当前均价)  ' 25元的价格买2000股
调试输出 (增仓 (10, 5000, 当前均价, 4000, 当前均价), 当前均价)  ' 10元的价格买了5000股
' * 2100.000000
' * 1100.000000
' * 5300.000000 | 2.650000
' * 550.000000 | 1050 | 500
' * 100000.000000
' * 150000.000000 | 75.000000
' * 200000.000000 | 50.000000
' * 250000.000000 | 27.777778

子程序名	返回值类型	公开	备 注
股票开仓	双精度小数型		返回现有价值
参数名	类 型	参考	可空	数组	备 注
买入价	双精度小数型
买入数	整数型

返回 (买入价 × 买入数)

子程序名	返回值类型	公开	备 注
股票平仓	双精度小数型		返回平仓收益
参数名	类 型	参考	可空	数组	备 注
卖出价	双精度小数型
买入价	双精度小数型
卖出数	整数型

返回 ( (卖出价 － 买入价) × 卖出数)

子程序名	返回值类型	公开	备 注
增仓	双精度小数型		返回现有价值
参数名	类 型	参考	可空	数组	备 注
买入价	双精度小数型
买入数	整数型
历史买入价	双精度小数型
历史买入数	整数型
当前均价	双精度小数型

当前均价 ＝ (买入价 × 买入数 ＋ 历史买入价 × 历史买入数) ÷ (买入数 ＋ 历史买入数)
返回 (买入价 × 买入数 ＋ 历史买入价 × 历史买入数)

子程序名	返回值类型	公开	备 注
减仓	双精度小数型		返回卖出收益
参数名	类 型	参考	可空	数组	备 注
卖出价	双精度小数型
卖出数	整数型
买入价	双精度小数型
买入数	整数型
现有价值	整数型
现有数量	整数型

现有价值 ＝ 买入价 �� (买入数 － 卖出数)
现有数量 ＝ 买入数 － 卖出数
返回 ( (卖出价 － 买入价) × 卖出数)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 当前均价, 双精度小数型<br /> .局部变量 现有价值, 整数型<br /> .局部变量 现有数量, 整数型<br /> <br /> 调试输出 (股票开仓 (2.1, 1000))<br /> 调试输出 (股票平仓 (3.2, 2.1, 1000))<br /> 调试输出 (增仓 (3.2, 1000, 2.1, 1000, 当前均价), 当前均价)<br /> 调试输出 (减仓 (3.2, 500, 2.1, 1000, 现有价值, 现有数量), 现有价值, 现有数量)<br /> 调试输出 (股票开仓 (100, 1000))  ' 100元的价格买了1000股<br /> 调试输出 (增仓 (50, 1000, 100, 1000, 当前均价), 当前均价)  ' 50元的价格买了1000股<br /> 调试输出 (增仓 (25, 2000, 当前均价, 2000, 当前均价), 当前均价)  ' 25元的价格买2000股<br /> 调试输出 (增仓 (10, 5000, 当前均价, 4000, 当前均价), 当前均价)  ' 10元的价格买了5000股<br /> ' * 2100.000000<br /> ' * 1100.000000<br /> ' * 5300.000000 | 2.650000<br /> ' * 550.000000 | 1050 | 500<br /> ' * 100000.000000<br /> ' * 150000.000000 | 75.000000<br /> ' * 200000.000000 | 50.000000<br /> ' * 250000.000000 | 27.777778<br /> <br /> .子程序 股票开仓, 双精度小数型, , 返回现有价值<br /> .参数 买入价, 双精度小数型, 参考<br /> .参数 买入数, 整数型, 参考<br /> <br /> 返回 (买入价 × 买入数)<br /> <br /> .子程序 股票平仓, 双精度小数型, , 返回平仓收益<br /> .参数 卖出价, 双精度小数型<br /> .参数 买入价, 双精度小数型<br /> .参数 卖出数, 整数型<br /> <br /> 返回 ((卖出价 － 买入价) × 卖出数)<br /> <br /> .子程序 增仓, 双精度小数型, , 返回现有价值<br /> .参数 买入价, 双精度小数型<br /> .参数 买入数, 整数型<br /> .参数 历史买入价, 双精度小数型<br /> .参数 历史买入数, 整数型<br /> .参数 当前均价, 双精度小数型, 参考 可空<br /> <br /> 当前均价 ＝ (买入价 × 买入数 ＋ 历史买入价 × 历史买入数) ÷ (买入数 ＋ 历史买入数)<br /> 返回 (买入价 × 买入数 ＋ 历史买入价 × 历史买入数)<br /> <br /> .子程序 减仓, 双精度小数型, , 返回卖出收益<br /> .参数 卖出价, 双精度小数型<br /> .参数 卖出数, 整数型<br /> .参数 买入价, 双精度小数型<br /> .参数 买入数, 整数型<br /> .参数 现有价值, 整数型, 参考 可空<br /> .参数 现有数量, 整数型, 参考 可空<br /> <br /> 现有价值 ＝ 买入价 × (买入数 － 卖出数)<br /> 现有数量 ＝ 买入数 － 卖出数<br /> 返回 ((卖出价 － 买入价) × 卖出数)

月下美孤

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

调试输出 (求单股价格 (50, 1000), 0, , )
信息框 (到文本 (求单股价格 (50, 1000)) ＋ “元”, 0, , )
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
求单股价格	双精度小数型		单位：元
参数名	类 型	参考	可空	数组	备 注
Tprice					总价
Num					股量

返回 (Tprice ÷ Num)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 调试输出 (求单股价格 (50, 1000), 0, , )<br /> 信息框 (到文本 (求单股价格 (50, 1000)) ＋ “元”, 0, , )<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 求单股价格, 双精度小数型, , 单位：元<br /> .参数 Tprice, , , 总价<br /> .参数 Num, , , 股量<br /> <br /> 返回 (Tprice ÷ Num)