Mars的自语

#1楼  2007-11-03 21:50 燕山南院 [未注册用户]

这个软件写的好，我打算把石油地球化学方面的图版加进去。   回复  引用    

#2楼 [楼主] 2007-11-03 23:13 马维峰      

@燕山南院
看了你的图，很好啊。有什么问题和我联系：）   回复  引用  查看    

#3楼  2007-11-04 16:55 燕山南院 [未注册用户]

在坐标轴设置上如果能加上 坐标轴数值反转，适应更广些。因为如果图版是同位素的话，值是负的，一般需要从大到小显示。：）   回复  引用    

#4楼 [楼主] 2007-11-04 18:42 马维峰      

@燕山南院
下个版本会考虑的，最近事情有点多：）   回复  引用  查看    

#5楼  2007-11-05 09:58 燕山南院 [未注册用户]

修改了一下，使能对三角数据自动作归一化处理，不知道对不对（没学过VB，临时看了一下。）。
Dim tri_sum As Double
'定义一个新变量
...
...
For i = 1 To Count Step 1
'数据转换：三角坐标到直角坐标 对x,y,z,作归一化处理
tri_sum = rngX.Cells(i, 1) + rngY.Cells(i, 1) + rngZ.Cells(i, 1)
x.Cells(i, 1) = GetXFromTernaryAxe(100 * rngX.Cells(i, 1) / tri_sum, 100 * rngY.Cells(i, 1) / tri_sum, 100 * rngZ.Cells(i, 1) / tri_sum)
y.Cells(i, 1) = GetYFromTernaryAxe(100 * rngX.Cells(i, 1) / tri_sum, 100 * rngY.Cells(i, 1) / tri_sum, 100 * rngZ.Cells(i, 1) / tri_sum)   回复  引用    

#6楼  2008-07-08 14:58 wwei63 [未注册用户]

图解太少，能否把云南地调院开发的岩石化学图解增加进去？再一个给中国人用的，洋文看不懂。   回复  引用