memo376 : WP-1109

Created Tue Nov 9 17:15:22 2010
Last Modified Wed Nov 17 16:36:10 2010

*#1 Tue Nov 9 17:15:22 2010 / Wed Nov 17 16:36:10 2010

memo377 Forward <= Today => Previous memo375



ケーブルを変えただけなのになんでペデスタルが変わるの?

*#2 Tue Nov 9 18:23:38 2010 / Tue Nov 9 18:23:38 2010


./file/1289294549.ps

ID vs Analogueを見ていたところD215だけ妙に下が綺麗だったのでペデスタルキルの不具合を疑ったが、
上の図を見るとペデスタル回りは正常。
Discriがおかしいのか?

*#3 Tue Nov 9 19:22:15 2010 / Tue Nov 9 19:24:32 2010


macro gaintune num=60
  vec/cre  ids([num]) R
  vec/cre   HV([num]) R
  vec/cre less([num]) R
  vec/cre even([num]) R
  vec/cre more([num]) R
  vec/cre volt([num]) R

  vec/read ids,HV,less,even,more, ./aa
  vec/cre x(3) R
  vec/cre y(3) R

  point = $sigma(log(535))
  do i=1,[num]
    v = HV([i])-100;
    do j=1,3
        vec/inp x([j]) $sigma(log([v]));
        v = [v] + 100
    enddo
    vec/inp y(1) $sigma(log(less([i])+535))
    vec/inp y(2) $sigma(log(even([i])+535))
    vec/inp y(3) $sigma(log(more([i])+535))
    
    vec/cre par(3) R
    v/fit y x ! p2 ' *' 0 par
    id = ids([i])
    rv = $sigma( exp(par(1)+par(2)*[point]+par(3)*[point]*[point]))
    mess [id]
    mess [rv]
    vec/inp volt([i]) [rv]
        wait
  enddo

*  vec/write ids,storepeak,storeoffset ! '(f4, 1x, f8.2, 1x, f8.2)'
  vec/write ids,volt ! '(f4, 1x, f8.2)'
*  vec/write ids,storepeak ./gaintune.txt '(f4, 1x, f8.2)'
return

----------------------------
aa のファイルフォーマット
１行にスペース区切りのfloatが5つ

ID HV中心値 HV-100のpeak HV+0のpeak HV+100のpeak


*Link to:

*Linked from: