takane = ta.highest(high,10)
yasune = ta.lowest(low,10)
plot(takane)
plot(yasune)

uwahige = close > open ? high - close : high - open
shitahige = close > open ? open - low : close - low

indicator("高安値のヒゲ")

uwahige = close > open ? high - close : high - open // 上ヒゲ定義
shitahige = close > open ? open - low : close - low //　下ヒゲ定義
takane = ta.highest(high,120)　// 120期間の最高値を取得
yasune = ta.lowest(low,120)　//　120期間の最安値を取得
len = input.int(120,"期間",minval =  1)　//　期間を変更するオプションを作る
sto = ta.stoch(close,high,low,len)　//　ストキャスティクスの定義、期間をlenにすることで変更可能にした
var uwahigesum = 0.00　// varは一回だけ定義する　つまり入れ物の作成 　上ヒゲ合計値用
var shitahigesum = 0.00　//　0.00になっているものは float　という小数点以下を含む　下ヒゲ合計値用
var uwahigeave = 0.00 // 上ヒゲ平均値用
var shitahigeave = 0.00 // 　下ヒゲ平均値用
var countue = 0　// 一方で　０とするとint(整数)扱いで小数点以下を含む値は入れられない　条件の合った上ヒゲ出現数のカウント用
var countshita = 0　// var int　として定義することもできる　条件の合った下ヒゲ出現数のカウント用
if sto > 90 // ストキャスティクスが90より大きい時
    countue += 1　//　countueを1増やす　
    uwahigesum += uwahige　// uwahigesumにuwahigeを足す
    uwahigeave := uwahigesum/countue // uwahigesumを出現回数で割って平均化
else if sto < 10　// 上記条件でないときかつストキャスティクスが10未満の時
    countshita += 1　//　以下は上ヒゲの下ヒゲバージョン
    shitahigesum += shitahige
    shitahigeave := shitahigesum/countshita

plot(uwahigeave) //　ストキャスティクスが90より大きい時のヒゲの長さの平均値
plot(shitahigeave,color = color.green)//ストキャスティクスが10未満の時のヒゲの長さの平均値