[dennou-ruby:000151] Re: reading binary files

[Numaguti Atusi <numa@xxxxxx>]

�¸��Ǥ���

>> ���������ޤ� ***get �����ޤ����äƤ��ʤ��褦�Ǥ���

 > �ɤ����ޤ�����Ǥ��礦��?

�������Ǥϡ�Ruby �Ǥϡ����Ȥ��С�
   Dcl.sglget('lcrip',lcrip)  # ���ߤΥ���åԥ󥰾��������
�ǡ�lcrip ���ͤ��֤��Ƥ�餦���Ȥ����褦��
�᥽�åɤλȤ����ϴ���Ū�ˤϤǤ��ʤ��褦�Ǥ���

�°��� lcrip �����󥪥֥������Ȥˤ���в�ǽ�Ǥ�����
�����侩����ޤ��󤷡��Ȥ������褯����ޤ���

��Ϥꡤ������
   lcrip = Dcl.sglget('lcrip')  
�η��Ǥ���٤����Ȥ������Ȥˤʤ뤫�Ȼפ��ޤ���

�⤷¾�θ���Υ��󥿡��ե������Ȥ���������
����ޤǤλ񻺤ηѾ���Ż뤹��ʤ顤
1. C �ǽ� ext �⥸�塼��Υ�åѤǤϡ�
  ����ޤǤ� dcl �Ȥʤ�٤��ߴ�����⤿���ơ�
   Dcl.sglget('lcrip',lcrip)
�����Ѥ���褦�ˤ���
2. ����ˤ���� ruby �ǽ񤤤���åѤ򤫤֤���
   lcrip = Dcl.getinteger('lcrip')
�����Ѥ���褦�ˤ��롥
�Ȥ����褦�ˤǤ���Ф����ΤǤ������ɤ��⤳�ζڤ��ɤ��ʤ������Ǥ���

�֤��ͤ�ʣ���ʤ顤
  uxmin, uxmax, uymin, uymax = Dcl.sgqwnd()  # ���ߤΥ�����ɥ����������
�����ܤˤʤ�ޤ���f90 �ǤϤ��Τ褦�ʤ���
(������֤��ؿ����ͤ�Ÿ��������������)�ϤǤ��ޤ����ä�?
�Ǥ��ʤ��Ȥ���С�f90 ��(���)���󥿡��ե������ȤϷ���
�Ѥ�äƤ��ޤ��ޤ���

�֤��ͤ����󥯥饹���֥������Ȥ���ȤȤ����֤äƤ���
���ˤϡ���Ψ���Τ��ᡤ�᥽�åɤΰ������˲�Ū�˺��Ѥ�����
���Ȥ�����Ȥ���ǧ��Ƥ褤�ΤǤϤʤ����Ȼפ��ޤ���
�礭�������Ȥ����ˤϡ���Ψ������⤢��ޤ�����
(����ޤ�ʤ��Τ���? ������ GC ���Ƥ���뤷����)

���Ȥ��С�
  call rfftf(n,r,wsave) ! n �ĤΥǡ��� r �� FFT �� r ���֤���
                        ! wsave �Ϥ��餫����������줿���Ѵؿ�ɽ
�ϡ�
  Dcl.rfftf(n,r,wsave)  #
���뤤�ϡ�
  Dcl.rfftf(r,wsave)    # Ruby �Ǥ� r ��������礭�����ΤäƤ���Τ�
�Ǥ褯��
  s = Dcl.rfftf(r,wsave)  # s �� FFT �����ͤ�����
�η��ˤ��ʤ��Ƥ⤤���ΤǤϡ��Ȥ������ȤǤ�
(f90,C �Ȥ��Ȥ���������ͤ���)

���Ȥ��󤵤󡤤ɤ��פ��ޤ���?
���ǧ�����ְ�äƤ������Ŧ���Ƥ���������

�ޤ���Ruby �Υ��󥿡��ե������� f90/C ���󥿡��ե�������
�ɤ�����Ʊ���ˤ����ۤ��������Ȼפ��ޤ��� �� ������

##
Ruby �� Ruby����äƤ��Ƥ⤤������ʤ����Ȥ����Τʤ顤

      PROGRAM GRPK01

      CALL GROPN(IWS)
      CALL GRFRM

      CALL GRSWND(0.0, 1.0, -0.7, 0.7)
      CALL GRSVPT(0.2, 0.8,  0.2, 0.6)
      CALL GRSTRN(1)
      CALL GRSTRF
      CALL USSTTL('X-AXIS', ' ', 'Y1-AXIS', ' ')
      CALL USDAXS
      CALL SGTXZU(0.5, 0.0, 'PAGE:1, FRAME:1', 0.02, 0, 0, 3)

�ϡ����Ȥ��С�

dev = DclDevice.new('X')
dev.newframe

win = DclWindow.new(0.0, 1.0, -0.7, 0.7)
vpt = DclViewport.new(0.2, 0.8,  0.2, 0.6)
fig = DclFig.new(win,vpt,'linear')

fig.AxisTitle('X-AXIS', ' ', 'Y1-AXIS', ' ')
fig.DrawAxis

txt = DclText.new('PAGE:1, FRAME:1', 0.02, 0, 0, 3)
txt.Show

�Ȥ������褦��(�ܺ٤ϤȤ⤫��)��äƤ��ޤ��ȥ��å������ΤǤ��礦����
���������Τϡ��Τ��Τ�����ʤ��åѤȤ��ƹͤ��롤�Ȥ������Ȥ�
�褤���Ȼפ��ޤ���

-- 
�¸�  �ء��̳�ƻ�����ر��ϵ�Ķ��ʳظ����  �絤���η��Ķ��ʳ��칶
tel:011-706-2365 fax:011-706-4865 ��060-0810 ���ڻ��̶���10����5����  
mailto:numa@xxxxxx   http://wwwoa.ees.hokudai.ac.jp/~numa