云计算模型计划启动 – 矩阵柴犬

现实太残酷了，现实中的压力迫使我必须尽快推出一个基本的云计算模型。经过深思熟虑，考虑到资源管理方面的复杂情况，准备仅仅推出一个粗糙的质数计算云端。

这次的开发基于.NET平台。我的Socket通讯引擎可以直接做到迅速部署，客户端和服务端都已经搞定。
搞定引擎后就是云任务的部署与计算了。临时开发了一个质数计算引擎，我认为是可以最大限度的发挥云计算的优势。云端会随时与服务器通讯更新质数列表，这样效率就会不断被提升，速度会越来越快。

Public Function Check_Prime(ByVal Num As Integer) As Boolean
	Try
		If Num = 1 Or Num = 2 Then Return True : Exit Function
		Dim DefinedPrime As Integer = 0
		Dim StartNum As Integer = 2
		If Not PrimeSet.Count = 0 Then
			For S As Integer = 0 To PrimeSet.Count - 1
				If PrimeSet(S) > Math.Sqrt(Num) Then
					Exit For
				Else
					DefinedPrime += 1
				StartNum = PrimeSet(S) + 1
				End If
			Next
			For S As Integer = 1 To DefinedPrime
				If Num Mod PrimeSet(DefinedPrime - 1) = 0 Then
					Return False
					Exit Function
				End If
			Next
		End If

For S As Long = StartNum To Math.Sqrt(Num)
If Num Mod S = 0 Then Return False : Exit Function
Next
PrimeSet.Add(Num)
PrimeSet.Sort()
Return True
Catch ex As Exception
End Try

End Function

这是我的质数判定算法，其中PrimeSet为从小到大顺序排列的已知质数列表，此列表随时与服务器更新。利用这个强大的列表，可以很快确认一个数是否是质数。
明天准备对这个代码进行精简，画出处理流程图。

Leave a Reply Cancel reply