| ²é¿´: 476 | »Ø¸´: 1 | |||
çúçê91гæ (³õÈëÎÄ̳)
|
[ÇóÖú]
ÄÄλ¼ÆËã»ú´òËãÂé·³°ïÎÒ¿´¿´Õâ¶Î³ÌÐòÄÄÀïÓÐÎÊÌ⣬ÔõôÔËÐв»ÏÂÈ¥£¡
|
|
Private Sub Command1_Click() Cls 'Æ·ÖÖÊôÐÔ²ÎÊý a = 4.77: b = 10: c = 43: o = 30: FLDN = 16 '³£Êýa£»Ë®µ¾Éú³¤ÏÂÏÞζÈb£»Ë®µ¾Éú³¤ÉÏÏÞζÈc£»Ë®µ¾¿ª»¨ÊÊÒËζÈo;FLDNΪ¿ª»¨³ÖÐøÌìÊý '¶ÁÈëÆøÏó×ÊÁÏ Dim Tmax(366) As Single 'Tmin(366) As Single bb = Text3.Text Open App.Path & "\" & bb & ".txt" For Input As #3 For NF = 1961 To 2010 If NF / 4 - Int(NF / 4) < 0.1 Then LN = 1 Else LN = 0 End If 'LN = 0 For i = 1 To 365 + LN 'Input #3, SN, YY, MM, dd, LT, HT, SH 'Input #3, SN, YY, MM, dd, RF, WS, TA, SH, LT, HT Input #3, SN, YY, MM, dd, AP, AT, HT, LT, RH, WS, PR, SH Tmax(i) = HT / 10 '- 1.5 'Tmin(i) = LT / 10 '- 1.5 Next i 'Print SN, YY, MM, dd, LT, HT, SH '¸ßΰÜÓýÄ£Äâ 'ʼ»¨ÆÚÓÉÈÕÆÚת»»ÎªÈÕÐò FLM = Text4.Text FLD = Text6.Text KKK = 0 If Int(NF / 4) = NF / 4 Then KKK = 1 If FLM <= 2 Then SH = Int(30.6 * FLM + FLD - 30) Else SH = Int(30.6 * FLM + FLD - 32.3) + KKK End If 'Print SH Dim AT(366) As Single 'Ë®µ¾Ê¼»¨ÆÚǰÎåÌì¼°ºóÊ®ÎåÌì¹²¶þÊ®ÌìµÄÈÕ×î¸ßÆøÎÂµÄÆ½¾ùÖµ For i = SH - 5 To SH + FIDN - 1 Sum = Sum + Tmax(i) Next i AT(SH) = Sum / 20 'Print AT(SH) Dim X As Single If AT(SH) > o Then X = [(AT(SH)-b)/(o-b)] * [(c-(AT(SH))/(c-o)] ^ [(c-o)/(o-b)] SHRT = 1 - X ^ a Else SHRT = 0 End If SHRT = Int(SHRT * 100 + 0.5) / 100 Text2.Text = SHRT Print NF, LN, SHRT Next NF End Sub |
» ²ÂÄãϲ»¶
292Çóµ÷¼Á
ÒѾÓÐ15È˻ظ´
304Çóµ÷¼Á
ÒѾÓÐ5È˻ظ´
²ÄÁÏÓ뻯¹¤¿¼Ñе÷¼Á
ÒѾÓÐ17È˻ظ´
321Çóµ÷¼Á
ÒѾÓÐ5È˻ظ´
329Çóµ÷¼Á
ÒѾÓÐ5È˻ظ´
²ÄÁÏÇóµ÷¼ÁÒ»Ö¾Ô¸¹þ¹¤´ó324
ÒѾÓÐ8È˻ظ´
286Çóµ÷¼Á
ÒѾÓÐ7È˻ظ´
083000ѧ˶274Çóµ÷¼Á
ÒѾÓÐ7È˻ظ´
311Çóµ÷¼Á
ÒѾÓÐ8È˻ظ´
Ò»Ö¾Ô¸C9²ÄÁÏÓ뻯¹¤×¨Òµ×Ü·Ö300Çóµ÷¼Á
ÒѾÓÐ9È˻ظ´
» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:
¼±£ºÇóÓÃFortran»òÕ߯äËûÓïÑÔ±àдһ¸ö³ÌÐò£¬´¦ÀíÏÂÃæµÄÊý¾Ý£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡
ÒѾÓÐ37È˻ظ´
vs2010Ôõô±àÒëudf³ÌÐò
ÒѾÓÐ10È˻ظ´
ÄÄλ´óÉñ°ïÎÒ¿´¿´ÕâÕÅʯīϩµÄTEMÕÕÆ¬
ÒѾÓÐ20È˻ظ´
ÄÄλ´óÉñ°ïÎÒ¿´¿´Õâ¸öÄܲ»ÄÜÖ¤Ã÷ÓÐôÈ»ù´æÔÚ£¿
ÒѾÓÐ14È˻ظ´
ÄÄλ´ó¸çÄܰïÎÒ¿´¿´Õâ¸öASPENÄ£ÄâµÄ½á¹ûÄÄÀï³öÏÖÎÊÌâÁËÂð
ÒѾÓÐ7È˻ظ´
¹ØÓÚ¼¤¹âÆ÷matlab³ÌÐò
ÒѾÓÐ5È˻ظ´
ʵÔÚÊÇ¿´²»³öÕâ¶Îmatlab³ÌÐòÀïÄÄÀï³ö´íÁË£¬Çë´ó¼Ò°ïæ¿´¿´£¡
ÒѾÓÐ10È˻ظ´
¸å×ÓÏÖÔÚÔÚÖÕÉó£¬Í¶¹ý¼ÆËã»ú¸¨ÖúÉè¼ÆÓëͼÐÎѧѧ±¨ µÄ °ïÎÒ¿´¿´°É
ÒѾÓÐ11È˻ظ´
ÇëÎÊΪʲôÎҵĵçÄÔmatlab×°²»ÉÏ
ÒѾÓÐ6È˻ظ´
ÓÐËÓùýtomlab£¬°ïÎÒ¿´¿´ÏÂÃæ³ÌÐòÄÄÀï³ö´íÁË¡£¡£¡£¡£
ÒѾÓÐ11È˻ظ´
´ó¼Ò°®°ïÎÒ¿´¿´Õâ¶ÎMATLAB³ÌÐòΪɶ³ö´íÁË
ÒѾÓÐ5È˻ظ´
ÄÄλ´óÉñÀ´Ö¸µ¼ÏÂÊý×ÖÐźŴ¦ÀíÔõôѧ£¬¸Ð¼¤²»¾¡
ÒѾÓÐ30È˻ظ´
ÄÄλ´óÉñ°ïÎÒ¿´¿´Õâ¸ö´ÓÅ£¶Ç×ÓÀï³öÀ´µÄ¶«Î÷ÊÇʲô
ÒѾÓÐ14È˻ظ´
Âé·³¸÷λ´óÏÀ°ïÎÒ¿´¿´Õâ¸öÊÇʲôÎÊÌâÔì³ÉµÄ£¬Ð¡µÜ²»Ê¤¸Ð¼¤
ÒѾÓÐ4È˻ظ´
´ó¼Ò°ïÎÒ¿´Ò»¸öfortranµÄ³ÌÐò£¬ÎÒ×ÜÊǼÆËã²»³öÕýÈ·µÄ½á¹û
ÒѾÓÐ20È˻ظ´
Âé·³Ëþ·Æ¶ûÇúÏ߸ßÊÖ°ïÎÒ¿´¿´Õ⼸¸öͼ£¬ËµÃ÷ʲôÎÊÌ⣬»òÕßÄÜ´ÓÖеóöʲôÐÅÏ¢£¿
ÒѾÓÐ12È˻ظ´
Óлῴfortran³ÌÐòµÄ£¬Äܰïæ¿´¿´Õâ¸ö³ÌÐòÂð£¿
ÒѾÓÐ10È˻ظ´
ͬһ̨µçÄÔÄÜ´ò¿ª¶à¸ömatlabͬʱÔËÐÐÂð£¿
ÒѾÓÐ9È˻ظ´
Çó¸ßÊÖ°ïÎÒ¿´¿´ÎÒдµĄ̈´ïPLC¿ØÖƲ½½øµç»úµÄ³ÌÐò¶Ô²»¶Ô
ÒѾÓÐ7È˻ظ´
deephill
Ìú¸Ëľ³æ (Ö°Òµ×÷¼Ò)
- Ó¦Öú: 59 (³õÖÐÉú)
- ½ð±Ò: 5262.3
- É¢½ð: 100
- ºì»¨: 16
- Ìû×Ó: 4425
- ÔÚÏß: 425Сʱ
- ³æºÅ: 305318
- ×¢²á: 2006-12-09
- ÐÔ±ð: GG
- רҵ: ΢Á¿ÔªËصØÇò»¯Ñ§
2Â¥2015-05-27 00:15:25














»Ø¸´´ËÂ¥