# 金融 / 技术分析 / 能量指标 / 计算公式

## `ar_f(n, type)`

声明：function

返回人气意愿指标AR

<!-- tags: 金融 技术分析 能量指标 计算公式 返回 获取 AR -->

| 参数   | 类型    | 说明     |
| ------ | ------- | -------- |
| `n`    | integer | 天数     |
| `type` | integer | 结果类型 |

返回：real/table

### 示例

范例01：计算白云机场截止日2011年9月8日的人气意愿指标AR

```tsl
// 计算白云机场截止日2011年9月8日的人气意愿指标AR。
oV := BackUpSystemParameters2();
setsysparam(pn_stock(), 'SH600004');
setsysparam(pn_cycle(), cy_day());
setsysparam(pn_rate(), 0);
setsysparam(pn_date(), inttodate(20110908));
N := 23;
v := AR_f(N, 0);
return v;
// 输出：155.08
```

范例02：计算白云机场截止2011年9月8日向前推共5天的人气意愿指标AR序列

```tsl
// 计算白云机场截止2011年9月8日向前推共5天的人气意愿指标AR序列。
oV := BackUpSystemParameters2();
setsysparam(pn_stock(), 'SH600004');
setsysparam(pn_cycle(), cy_day());
setsysparam(pn_rate(), 0);
setsysparam(pn_date(), inttodate(20110908));
setsysparam(pn_nday(), 5);
N := 23;
v := AR_f(N, 1);
return v;
```

## `br_f(n, type)`

声明：function

返回人气意愿指标BR

<!-- tags: 金融 技术分析 能量指标 计算公式 返回 获取 BR -->

| 参数   | 类型    | 说明     |
| ------ | ------- | -------- |
| `n`    | integer | 天数     |
| `type` | integer | 结果类型 |

返回：real/table

### 示例

范例01：计算白云机场截止日2011年9月8日的人气意愿指标BR

```tsl
// 计算白云机场截止日2011年9月8日的人气意愿指标BR。
oV := BackUpSystemParameters2();
setsysparam(pn_stock(), 'SH600004');
setsysparam(pn_cycle(), cy_day());
setsysparam(pn_rate(), 0);
setsysparam(pn_date(), inttodate(20110908));
N := 23;
v := BR_f(N, 0);
return v;
// 输出：113.5
```

范例02：计算白云机场截止2011年9月8日向前推共5天的人气意愿指标BR序列

```tsl
// 计算白云机场截止2011年9月8日向前推共5天的人气意愿指标BR序列。
oV := BackUpSystemParameters2();
setsysparam(pn_stock(), 'SH600004');
setsysparam(pn_cycle(), cy_day());
setsysparam(pn_rate(), 0);
setsysparam(pn_date(), inttodate(20110908));
setsysparam(pn_nday(), 5);
N := 23;
v := BR_f(N, 1);
return v;
```

## `cr_f(n, type)`

声明：function

返回带状能量线

<!-- tags: 金融 技术分析 能量指标 计算公式 返回 获取 -->

| 参数   | 类型    | 说明     |
| ------ | ------- | -------- |
| `n`    | integer | 天数     |
| `type` | integer | 结果类型 |

返回：float

### 示例

范例01：计算白云机场截止日2011年9月8日的带状能量线

```tsl
// 计算白云机场截止日2011年9月8日的带状能量线。
oV := BackUpSystemParameters2();
setsysparam(pn_stock(), 'SH600004');
setsysparam(pn_cycle(), cy_day());
setsysparam(pn_rate(), 0);
setsysparam(pn_date(), inttodate(20110908));
N := 23;
v := CR_f(N, 0);
return v;
// 输出：118.47
```

范例02：计算白云机场截止2011年9月8日向前推共5天的带状能量线序列

```tsl
// 计算白云机场截止2011年9月8日向前推共5天的带状能量线序列。
oV := BackUpSystemParameters2();
setsysparam(pn_stock(), 'SH600004');
setsysparam(pn_cycle(), cy_day());
setsysparam(pn_rate(), 0);
setsysparam(pn_date(), inttodate(20110908));
setsysparam(pn_nday(), 5);
N := 23;
v := CR_f(N, 1);
return v;
```

## `cyr_f(n, m, type)`

声明：function

返回市场强弱

<!-- tags: 金融 技术分析 能量指标 计算公式 返回 获取 -->

| 参数   | 类型    | 说明     |
| ------ | ------- | -------- |
| `n`    | integer | 天数     |
| `m`    | integer | 天数     |
| `type` | integer | 结果类型 |

返回：table

### 示例

范例01：计算白云机场截止日2011年9月8日的市场强弱

```tsl
// 计算白云机场截止日2011年9月8日的市场强弱。
oV := BackUpSystemParameters2();
setsysparam(pn_stock(), 'SH600004');
setsysparam(pn_cycle(), cy_day());
setsysparam(pn_rate(), 0);
setsysparam(pn_date(), inttodate(20110908));
N := 23;
M := 6;
v := CYR_f(N, M, 0);
return v;
```

范例02：计算白云机场截止2011年9月8日向前推共5天的市场强弱序列

```tsl
// 计算白云机场截止2011年9月8日向前推共5天的市场强弱序列。
oV := BackUpSystemParameters2();
setsysparam(pn_stock(), 'SH600004');
setsysparam(pn_cycle(), cy_day());
setsysparam(pn_rate(), 0);
setsysparam(pn_date(), inttodate(20110908));
setsysparam(pn_nday(), 5);
N := 23;
M := 6;
v := CYR_f(N, M, 1);
return v;
```

## `mass_f(n_1, n_2, m, type)`

声明：function

返回梅斯线

<!-- tags: 金融 技术分析 能量指标 计算公式 返回 获取 -->

| 参数   | 类型    | 说明     |
| ------ | ------- | -------- |
| `n_1`  | integer | 天数     |
| `n_2`  | integer | 天数     |
| `m`    | integer | 天数     |
| `type` | integer | 结果类型 |

返回：table

### 示例

范例01：计算白云机场截止日2011年9月8日的梅斯线

```tsl
// 计算白云机场截止日2011年9月8日的梅斯线。
oV := BackUpSystemParameters2();
setsysparam(pn_stock(), 'SH600004');
setsysparam(pn_cycle(), cy_day());
setsysparam(pn_rate(), 0);
setsysparam(pn_date(), inttodate(20110908));
N1 := 23;
N2 := 28;
M := 10;
v := Mass_f(N1, N2, M, 0);
return v;
```

范例02：计算白云机场截止2011年9月8日向前推共5天梅斯线序列

```tsl
// 计算白云机场截止2011年9月8日向前推共5天梅斯线序列。
oV := BackUpSystemParameters2();
setsysparam(pn_stock(), 'SH600004');
setsysparam(pn_cycle(), cy_day());
setsysparam(pn_rate(), 0);
setsysparam(pn_date(), inttodate(20110908));
setsysparam(pn_nday(), 5);
N1 := 23;
N2 := 28;
M := 10;
v := Mass_f(N1, N2, M, 1);
return v;
```

## `pcnt_f(n, m, type)`

声明：function

返回幅度比

<!-- tags: 金融 技术分析 能量指标 计算公式 返回 获取 -->

| 参数   | 类型    | 说明     |
| ------ | ------- | -------- |
| `n`    | integer | 天数     |
| `m`    | integer | 天数     |
| `type` | integer | 结果类型 |

返回：table

### 示例

范例01：计算白云机场截止日2011年9月8日的幅度比

```tsl
// 计算白云机场截止日2011年9月8日的幅度比。
oV := BackUpSystemParameters2();
setsysparam(pn_stock(), 'SH600004');
setsysparam(pn_cycle(), cy_day());
setsysparam(pn_rate(), 0);
setsysparam(pn_date(), inttodate(20110908));
N := 10;
M := 15;
v := PCNT_f(N, M, 0);
return v;
```

范例02：计算白云机场截止2011年9月8日向前推共5天的幅度比序列

```tsl
// 计算白云机场截止2011年9月8日向前推共5天的幅度比序列。
oV := BackUpSystemParameters2();
setsysparam(pn_stock(), 'SH600004');
setsysparam(pn_cycle(), cy_day());
setsysparam(pn_rate(), 0);
setsysparam(pn_date(), inttodate(20110908));
setsysparam(pn_nday(), 5);
N := 10;
M := 15;
v := PCNT_f(N, M, 1);
return v;
```

## `psY_f(n, type)`

声明：function

返回心理线

<!-- tags: 金融 技术分析 能量指标 计算公式 返回 获取 -->

| 参数   | 类型    | 说明     |
| ------ | ------- | -------- |
| `n`    | integer | 天数     |
| `type` | integer | 结果类型 |

返回：float

### 示例

范例01：计算白云机场截止日2011年9月8日的心理线

```tsl
// 计算白云机场截止日2011年9月8日的心理线。
oV := BackUpSystemParameters2();
setsysparam(pn_stock(), 'SH600004');
setsysparam(pn_cycle(), cy_day());
setsysparam(pn_rate(), 0);
setsysparam(pn_date(), inttodate(20110908));
N := 23;
v := PSY_f(N, 0);
return v;
// 输出：43.48
```

范例02：计算白云机场截止2011年9月8日向前推共5天的心理线序列

```tsl
// 计算白云机场截止2011年9月8日向前推共5天的心理线序列。
oV := BackUpSystemParameters2();
setsysparam(pn_stock(), 'SH600004');
setsysparam(pn_cycle(), cy_day());
setsysparam(pn_rate(), 0);
setsysparam(pn_date(), inttodate(20110908));
setsysparam(pn_nday(), 5);
N := 23;
v := PSY_f(N, 1);
return v;
```

## `vr_f(n, m, type)`

声明：function

返回成交量变异率

<!-- tags: 金融 技术分析 能量指标 计算公式 返回 获取 -->

| 参数   | 类型    | 说明     |
| ------ | ------- | -------- |
| `n`    | integer | 天数     |
| `m`    | integer | 天数     |
| `type` | integer | 结果类型 |

返回：table

### 示例

范例01：计算白云机场截止日2011年9月8日的成交量变异率

```tsl
// 计算白云机场截止日2011年9月8日的成交量变异率。
oV := BackUpSystemParameters2();
setsysparam(pn_stock(), 'SH600004');
setsysparam(pn_cycle(), cy_day());
setsysparam(pn_rate(), 0);
setsysparam(pn_date(), inttodate(20110908));
N := 23;
M := 6;
v := VR_f(N, M, 0);
return v;
```

范例02：计算白云机场截止2011年9月8日向前推共5天的成交量变异率序列

```tsl
// 计算白云机场截止2011年9月8日向前推共5天的成交量变异率序列。
oV := BackUpSystemParameters2();
setsysparam(pn_stock(), 'SH600004');
setsysparam(pn_cycle(), cy_day());
setsysparam(pn_rate(), 0);
setsysparam(pn_date(), inttodate(20110908));
setsysparam(pn_nday(), 5);
N := 23;
M := 6;
v := VR_f(N, M, 1);
return v;
```

## `wad_f(n, type)`

声明：function

返回威廉多空力度

<!-- tags: 金融 技术分析 能量指标 计算公式 返回 获取 -->

| 参数   | 类型    | 说明     |
| ------ | ------- | -------- |
| `n`    | integer | 天数     |
| `type` | integer | 结果类型 |

返回：real/table

### 示例

范例01：计算白云机场截止日2011年9月8日的威廉多空力度

```tsl
// 计算白云机场截止日2011年9月8日的威廉多空力度。
oV := BackUpSystemParameters2();
setsysparam(pn_stock(), 'SH600004');
setsysparam(pn_cycle(), cy_day());
setsysparam(pn_rate(), 0);
setsysparam(pn_date(), inttodate(20110908));
N := 23;
v := WAD_f(N, 0);
return v;
// 输出：0.31
```

范例02：计算白云机场截止2011年9月8日向前推共5天的威廉多空力度序列

```tsl
// 计算白云机场截止2011年9月8日向前推共5天的威廉多空力度序列。
oV := BackUpSystemParameters2();
setsysparam(pn_stock(), 'SH600004');
setsysparam(pn_cycle(), cy_day());
setsysparam(pn_rate(), 0);
setsysparam(pn_date(), inttodate(20110908));
setsysparam(pn_nday(), 5);
N := 23;
v := WAD_f(N, 1);
return v;
```
