Option Explicit Sub MailAutoSend() Dim ws As Worksheet Dim outlookObj As Outlook.Application Dim mymail As Outlook.MailItem Dim mailbody As String Dim credit As String Set ws = Worksheets("Sheet1") Set outlookObj = CreateObject("Outlook.Ap…

'補正値取得・補正コード生成 For pulse_sel = MEAS_START To MEAS_PHASE_COUNT Step 1 For freq_num = FREQ_START To FREQ_START + FREQ_COUNT Step 1 For sosi_num = SOSI_START To SOSI_START + SOSI_COUNT Step 1 If pulse_num = 0 Then DAT(freq_num, s…

risou_gosa_total = 0.0 For pulse_sel = MEAS_START To MEAS_PHASE_COUNT Step 1 For freq_num = FREQ_START To FREQ_START + FREQ_COUNT Step 1 For sosi_num = SOSI_START To SOSI_START + SOSI_COUNT Step 1 For pulse_num = PHASE_START To PHASE_START…

【メモ】 周波数分解能 df: 周波数分解能は2つの測定値間の周波数間隔を表します。 df = fs / BL サンプリング周波数：fs ブロックサイズ：BL（選択されたサンプリング点数） つまり１ポイント毎の周波数。 【訂正】 ・補正値書き込み シリアル開始の&H1→&H3…

確認事項・補正無し 0x1000 1:無し 0:有り 変更点・autotest_setting()野中 素子のコマンドFTE.CMD_SET(&H100D,＊＊）を削除し、 通過位相の素子ループ直後に FTE.CMD_SET(&H100D,(SOSI_NUM << 16)) を追加する。・通過位相は ATTユニット設定（att_unit_con…

Sub 右矢印検索_次行に表示() Dim start_row(100) As Integer Dim start_col(100) As Integer Dim end_row(100) As Integer Dim end_col(100) As Integer Dim Shp As Shape Dim Ran As Range Dim RowCell, point As Integer Dim strRow, strCol, endRow, end…

①平均回数はオートか指定回数？ [SENSe[1]]|SENSe2|3|4:AVERage:COUNt <numeric_value> [SENSe[1]]|SENSe2|3|4:AVERage:COUNt:AUTO <boolean>②SENS:AVER:SDET OFF ステップ検出OFF③[SENSe[1]]|SENSe2|3|4:AVERage[:STATe] <boolean> 平均化有効③測定 SYST:PRESFREQ 3000MHzCORR:DCYC:STAT 1 //</boolean></boolean></numeric_value>…

1 周波数毎にデータ取得する For freq_num = Freq_start to Freq_start + Freq_count 2 NAのセグメント設定を行う 周波数：NA_FREQ(Freq_num) POINT:(SOSI_COUNT+1) * (AVE+1)*(BEAM_COUNT+1) IFBW:ifbw 3 NA出力ON 4 試験制御ユニット 取得周波数を設定 5 …

σはデータ（または確率分布）の標準偏差（ばらつきを表す量） bellcurve.jp

AZ if 角度<0 then 10進数=*1 else 10進数=（角度/0.01）*-1 endif *1:角度/0.01)*-1)+(2*(4096+(角度/0.01))) else 10進数=角度/0.01 endif EL if 角度>0 then 10進数=（角度/0.01）+2*(4096-(角度/0.01