1. 高斯投影换带计算
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 5490
ClientLeft = 60
ClientTop = 345
ClientWidth = 7410
LinkTopic = "Form1"
ScaleHeight = 5490
ScaleWidth = 7410
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command3
Caption = "克氏计算"
Height = 495
Left = 2760
TabIndex = 19
Top = 4800
Width = 1215
End
Begin VB.CommandButton Command2
Caption = "退出"
Height = 615
Left = 3960
TabIndex = 18
Top = 4080
Width = 2415
End
Begin VB.CommandButton Command1
Caption = "计算"
Height = 615
Left = 360
TabIndex = 17
Top = 4080
Width = 2175
End
Begin VB.Frame Frame3
Caption = "输出坐标"
Height = 1455
Left = 120
TabIndex = 12
Top = 2280
Width = 6855
Begin VB.TextBox Text6
Height = 495
Left = 3960
TabIndex = 16
Text = "Text6"
Top = 360
Width = 2175
End
Begin VB.TextBox Text5
Height = 375
Left = 720
TabIndex = 14
Text = "Text5"
Top = 480
Width = 1455
End
Begin VB.Label Label8
Caption = "Y="
Height = 375
Left = 3480
TabIndex = 15
Top = 480
Width = 255
End
Begin VB.Label Label7
Caption = "X="
Height = 375
Left = 240
TabIndex = 13
Top = 480
Width = 255
End
End
Begin VB.Frame Frame2
Caption = "输入换代的中央子午线"
Height = 855
Left = 0
TabIndex = 5
Top = 1080
Width = 7095
Begin VB.TextBox Text4
Height = 375
Left = 5280
TabIndex = 9
Text = "Text4"
Top = 240
Width = 1335
End
Begin VB.TextBox Text3
Height = 375
Left = 1800
TabIndex = 8
Text = "Text3"
Top = 240
Width = 1095
End
Begin VB.Label Label6
Caption = "要换到的带的中央子午线"
Height = 495
Left = 3600
TabIndex = 11
Top = 240
Width = 1095
End
Begin VB.Label Label5
Caption = "所在的带的中央子午线"
Height = 495
Left = 240
TabIndex = 10
Top = 240
Width = 1095
End
Begin VB.Label Label3
Caption = "L0="
Height = 375
Left = 4920
TabIndex = 7
Top = 360
Width = 255
End
Begin VB.Label Label4
Caption = "L0="
Height = 255
Left = 1440
TabIndex = 6
Top = 360
Width = 375
End
End
Begin VB.Frame Frame1
Caption = "输入坐标"
Height = 975
Left = 0
TabIndex = 0
Top = 0
Width = 7095
Begin VB.TextBox Text2
Height = 375
Left = 4080
TabIndex = 4
Text = "Text2"
Top = 360
Width = 2295
End
Begin VB.TextBox Text1
Height = 375
Left = 360
TabIndex = 2
Text = "Text1"
Top = 360
Width = 2175
End
Begin VB.Label Label2
Caption = "Y="
Height = 375
Left = 3600
TabIndex = 3
Top = 360
Width = 375
End
Begin VB.Label Label1
Caption = "X="
Height = 375
Left = 120
TabIndex = 1
Top = 360
Width = 255
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim x, y, b, L As Integer
Private Sub Command1_Click()
Dim x, y, L0, b1, c, bf, bf1, bf2, nf, z, b2, b3, b4, b5, b, L, l1 As Variant
x = Val(Text1.Text)
y = Val(Text2.Text)
L0 = Val(Text3.Text)
b1 = (x / 6367452.1328)
c = Cos(b1) * Cos(b1)
bf = b1 * 206264.806247096 + (52289760 + (2936975 + (2383 + 22 * c) * c) * c) * Sin(b1) * Cos(b1) / 10 ^ (10)
bf1 = bf / 206264.806247096
bf2 = Cos(bf1) * Cos(bf1)
nf = 6399596.652 - (21565.045 - (108.996 - 0.603 * bf2) * bf2) * bf2
z = y / (nf * Cos(bf1))
b2 = (0.5 + 0.00336975 * bf2) * Sin(bf1) * Cos(bf1)
b3 = 0.3333333 - (0.1666667 - 0.001123 * bf2) * bf2
b4 = 0.25 + (0.161612 + 0.005617 * bf2) * bf2
b5 = 0.2 - (0.16667 - 0.00878 * bf2) * bf2
b = bf - (1 - (b4 - 0.147 * z * z) * z * z) * z * z * b2 * 206264.806247096
L = (1 - (b3 - b5 * z * z) * z * z) * z * 206264.806247096
l1 = L0 * 3600 + L
Debug.Print l1
Debug.Print b
Dim l2, b6, c1, n, a0, a4, a6, a3, a5, x1, y1 As Variant
l2 = (l1 - Val(Text4.Text) * 3600) / 206264.806247096
b6 = b / 206264.806247096
c1 = Cos(b6) * Cos(b6)
n = 6399596.652 - (21565.045 - (108.996 - 0.603 * c1) * c1) * c1
a0 = 32144.5189 - (135.3646 - (0.7034 - 0.0041 * c1) * c1) * c1
a4 = (0.25 + 0.00253 * c1) * c1 - 0.04167
a6 = (0.167 * c1 - 0.083) * c1
a3 = (0.3333333 + 0.001123 * c1) * c1 - 0.1666667
a5 = 0.00878 - (0.1702 - 0.20382 * c1) * c1
x1 = 6367452.1328 * b / 206264.806247096 - (a0 - (0.5 + (a4 + a6 * l2 * l2) * l2 * l2) * l2 * l2 * n) * Cos(b6) * Sin(b6)
y1 = (1 + (a3 + a5 * l2 * l2) * l2 * l2) * l2 * n * Cos(b6)
Debug.Print x
Debug.Print y
Text5.Text = x1
Text6.Text = y1
End Sub
Private Sub Command3_Click()
Dim x, y, L0, b1, c, bf, bf2, bf1, nf, z, b2, b3, b4, b5, b, L, l1 As Variant
'可氏
x = Val(Text1.Text)
y = Val(Text2.Text)
L0 = Val(Text3.Text)
b1 = (x / 6367558.4969)
c = Cos(b1) * Cos(b1)
bf = b1 * 206264.806247096 + (50221746 + (293622 + (2350 + 22 * c) * c) * c) * Sin(b1) * Cos(b1) / 10 ^ (10)
bf1 = bf / 206264.806247096
bf2 = Cos(bf1) * Cos(bf1)
nf = 6399698.902 - (21562.267 - (108.973 - 0.612 * bf2) * bf2) * bf2
z = y / (nf * Cos(bf1))
b2 = (0.5 + 0.003369 * bf2) * Sin(bf1) * Cos(bf1)
b3 = 0.333333 - (0.166667 - 0.001123 * bf2) * bf2
b4 = 0.25 + (0.161612 + 0.00562 * bf2) * bf2
b5 = 0.2 - (0.1667 - 0.0088 * bf2) * bf2
b = bf - (1 - (b4 - 0.12 * z * z) * z * z) * z * z * b2 * 206264.806247096
L = (1 - (b3 - b5 * z * z) * z * z) * z * 206264.806247096
l1 = L0 * 3600 + L
Debug.Print l1
Debug.Print b
Dim l2, b6, c1, n, a0, a4, a6, a3, a5, x1, y1 As Variant
l2 = (l1 - Val(Text4.Text) * 3600) / 206264.806247096
b6 = b / 206264.806247096
c1 = Cos(b6) * Cos(b6)
n = 6399698.902 - (21562.267 - (108.973 - 0.612 * c1) * c1) * c1
a0 = 32140.404 - (135.3302 - (0.7092 - 0.004 * c1) * c1) * c1
a4 = (0.25 + 0.00252 * c1) * c1 - 0.04166
a6 = (0.166 * c1 - 0.084) * c1
a3 = (0.3333333 + 0.001123 * c1) * c1 - 0.1666667
a5 = 0.0083 - (0.1667 - (0.1968 + 0.004 * c1 * c1) * c1 * c1) * c1 * c1
x1 = 6367558.4969 * b / 206264.806247096 - (a0 - (0.5 + (a4 + a6 * l2 * l2) * l2 * l2) * l2 * l2 * n) * Cos(b6) * Sin(b6)
y1 = (1 + (a3 + a5 * l2 * l2) * l2 * l2) * l2 * n * Cos(b6)
Debug.Print x
Debug.Print y
Text5.Text = x1
Text6.Text = y1
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub Command2_Click()
End
End Sub
2. 债券型基金有哪些那家的收益比较好
挑选适合自己的债券型基金
王蕊 |
目前，国内的债券型基金无论从数量还是规模，在开放式基金中所占的份额都偏弱。市场上基金产品的结构倾向于股票型基金和积极配置型基金，因为长期来看这两类基金的收益水平对投资者有更大的吸引力。而债券型基金最大的长处在于：稳健的风险回报特征以及在弱市中表现出的抗跌性，适合于老年人的低风险承受能力，可以用于普通投资者的养老退休计划中。
如何构建债券型基金的核心组和？投资者首先需要了解国内债券型基金的特征。与美国债券型基金将资产全部用于投资债市不同的是，国内的债券型基金不仅仅投资于债券市场，还将部分资产分布在股票以及可转债市场中，纯债基金廖若星辰。产品设计方面，对比美国的市政债券、高收益债券、长期债券、新兴市场债券基金，国内的债券型基金扎推可参与股市投资的债券基金，这主要与国内债券的基础市场发育不完善、今年债市乏善可陈有关。因此，债券型基金呈现出一些“本土化”的特征。
· 打新股的普通债券型基金——或成主流
早期，可直接参与二级市场股票买卖或转债比重较高的基金风靡一时，此类基金在牛市中可以轻松跑赢同类基金，如银河银联收益、长盛中信全债股票仓位较高，在同类基金中呈现高风险、高收益的特征。富国天利增长债券、融通债券以及招商安泰债券持有转债比重相对较高。可转债由于具有可以转股的性质，一定程度上与股市的关联度较高，波动要小于正股。值得关注的是，融通债券以及招商安泰债券不能投资于股市，而这三只基金的转债比重今年以来逐渐降低，主要原因是牛市的延伸使正股上涨而满足赎回条件的转债越来越多。在股市绝对收益涨幅较大的背景下，基金对转债投资持有谨慎的态度，而新股申购给基金带来较大的超额收益成为多数基金经理的投资策略，这也催生打新股的基金逐渐成为债券型基金的主流。
大成债券、鹏华普天债券、国泰金龙债券、银河银信添利、中信稳定双利、宝康债券、嘉实债券、华夏债券和工银瑞信增强收益债券是可以参与新股申购的债券型基金。在国内的证券市场发展中，参与新股申购是一种低风险、收益稳定的投资行为。特别是随着大盘蓝筹股不断发行上市，预期新股申购可以给基金带来较大的回报，这也成为很多转型基金的投资焦点。近期，一些短债基金转型首选打新股的债券型基金，如南方多利增强、博时稳定价值和诺安优化收益。拟于12月17日发行的国投瑞银稳定增利主要投资于债券类金融工具，也可投资于一级市场新股申购，获得较为安全的新股申购收益。
· 债券基金打新股——收益风险特征不同
打新股的债券型基金虽然股票等权益类资产的仓位不超过20%，根据申购的新股卖出时间的不同也呈现成不同的风险收益特征。风险最低的三只基金是国泰金龙债券、大成债券与鹏华普天债券。其中，国泰金龙债券与大成债券采取新股上市当日卖出的原则，风险控制相对较好。鹏华普天债券通过大幅降低一级市场申购股票的仓位达到降低风险的目的，这三只基金逐渐向纯债类基金靠拢。
风险表现偏低的基金如银河银信添利在新股上市交易后的10个交易日后全部卖出。新股持有时间较长理论上呈现出相对较高的风险特征。中信稳定双利在新股上市交易后的一个月内全部卖出，华夏债券和诺安优化收益则在新股上市的60个交易日内卖出；国投瑞银稳定增利和南方多利增强在90个交易日内卖出。嘉实债券所投资的新股上市流通后持有期不超过6个月，宝康债券则不超过1年；工银瑞银增强收益债券则根据市场价格与内在价值高低的对比，择机卖出。对于普通投资者，债券基金持有上市新股的时间越长，投资者可能获得的收益与承受的风险越高。
· 短债基金——寻求转型为自救
短债基金不参与股市投资，属于纯债类基金，并且通过严格控制组合久期降低风险。此类基金运作以来，债市的清淡表现远远不及股市的红火，特别是2007年上半年，中短期债券也一直处于宏观调控的紧张氛围中盘整走低。这导致中短债基金的业绩乏善可陈，年化回报率与货币市场基金基本持平，规模在业绩的压力下也呈现逐季缩减的态势。目前，仅嘉实超短债没有转型意向，收益率风险表现稳健，偏向于货币市场基金。如果投资者可以接受这一类型基金的风险收益特征，建议考虑自身的风险承受能力外，还要考虑与其他基金的转换问题。
· 如何构建债券型基金的核心组和？
债券型基金的产品特征和费率结构是投资者在选择此类基金的重要因素。如果组合中增加债券型基金是为了规避当前市场的风险，同时不愿意放弃一部分股票收入，那么打新股的债券基金可以更多关注；如果投资者厌恶风险，同时只要求收益高于银行定期存款利率，风险偏低的基金（短债基金或申购新股短期内卖出的普通债券基金）可以作为核心组和。确定投资目标后，还要在风险收益特征相似的基金中结合投资周期、投资金额确定合适费率下的投资对象。
国内债券型基金今年以来业绩回报率
基金名称
11月晨星评级（两年）
今年以来
最近两年风险评价
总回报率（%）
排名
波动幅度（%）
评价
晨星风险系数
评价
普通债券基金（27）
万家增强收益
★★★
17.89
10
5.65
中
1.82
高
中信稳定双利
--
20.19
6
--
--
--
--
华夏债券 - A/B
★★★
15.55
11
3.17
偏低
0.62
偏低
华夏债券 - C
--
15.20
12
--
--
--
--
宝康债券
★★★
26.07
5
4.08
偏低
0.00
低
南方多利增强
--
7.56
17
--
--
--
--
博时稳定价值 - B
★
6.53
20
1.86
低
0.37
低
博时稳定价值 - A
--
--
--
--
--
--
--
友邦华泰稳本增利 - A
--
1.74
23
--
--
--
--
嘉实债券
★★★★
27.44
4
10.05
高
1.85
高
国泰金龙债券
★★
6.23
21
4.68
偏低
0.95
中
大成债券 - A/B
★★
7.13
18
2.81
低
0.60
偏低
大成债券 - C
--
6.55
19
--
--
--
--
富国天利增长债券
★★★★
35.62
3
6.78
中
1.34
中
工银瑞信增强收益债券 - B
--
--
--
--
--
--
--
工银瑞信增强收益债券 - A
--
--
--
--
--
--
--
招商安泰债券 - A
★★★
19.72
7
5.96
中
1.37
中
招商安本增利
--
18.03
9
--
--
--
--
招商安泰债券 - B
--
19.12
8
--
--
--
--
泰信双息双利
--
2.90
22
--
--
--
--
融通债券
★★★
9.58
13
6.21
中
1.45
中
诺安优化收益
--
9.23
14
--
--
--
--
银河银联收益
★★★★
38.16
2
8.70
高
1.71
高
银河银信添利
--
--
--
--
--
--
--
长盛中信全债
★★★★★
38.80
1
6.97
高
0.78
偏低
鹏华普天债券 - A
★★
9.15
15
2.96
低
0.15
低
鹏华普天债券 - B
--
8.18
16
--
--
--
--
短债基金（3）
嘉实超短债
--
3.60
1
--
--
--
--
易方达月月收益 - A
--
2.09
2
0.22
--
1.03
--
易方达月月收益 - B
--
1.98
3
0.23
--
0.97
--
数据来源：Morningstar晨星（中国）
3. 用VB程序怎么做出高斯投影分带计算程序
Dim x, y, b, L As Integer
Private Sub Command1_Click()
Dim x, y, L0, b1, c, bf, bf1, bf2, nf, z, b2, b3, b4, b5, b, L, l1 As Variant
x = Val(Text1.Text)
y = Val(Text2.Text)
L0 = Val(Text3.Text)
b1 = (x / 6367452.1328)
c = Cos(b1) * Cos(b1)
bf = b1 * 206264.806247096 + (52289760 + (2936975 + (2383 + 22 * c) * c) * c) * Sin(b1) * Cos(b1) / 10 ^ (10)
bf1 = bf / 206264.806247096
bf2 = Cos(bf1) * Cos(bf1)
nf = 6399596.652 - (21565.045 - (108.996 - 0.603 * bf2) * bf2) * bf2
z = y / (nf * Cos(bf1))
b2 = (0.5 + 0.00336975 * bf2) * Sin(bf1) * Cos(bf1)
b3 = 0.3333333 - (0.1666667 - 0.001123 * bf2) * bf2
b4 = 0.25 + (0.161612 + 0.005617 * bf2) * bf2
b5 = 0.2 - (0.16667 - 0.00878 * bf2) * bf2
b = bf - (1 - (b4 - 0.147 * z * z) * z * z) * z * z * b2 * 206264.806247096
L = (1 - (b3 - b5 * z * z) * z * z) * z * 206264.806247096
l1 = L0 * 3600 + L
Debug.Print l1
Debug.Print b
Dim l2, b6, c1, n, a0, a4, a6, a3, a5, x1, y1 As Variant
l2 = (l1 - Val(Text4.Text) * 3600) / 206264.806247096
b6 = b / 206264.806247096
c1 = Cos(b6) * Cos(b6)
n = 6399596.652 - (21565.045 - (108.996 - 0.603 * c1) * c1) * c1
a0 = 32144.5189 - (135.3646 - (0.7034 - 0.0041 * c1) * c1) * c1
a4 = (0.25 + 0.00253 * c1) * c1 - 0.04167
a6 = (0.167 * c1 - 0.083) * c1
a3 = (0.3333333 + 0.001123 * c1) * c1 - 0.1666667
a5 = 0.00878 - (0.1702 - 0.20382 * c1) * c1
x1 = 6367452.1328 * b / 206264.806247096 - (a0 - (0.5 + (a4 + a6 * l2 * l2) * l2 * l2) * l2 * l2 * n) * Cos(b6) * Sin(b6)
y1 = (1 + (a3 + a5 * l2 * l2) * l2 * l2) * l2 * n * Cos(b6)
Debug.Print x
Debug.Print y
Text5.Text = x1
Text6.Text = y1
End Sub
Private Sub Command3_Click()
Dim x, y, L0, b1, c, bf, bf2, bf1, nf, z, b2, b3, b4, b5, b, L, l1 As Variant
'可氏
x = Val(Text1.Text)
y = Val(Text2.Text)
L0 = Val(Text3.Text)
b1 = (x / 6367558.4969)
c = Cos(b1) * Cos(b1)
bf = b1 * 206264.806247096 + (50221746 + (293622 + (2350 + 22 * c) * c) * c) * Sin(b1) * Cos(b1) / 10 ^ (10)
bf1 = bf / 206264.806247096
bf2 = Cos(bf1) * Cos(bf1)
nf = 6399698.902 - (21562.267 - (108.973 - 0.612 * bf2) * bf2) * bf2
z = y / (nf * Cos(bf1))
b2 = (0.5 + 0.003369 * bf2) * Sin(bf1) * Cos(bf1)
b3 = 0.333333 - (0.166667 - 0.001123 * bf2) * bf2
b4 = 0.25 + (0.161612 + 0.00562 * bf2) * bf2
b5 = 0.2 - (0.1667 - 0.0088 * bf2) * bf2
b = bf - (1 - (b4 - 0.12 * z * z) * z * z) * z * z * b2 * 206264.806247096
L = (1 - (b3 - b5 * z * z) * z * z) * z * 206264.806247096
l1 = L0 * 3600 + L
Debug.Print l1
Debug.Print b
Dim l2, b6, c1, n, a0, a4, a6, a3, a5, x1, y1 As Variant
l2 = (l1 - Val(Text4.Text) * 3600) / 206264.806247096
b6 = b / 206264.806247096
c1 = Cos(b6) * Cos(b6)
n = 6399698.902 - (21562.267 - (108.973 - 0.612 * c1) * c1) * c1
a0 = 32140.404 - (135.3302 - (0.7092 - 0.004 * c1) * c1) * c1
a4 = (0.25 + 0.00252 * c1) * c1 - 0.04166
a6 = (0.166 * c1 - 0.084) * c1
a3 = (0.3333333 + 0.001123 * c1) * c1 - 0.1666667
a5 = 0.0083 - (0.1667 - (0.1968 + 0.004 * c1 * c1) * c1 * c1) * c1 * c1
x1 = 6367558.4969 * b / 206264.806247096 - (a0 - (0.5 + (a4 + a6 * l2 * l2) * l2 * l2) * l2 * l2 * n) * Cos(b6) * Sin(b6)
y1 = (1 + (a3 + a5 * l2 * l2) * l2 * l2) * l2 * n * Cos(b6)
Debug.Print x
Debug.Print y
Text5.Text = x1
Text6.Text = y1
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub Command2_Click()
End
End Sub
4. 钢化玻璃3C代号E005617是哪个厂
CTC官网查询到的:
2014051302018340 E005617 赫章县垚鑫门窗加工厂 赫章县垚鑫门窗加工厂 玻璃事业部 贵州毕节市赫章县城关镇黄泥村 BTL CNCA-04C-028/安全玻璃 3713 D≥10.76mm;中间层0.76EVA（EN）膜; 0 国家安全玻璃及石英玻璃质量监督检验中心 2014-12-3 0:00:00 2019-12-2 0:00:00 有效 V1001
2014051302017584 E005617 赫章县垚鑫门窗加工厂 赫章县垚鑫门窗加工厂 玻璃事业部 贵州毕节市赫章县城关镇黄泥村 BT0 CNCA-04C-028/安全玻璃 3713 6mm<D≤12mm 0 国家安全玻璃及石英玻璃质量监督检验中心 2014-9-2 0:00:00 2019-9-1 0:00:00 有效 V1001
2015051302018674 E005617 赫章县垚鑫门窗加工厂 赫章县垚鑫门窗加工厂 玻璃事业部 贵州毕节市赫章县城关镇黄泥村 BI CNCA-04C-028/安全玻璃 3713 硅酮胶密封槽铝式双道密封建筑（安全）中空玻璃 1 国家安全玻璃及石英玻璃质量监督检验中心 2015-1-7 0:00:00 2020-1-6 0:00:00 有效 CCCV2014
2014051302017583 E005617 赫章县垚鑫门窗加工厂 赫章县垚鑫门窗加工厂 玻璃事业部 贵州毕节市赫章县城关镇黄泥村 BT0 CNCA-04C-028/安全玻璃 3713 D≤6mm 0 国家安全玻璃及石英玻璃质量监督检验中心 2014-9-2 0:00:00 2019-9-1 0:00:00 有效 V1001
5. 两千万韩元值多少人民币
1韩元=0.005617人民币
2千万韩元=112340人民币