VB定制坐标系

就是按照x,y轴,哎呀我也说不好,我给你画个图吧  
  |  
  |  
  |  
  |  
  |-----|-----------|-----------|------------|-------->  
  0           1                       10                   100                     1000                
  1到1000四个格是等距的,每个小格里边的刻度是递进的  
   
 

Top

3楼  viena   (维也纳nn-实心木头人)  回复于 2005-02-28 14:36:28  得分 10

这个没办法直接是线吧，只能自己用代码来模拟~

Top

4楼  viena   (维也纳nn-实心木头人)  回复于 2005-02-28 14:37:10  得分 0

这个没办法直接实现吧，只能自己用代码来模拟~

Top

5楼  ayu2000   (ayu2000)  回复于 2005-02-28 14:54:33  得分 0

我现在用  
    pic.Scale   (-20,   230)-(350,   -20)  
              pic.Line   (0,   0)-(350,   0),   vbBlue  
              pic.Line   (340,   -5)-(350,   0),   vbBlue  
              pic.Line   (340,   5)-(350,   0),   vbBlue  
              pic.Line   (0,   0)-(0,   230),   vbBlue  
              pic.Line   (-3,   220)-(0,   230),   vbBlue  
              pic.Line   (3,   220)-(0,   230),   vbBlue  
               
              pic.Line   (30,   5)-(30,   0),   vbBlue  
              pic.Print   "1"  
              For   j   =   0   To   2  
              For   i   =   1   To   10  
                If   i   =   10   Then  
                pic.Line   ((Log10(i)   +   j)   *   100   +   30,   10)-((Log10(i)   +   j)   *   100   +   30,   0),   vbBlue  
                pic.Print   i   ^   (j   +   1)  
                Else  
                pic.Line   ((Log10(i)   +   j)   *   100   +   30,   0)-((Log10(i)   +   j)   *   100   +   30,   5),   vbBlue  
                End   If  
              Next  
              Next  
  实现了这个X坐标  
  可是我现在不知道实际的数据落到坐标系里的位置  
  ,这些是统计学上用的线形拟合问题  
  不知哪位会这方面的知识