[dennou-ruby:003913] Re: [dennou-ruby:003912] 対数軸の描画設定に関して (GGraph)

[Shigenori OTSUKA <shigenori.otsuka@xxxxxxxx>]

������ޡ�

�������Ǥ���
���Τ���𤢤꤬�Ȥ��������ޤ���

��äƤ���������ޥ˥奢������

https://www.gfd-dennou.org/arch/ruby/products/ruby-dcl/ruby-dcl-doc/grph2/node124.html

�򸫤���itypex, itypey �Ͼ��ꥻ�åȤ����Ƚ񤤤Ƥ�������
GGraph �����DCL::grfrm, DCL::grfig �������ǡ�
���Τ������ꥻ�åȤ������ޤ���sinit ���ƤФ������������ޤ���

�桼��¦����б��Ȥ��Ƥϡ�Y������������Τ�����Ȼפ��ޤ���

�Ƿ����ޡ�

GGraph.axes �Υ��ץ���������������ˤ��Ƥ����Ȼפ��ޤ�����
�������Ǥ��礦����
�ѥå����Ƥߤޤ�����ź����ޤ���

On 2015/11/04 16:46, Fumitaka Matsuba wrote:
> �Ǿ Ruby �Τߤʤ���
> �������� M1 �ξ���ȿ����ޤ���
> ���Ƥ��ʸ�Ǥ�������Ϥ��������
>
> ���������Ȥϴ���ǡ�����, 100, 1000 �Τ褦�ˤ������ơ�
> �������ҤȤĤ�����Ǥ������ˤ������櫓�ʤΤǤ���
> �Ȥ�����GGraph �������åɤȶ�¸�Ǥ��ʤ��ƺ��äƤ��ޤ���
>
> GGraph.set_fig 'itr'=>2 �Ȥ��Ƥ����ޤ���
>
> ��������100��1000 �Τ褦����������ϡ�DCL.ulylog ��ä�> ����Τ��ޥ˥奢���꤫�Ȼפ��ޤ����������Ǥϡ�DCL.usyaxs(s) �Ǻ���������ޤ������褵���뤳�Ȥ���ޤ���
>
> DCL.ulylog ��п��, 100, 1000 ɽ�����褦�Ȥ�������
> �ޥ˥奢��������CL.uliset('iytype', 3) ��٤�Ѥ��ޤ� (ư��ǧ)��
> http://ruby.gfd-dennou.org/products/ruby-dcl/ruby-dcl-doc/grph2/node55.html
>
> �ǡ����ޤ�����������CL.usyaxs(s) �Ǥ����DCL.ulylog ���> �����ǡ�Ʊ���DCL.uliset ��'iytype' ���������Ǥ����Ǥϡ��ȻפäƤ� �¤�ѹ���������> FortranDCL �Υ�����������������ΤȤ��ˤϼ¤�DCL.usiset('itypey', 3) ��> ���ʤ��ȡ�����ѹ��� DCL.ulylog �˼�Ϥ��������Ȥ�ʬ���äƤ��ޤ�
> (����ư��ǧ)��
> https://www.gfd-dennou.org/arch/ruby/products/ruby-dcl/ruby-dcl-doc/grph2/node124.html
> # GGraph �β����������Ƥ���CL �Υ������Ϥɤ��򻲾Ȥ����餤������
> # ʬ�������ä��Τ�Fortran ��ˤƳ����������Ǥ���
>
> �������餬���Ǥ�����Ʊ���褦����Ǥ��ޤ������������롼���> �Ƥ��������GGraph �������å�(���Ȥ���GGraph.line)������
> �Ȥ��ˤϡ�DCL.usiset('itypey', 3) �Ȥ��Ƥ�����ȿ�Ǥ�������> ����GGraph.axes �˰��ƺǽ�Ū��DCL.usyaxs(s) ����Ǥ���� �Ϥ��ʤΤǡ����ư���ʤ����Τ��ɤ����Ƥⵤ�ˤʤ�����
>
> �����ǡ���Ѥ��� GPhys �ΥС�������1.4.3.2�ǡ�DCL �ΥС�������> 6.0.2 �Ǥ��� (debian �ѥå������κǿ��)��
>
> �����Ǥ����������������ƤߤƤ�������ޤ��Ǥ��礦����
> ���������ꤤ�������ޤ���
>
> �ʤ�������륹�����Ȥȼ��δĶ��Ǥμ¹Է�����Ƥ����ޤ�����
> ���ǡ����ϥ�塼�ȥꥢ���ڡ�����������Ƥ�������
> http://ruby.gfd-dennou.org/products/gphys/tutorial/air.2012-01.nc
>
> --
> ��� �˹�Fumitaka Matsuba)
> ��������� ��ظ��� �����ʳ�칶
> �����ض��� ���ݳظ��漼 M1
> E-mail: matsuba@xxxxxxxxxxxxxxxxxx <mailto:matsuba@xxxxxxxxxxxxxxxxxx>


--
���� (Shigenori OTSUKA)
����泫ȯˡ���������׻��ʳظ��浡��(AICS)
�ǡ���Ʊ�����������650-0047ʼ�˸���ͻ������Į7-1-26
��078-940-5814
shigenori.otsuka@xxxxxxxx

diff --git a/lib/numru/ggraph.rb b/lib/numru/ggraph.rb
index b095da7..1523aae 100644
--- a/lib/numru/ggraph.rb
+++ b/lib/numru/ggraph.rb
@@ -1523,6 +1523,8 @@ module NumRu
                'Interval of x axis label (if nil, internally determined)'],
       ['ylabelint',  nil,
                'Interval of y axis label (if nil, internally determined)'],
+      ['xloglabeltype', 1, 'x log label type (1: "1*10^2, 2*10^2, ...", 2: "1*10^2, 2, 3, ...", 3: "100, 200, ...", 4: "100, 2, 3, ...")'],
+      ['yloglabeltype', 1, 'y log label type (1: "1*10^2, 2*10^2, ...", 2: "1*10^2, 2, 3, ...", 3: "100, 200, ...", 4: "100, 2, 3, ...")'],
       ['xloglabelall',  false,
                'Show lavels for all log-level tick marks (x-axes) (e.g.,1000,900,800,... inseatd of 1000,500,200,...)'],
       ['yloglabelall',  false,
@@ -1652,6 +1654,8 @@ module NumRu
             DCL.uscset('cxunit', sunits)
             DCL.uspset('dxt', opts['xtickint'])  if(opts['xtickint'])
             DCL.uspset('dxl', opts['xlabelint']) if(opts['xlabelint'])
+            DCL.uspset('itypex', opts['xloglabeltype']) if(opts['xloglabeltype'])
+            DCL.uspset('itypey', opts['yloglabeltype']) if(opts['yloglabeltype'])
             if(opts['xloglabelall'])
               DCL.uspset('nlblx', 4)
               DCL.ulsxbl([1,2,3,4,5,6,7,8,9])