谁要是帮你写了这个程序,那真是好人.不过,这个好比中大奖,你等着吧. 

怎么了  ？？我只是问问  ，有什么问题哈。 

你不描述下算法，举些例子，估摸没人能给你做了。楼上的引用：这个好比中大奖,你等着吧说的没错。估计就没几个人有（或是能看到）《瞬论与地震短临预报》这本书。俺都没听说过。 

你应该把那本书里的算法和什么是均数都要详细的说明一下..我没听过这东西 

从来没听过那书，你应该把里面主要的问题说清楚，这样才能帮你 

呵呵 不好意思 哈  算法我发上来拉  谢谢 哈  ．一维、二维空间中的数学运算一般都是知所以然而求其然，这种运算方法一般称为正向运算，也就是由因为而求结果。进入到三维空间中的均数运算，则正好与其相反。它是只知其然而求其若干所以然，这种运算方法一般称为逆向运算，也就是由结果而求因为。所以当已知某一均数时，所谓的均数运算就是指对该均数从求解中值的运算通式中找出组成该均数的若干可能解。    5．1算术级数变化的均数运算    这种运算方法是指被分解的均数所代表的物体运动速度相近，均处在两个相邻的z平面之间，其中最大的速度v。要小于最小速度的平方，即要满足v。<v。。    如何从某一均数F(x，yi，zv)中分解成若干组解，再从这若干组解中找出其中的一组解所对应的具体物体呢?其求解的过程大体分如下几步：    5．1．1先计算均数中的实部，求出大偶数或大奇数的若干组解，计算步骤如下：    (1)分析x是奇数还是偶数，是奇数可转入(5)运算，是偶数则转入(2)运算。    (2)设F(x)的半数为D，如果D是奇数时，则转入(3)运算，否则转入(4)运算。    (3)  D：==奇数D—D1  求解通式为：    a。=D一2j    b。一x一(D一2j)  (j一1，2，3……)    (11)依次可求出n组a、b值，a、b必须同时为质数并且满足a+b=x(4)  D一偶数D=D。+1此时只要把D转换为奇数代入(11)式：    当D1一D一1时有  aa。=D一2j一1    bb。一x一(D一2j一1)(12)    当D。一D+1时有  aa。一D一2j+1    bb。=x一(D一2j+1)(13)    (j一1，2，3，……)(aa。和bb。必须同时为质数)这样，即可求出某均数的实部的若干组通解。(5)x是奇数，依据结论2，可知    2=1+1+1该式的含义可以表述为任意一个大于7的奇数均等于三个质数的和。求解过程如下：    ，(1)求出3至x／3之间所有的质数Nj(2)依次求出(x—Nj)的差值，得出j个偶数。(3)  求出j个偶数中每个偶数中的若干组质数解。(4)奇数解的个数为q=M，+M。+M。+……+Mj(M指每一偶数求出的若干组解的个数)。5．1．2计算均数中的虚部的解计算方法同计算均数实部的运算方法。5．1．3计算均数中的古部的解 在计算出均数的实部和虚部之后，对初步确定几个解中的a，b值，按下列公式可计算出与其相对应的古数。t郎一_；三    (a、b、c为求解均数的实部、虚部和古部)    z=√(a。。+b。。)×tgp    (15)  5．2几何级数变化的均数运算  这种运算方法是指被分解的均数所代表的物体运动速度相差甚远，不处在两个相邻的平面内，即满足下列条件    v。>v：    (j≥2)这时计算步骤大体如下：    5．2．1先计算均数的实部，求出大偶数或大奇数的若干组解，计算步骤如下：    (1)分析x是奇数还是偶数，是奇数可转入(5)运算，是偶数转入(2)运算。    (2)设x的半数n次方根整数部分为D，当D为奇数时，则转入(3)运算，为偶数时则转入(4)运算。    ．    (3)D一奇数求解通式同(11)式    “F    D—int^／丢(INT是取整的意思)    (n一1，2，3……)    a。：D一2j    b。一x一(D一2j)    (j一1，2，3……)(aa。和bb。必须同时为质数)    (4)D一偶数    aa。=D一2j+1    bb。一x一(D一2j+1)    或aa。一D一2j一1    bb。一x一(D一2j一1)    (j=1，2，3，……)(aa。和bb。必须同时为质数)    (5)x是奇数，讨论和运算过程同算术级数运算。其解亦为    q—M1+M2+M3+……+Mj  5．2．2虚部计算同算术级数  5．2．3古部计算同算术级数  从上面的讨论可知，算术级数变化的均数运算与几何级数变化的均数运算通式是相同的，只不过是在运算时对D的起算值不同，算术级数变化中的D值是x的平均值，而几何级数变化中的D值是x／2的n次方根的整数部分。另外，在实际运算过程中，如果所取均数的实部和虚部的整数部分有一定的误差范围，开始运算时，参加运算的值一般使用小于该数的最大质数或最小质数(指对负质数而言)