library(klineR)

# Simulate three symbols and run several shape screens.
demo <- run_simulation_demo(
  symbols = c("THS_A", "THS_B", "THS_C"),
  patterns = c("双针探底", "黄金坑", "上升三角形", "红三兵"),
  n = 220,
  seed = 2026,
  output_dir = "demo-charts"
)

print(demo$screen)
cat("\nGenerated chart files:\n")
print(demo$plot_files)
