IDL 过程 Exp_Control.pro：生成随机数组并分级统计

本代码示例展示了使用 IDL 语言编写一个名为 Exp_Control 的过程，该过程生成一个 200x200 的随机浮点数数组，并将其分成 10 个等级进行统计，最终输出每个等级的元素个数和对应的下标索引位置数组。

代码示例

PRO Exp_Control, Out_Count=Out_Count, Out_Ind=Out_Ind
    ; 设置随机种子
    RANDOMU, seed=0
    ; 生成 200*200 的随机值矩阵
    Arr = RANDOMU(seed, 200, 200) * 2 - 1
    ; 以 0.2 为间隔将 Arr 分成 10 个等级
    lev = HISTOGRAM(Arr, NBINS=10, MIN=-1, MAX=1, /COUNT, /LOCATION)
    ; 循环输出每一个等级元素的个数
    FOR i=0, 9 DO PRINT, 'Level ', i, ':', lev[i]
    ; 传出每一等级的元素个数及其下标索引位置数组
    Out_Count = lev
    Out_Ind = HISTOGRAM(Arr, NBINS=10, MIN=-1, MAX=1, /LOCATION)
END

命令行调用

IDL> Exp_Control, Out_Count=c, Out_Ind=i

查询传出的数据

IDL> HELP, c, i
C               LONG      = Array[10]
I               LONG      = Array[10, 2]

代码解释

设置随机种子: RANDOMU, seed=0 用于设置随机数生成器的种子，以确保每次运行程序时生成不同的随机数序列。
生成随机值矩阵: Arr = RANDOMU(seed, 200, 200) * 2 - 1 使用 RANDOMU 函数生成一个 200x200 的随机数矩阵，并将其值范围缩放到 [-1, 1] 之间。
分级统计: lev = HISTOGRAM(Arr, NBINS=10, MIN=-1, MAX=1, /COUNT, /LOCATION) 使用 HISTOGRAM 函数将 Arr 分成 10 个等级，并统计每个等级的元素个数和对应的下标索引位置。
输出结果: FOR i=0, 9 DO PRINT, 'Level ', i, ':', lev[i] 循环输出每个等级的元素个数。
传出数据: Out_Count = lev 和 Out_Ind = HISTOGRAM(Arr, NBINS=10, MIN=-1, MAX=1, /LOCATION) 将每个等级的元素个数和对应的下标索引位置数组分别赋值给 Out_Count 和 Out_Ind，以便在命令行中查询。

总结

本代码示例展示了使用 IDL 语言生成随机数组并进行分级统计的方法，并通过 Out_Count 和 Out_Ind 变量将统计结果传出，方便用户在命令行中查询。