【重型金属】Rotten Brains - 在庙里第一次发的原创曲

本来是打算写词完了再唱的，但家里实在没有除了手机以外的录音机
http://pan.baidu.com/s/1sjoDIVj

以下只是闲谈和吐槽-------

Rotten Brains

音源：吉他、贝斯、鼓——Guitar Pro 6（所以渣音色渣音质就不用吐槽了，我怎么也调不好音色
                         合成器——Windows自带midi音色

风格：新派旋律鞭挞金属核（等等你是不是发明了什么风格
总之就是把鞭挞式的Riff，旋死式的副歌、间奏，核式的尾声给瞎拼凑起来的东西

几无调式的Riff，富于旋律的副歌和间奏，分别代表着头痛的现实和美好的幻想。内容差不多就是这样了

在庙里第一次发的原创曲。求评价求建议求鼓励求喷各种球

看起来好辛苦的样子

喜欢金属乐的说~！！顶一个

的顶顶顶顶顶顶顶顶对顶顶顶顶顶顶顶顶顶顶

的顶顶顶顶顶顶顶顶对顶顶顶顶顶顶顶顶顶顶

如果有一天，我希望也搞一首。棒

Guitar Pro 6的大神，我现在用的GP5还快到期了。。。

加油！继续研究!好好学！管不人家怎么评价！坚持！

感觉不错的说

Function themean(datarange)
   
    Dim item As Variant
    Dim i As Integer, y As Integer
   
    i = 0
    y = 0
    For Each item In datarange
        i = i + 1
        y = y + item
    Next
   
    themean = y / i
        
End Function
Function thestv(datarange)

    Dim item As Variant
    Dim i As Integer, y As Integer
   
    i = 0
    y = 0
    For Each item In datarange
        i = i + 1
        y = y + item
    Next
   
    Dim mean As Double
    mean = y / i
   
    Dim sum As Double
    For Each item In datarange
        sum = sum + (item - mean) ^ 2
    Next
   
    thestv = (sum / i) ^ (1 / 2)
   

End Function