在编程中编写长上影线指标，通常需要计算K线在某一时间段内的最高价与收盘价之间的差值，以及最高价与开盘价之间的差值。以下是一个基于通达信软件的示例代码，用于生成长上影线指标：
```pascal
{ 长上影线指标公式 }
{ 定义变量 }
H := High； { 当日最高价 }
L := Low； { 当日最低价 }
C := Close； { 当日收盘价 }
O := Open； { 当日开盘价 }
{ 计算上影线长度 }
ShadowLength := H - MAX（C, O）；
{ 计算实体上沿 }
EntityTop := MAX（C, O）；
{ 判断是否出现长上影线 }
A1 := ShadowLength / （H - L） > 0.6； { 上影线占整个K线比例大于60% }
A2 := H / L > 1.05； { 股价波动幅度大于105% }
{ 生成长上影线指标 }
CSYX := A1 AND A2；
{ 输出指标 }
plot1: line.new（x1:=0, y1:=0, x2:=100, y2:=100, color=color.red, width=2）；
plot1.setline（x1, y1, x2, y2, color.red）；
plot1.setlabel（"长上影线", 0, 90, color=color.white, size=10）；
plot1.setlabel（"A1: " + tostring（A1）, 0, 70, color=color.white, size=8）；
plot1.setlabel（"A2: " + tostring（A2）, 0, 50, color=color.white, size=8）；
plot1.setlabel（"ShadowLength: " + tostring（ShadowLength）, 0, 30, color=color.white, size=8）；
plot1.setlabel（"EntityTop: " + tostring（EntityTop）, 0, 10, color=color.white, size=8）；
```
代码解释：
定义变量
`H`：当日最高价。
`L`：当日最低价。
`C`：当日收盘价。
`O`：当日开盘价。
计算上影线长度
`ShadowLength`：当日最高价与实体上沿（收盘价与开盘价中的较大值）之间的差值。
计算实体上沿
`EntityTop`：当日收盘价与开盘价中的较大值。
判断是否出现长上影线
`A1`：上影线长度占整个K线长度的比例是否大于60%。
`A2`：当日股价波动幅度是否大于105%。
生成长上影线指标
`CSYX`：当`A1`和`A2`同时满足时，表示出现长上影线。
输出指标
使用`plot1`线段在图表上绘制长上影线，并添加标签以显示各个变量的值。
建议：
在实际应用中，可以根据具体需求调整指标的计算方法和输出格式。
可以结合其他技术指标和基本面分析，综合判断股价的走势。