一直从事气象预报、服务建模实践应用。 注重气象物理场、实况场、地理信息、本体知识库、分布式气象内容管理系统建立。 对Barnes客观分析, 小波,计算神经网络、信任传播、贝叶斯推理、专家系统、网络本体语言有一定体会。 一直使用Java、Delphi、Prolog、SQL编程。
trait Mat {
type Row = Array[Double]
type Matrix = Array[Row]
def transpose(m : Matrix) : Matrix = m.transpose
def dotProd(v1:Row,v2:Row) = (v1 zip v2).map{ t => t._1 * t._2 }.sum
def mXm( m1:Matrix, m2:Matrix ) =
for( m1row <- m1 ) yield
for( m2col <- m2.transpose ) yield
dotProd(m1row, m2col )
case class RichMatrix(m : Matrix){
def T = transpose(m)
def *(that:RichMatrix) = mXm( this.m, that.m )
}
implicit def pimp(m:Matrix) = new RichMatrix(m)
}
object MatTest extends Mat {
def main(args: Array[String]) {
val A : Matrix = Array(
Array( 2.0, 0.0 ),
Array( 3.0,-1.0 ),
Array( 0.0, 1.0 ),
Array( 1.0, 1.0 ))
val B : Matrix = Array(
Array( 1.0, 0.0, 2.0 ),
Array( 4.0, -1.0, 0.0 ))
val C : Matrix = Array(Array( 2.0, 0.0, 4.0 ),
Array( -1.0, 1.0, 6.0 ),
Array( 4.0, -1.0, 0.0 ),
Array( 5.0, -1.0, 2.0 ))
val D = A * B
println(D.map(f => println(f.mkString(","))))
}
}
评论