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人民幣