{"id":30634,"date":"2026-07-21T01:16:21","date_gmt":"2026-07-20T16:16:21","guid":{"rendered":"https:\/\/123210.net\/wordpress\/tatenaoshi\/?p=30634"},"modified":"2026-07-21T01:20:26","modified_gmt":"2026-07-20T16:20:26","slug":"%e5%86%8d%e5%b8%b0%e3%81%ae%e5%9f%ba%e7%a4%8e%ef%bc%9a2%e5%80%8d%e3%81%ab%e5%88%86%e5%b2%90%e5%a2%97%e6%ae%96%e3%81%99%e3%82%8b%e6%a7%98%e5%ad%90%e3%82%92%e5%86%8d%e5%b8%b0%e3%83%a2%e3%83%87%e3%83%ab","status":"publish","type":"post","link":"https:\/\/123210.net\/wordpress\/tatenaoshi\/%e5%86%8d%e5%b8%b0%e3%81%ae%e5%9f%ba%e7%a4%8e%ef%bc%9a2%e5%80%8d%e3%81%ab%e5%88%86%e5%b2%90%e5%a2%97%e6%ae%96%e3%81%99%e3%82%8b%e6%a7%98%e5%ad%90%e3%82%92%e5%86%8d%e5%b8%b0%e3%83%a2%e3%83%87%e3%83%ab\/","title":{"rendered":"\u518d\u5e30\u306e\u57fa\u790e\uff1a2\u500d\u306b\u5206\u5c90\u5897\u6b96\u3059\u308b\u69d8\u5b50\u3092\u518d\u5e30\u30e2\u30c7\u30eb\u3067\u8868\u73fe\u3059\u308b\u3000\u5b9f\u884c\u7d50\u679c\u3068\u30bd\u30fc\u30b9\u30b3\u30fc\u30c9"},"content":{"rendered":"

\u5b9f\u884c\u7d50\u679c
\n\"\"<\/a><\/p>\n

\n

C++Builder2007\u30bd\u30fc\u30b9\u30b3\u30fc\u30c9<\/p>\n

\/\/************************
\n\/\/***** Unit1.h ********
\n\/\/************************<\/p>\n

\/\/—————————————————————————<\/p>\n

#ifndef Unit1H
\n#define Unit1H
\n\/\/—————————————————————————
\n#include <Classes.hpp>
\n#include <Controls.hpp>
\n#include <StdCtrls.hpp>
\n#include <Forms.hpp>
\n#include “Chart.hpp”
\n#include “TeEngine.hpp”
\n#include “TeeProcs.hpp”
\n#include <ExtCtrls.hpp>
\n#include “Series.hpp”<\/p>\n

#include <vector>
\n\/\/—————————————————————————
\nconst int max_depth = 8; \/\/ \u6700\u5927\u968e\u5c64\u6570<\/p>\n

class RecursiveWave
\n{
\npublic:
\nint current_depth; \/\/ \u30af\u30e9\u30b9\u30e1\u30f3\u30d0\u30fc\u3068\u3057\u3066
\ndouble Value;
\nRecursiveWave *child1, *child2;
\nRecursiveWave *z_1, *z_2;
\nint direction; \/\/ +1: \u9806\u65b9\u5411\u3001 -1:\u9006\u65b9\u5411<\/p>\n

\/\/ RecursiveWave\u30af\u30e9\u30b9\u306b\u8ffd\u52a0\uff08public\uff09 \u9006\u8ee2\u7248\uff08\u30c8\u30c3\u30d7\u30c0\u30a6\u30f3\u7528\uff09
\nbool isTopDownMode;<\/p>\n

RecursiveWave(int n, int dir);
\n~RecursiveWave();
\nvoid LinkParents(RecursiveWave* parent1, RecursiveWave* parent2); \/\/ \u5f8c\u304b\u3089\u30ea\u30f3\u30af
\nvoid SetupParents(RecursiveWave* node, RecursiveWave* p1, RecursiveWave* p2);
\nvoid Dump(TMemo *memo);
\ndouble GetValue(){ return Value; }
\n};<\/p>\n

std::vector<RecursiveWave*> all_waves1;
\nstd::vector<RecursiveWave*> all_waves2;<\/p>\n

\/\/—————————————————————————
\nclass TForm1 : public TForm
\n{
\n__published: \/\/ IDE-managed Components
\nTChart *Chart1;
\nTButton *ButtonExit;
\nTLineSeries *Series1;
\nTMemo *Memo1;
\nTLineSeries *Series2;
\nTButton *Button1;
\nTRadioGroup *RadioGroup1;
\nvoid __fastcall ButtonExitClick(TObject *Sender);
\nvoid __fastcall Button1Click(TObject *Sender);
\nprivate: \/\/ User declarations
\npublic: \/\/ User declarations
\n__fastcall TForm1(TComponent* Owner);<\/p>\n

RecursiveWave *Top;
\nvoid ChartSetting();<\/p>\n

};
\n\/\/—————————————————————————
\nextern PACKAGE TForm1 *Form1;
\n\/\/—————————————————————————
\n#endif<\/p>\n

 <\/p>\n

\/\/************************
\n\/\/***** Unit1.cpp ******
\n\/\/************************<\/p>\n

\/\/—————————————————————————<\/p>\n

#include <vcl.h>
\n#pragma hdrstop<\/p>\n

#include <math.h>
\n#include “Unit1.h”
\n\/\/—————————————————————————
\n#pragma package(smart_init)
\n#pragma link “Chart”
\n#pragma link “TeEngine”
\n#pragma link “TeeProcs”
\n#pragma link “Series”
\n#pragma resource “*.dfm”
\nTForm1 *Form1;
\n\/\/—————————————————————————
\n__fastcall TForm1::TForm1(TComponent* Owner)
\n: TForm(Owner)
\n{
\n}
\n\/\/—————————————————————————
\nvoid __fastcall TForm1::ButtonExitClick(TObject *Sender)
\n{
\nClose();
\n}
\n\/\/—————————————————————————
\n\/\/ ***** ChartSetting *****
\nvoid TForm1::ChartSetting()
\n{
\nChart1->SeriesList->ClearValues();<\/p>\n

\/\/ \u8ef8\u30bf\u30a4\u30c8\u30eb\u3060\u3051\u8a2d\u5b9a\uff08SeriesCount\u30c1\u30a7\u30c3\u30af\u306fButton1Click\u5074\u306b\u79fb\u52d5\uff09
\nChart1->LeftAxis->Title->Caption = “Value1”;
\nChart1->LeftAxis->Title->Visible = true;
\nChart1->RightAxis->Title->Caption = “Value2”;
\nChart1->RightAxis->Title->Visible = true;
\nChart1->RightAxis->Visible = true;
\nChart1->BottomAxis->Title->Caption = “Count”;
\nChart1->BottomAxis->Visible = true;<\/p>\n

}<\/p>\n

\/\/ \u69cb\u7bc9\u5f8c\u306b\u89aa\u3092\u8a2d\u5b9a\u3059\u308b\u5c02\u7528\u30e1\u30bd\u30c3\u30c9
\nvoid RecursiveWave::LinkParents(RecursiveWave* parent1, RecursiveWave* parent2) {
\nz_1 = parent1;
\nz_2 = parent2 ? parent2 : parent1; \/\/ z_2\u304c\u306a\u3051\u308c\u3070z_1\u3067\u4ee3\u7528<\/p>\n

\/\/ Value\u3092\u89aa\u3092\u4f7f\u3063\u3066\u8a08\u7b97
\nif (z_1) {
\nValue = z_1->Value * 1.7 – (z_2 ? z_2->Value * 0.97 : 0.0) + 1.0;
\n} else {
\nValue = 1.0; \/\/ \u6700\u4e0a\u4f4d\u306e\u521d\u671f\u5024
\n}
\n}<\/p>\n

\/\/ \u65b0\u898f\u30d8\u30eb\u30d1\u30fc\u95a2\u6570\uff08\u30c8\u30c3\u30d7\u30c0\u30a6\u30f3\u3067\u89aa\u60c5\u5831\u3092\u4f1d\u64ad\uff09
\nvoid RecursiveWave::SetupParents(RecursiveWave* node, RecursiveWave* p1, RecursiveWave* p2) {
\nif (!node) return;<\/p>\n

node->LinkParents(p1, p2);
\n\/\/node->LinkParents();<\/p>\n

\/\/ \u5b50\u306b\u4f1d\u3048\u308b\uff08z_1 = node\u81ea\u8eab\u3001z_2 = p1\uff09
\nSetupParents(node->child1, node, p1); \/\/\u518d\u5e30\u547c\u3073\u51fa\u3057
\nSetupParents(node->child2, node, p1); \/\/\u518d\u5e30\u547c\u3073\u51fa\u3057
\n}<\/p>\n

\/\/ ***** \u9806\u65b9\u5411\uff1a\u9006\u65b9\u5411\u9078\u629e\u7248 \u30b3\u30f3\u30b9\u30c8\u30e9\u30af\u30bf *****
\nRecursiveWave::RecursiveWave(int n, int dir): current_depth(n), Value(0.0), child1(NULL), child2(NULL),
\nz_1(NULL), z_2(NULL), direction(dir)
\n{
\nif (n >= max_depth) return;<\/p>\n

if(direction == -1){
\n\/\/\u9006\u65b9\u5411
\n\/\/ \u5b50\u3092\u5148\u306b\u4f5c\u6210\uff08\u518d\u5e30\uff09
\nchild1 = new RecursiveWave(n + 1, dir);
\nchild2 = new RecursiveWave(n + 1, -dir);<\/p>\n

\/\/ all_waves\u767b\u9332
\nall_waves1.push_back(this);
\nall_waves2.push_back(this);<\/p>\n

}else if(direction == +1){
\n\/\/\u9806\u65b9\u5411
\n\/\/ all_waves\u306b\u5148\u306b\u767b\u9332
\nall_waves1.push_back(this);
\nall_waves2.push_back(this);<\/p>\n

\/\/ \u5b50\u3092\u5148\u306b\u4f5c\u6210\uff08\u518d\u5e30\uff09
\nchild1 = new RecursiveWave(n + 1, dir);
\nchild2 = new RecursiveWave(n + 1, -dir);<\/p>\n

}<\/p>\n

}<\/p>\n

\/\/**********************
\n\/\/\u30c7\u30b9\u30c8\u30e9\u30af\u30bf
\nRecursiveWave::~RecursiveWave()
\n{
\nif (child1 != NULL) {
\ndelete child1; \/\/ \u518d\u5e30\u7684\u306b\u5b50\u5b6b\u3092\u3059\u3079\u3066\u524a\u9664
\nchild1 = NULL;
\n}<\/p>\n

if (child2 != NULL) {
\ndelete child1; \/\/ \u518d\u5e30\u7684\u306b\u5b50\u5b6b\u3092\u3059\u3079\u3066\u524a\u9664
\nchild1 = NULL;
\n}
\n\/\/ all_waves\u304b\u3089\u81ea\u5206\u3092\u9664\u53bb\uff08\u4efb\u610f\uff09
\n\/\/ \uff08vector\u304b\u3089erase\u3059\u308b\u306e\u306f\u91cd\u3044\u306e\u3067\u3001\u30af\u30ea\u30a2\u6642\u306b\u4e00\u62ec\u51e6\u7406\u3059\u308b\u65b9\u304c\u826f\u3044\uff09
\n}<\/p>\n

void RecursiveWave::Dump(TMemo *memo)
\n{
\nif (all_waves1.empty()) return;
\nmemo->Hide();<\/p>\n

AnsiString str;
\nint count = 0;<\/p>\n

for (std::vector<RecursiveWave*>::const_iterator it = all_waves1.begin();
\nit != all_waves1.end(); ++it) {
\nRecursiveWave* neigh = *it;
\nif (neigh) {
\nmemo->Lines->Add(str.sprintf(“depth= %d, Value= %g”, neigh->current_depth, neigh->Value) );
\ncount++;
\n}
\n}<\/p>\n

memo->Show();<\/p>\n

\/*memo->Lines->Add(“==============”);
\nfor(int i=0; i<all_waves->size(); i++){
\nmemo->Lines->Add(str.sprintf(“depth= %d, Value= %g”, i, (*all_waves)[i].Value ) );
\n}*\/<\/p>\n

}<\/p>\n

void __fastcall TForm1::Button1Click(TObject *Sender)
\n{
\n\/\/ \u65e2\u5b58\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u30af\u30ea\u30a2\uff08\u30e1\u30e2\u30ea\u30ea\u30fc\u30af\u9632\u6b62\uff09
\nfor (size_t i = 0; i < all_waves1.size(); i++) {
\ndelete all_waves1[i];
\n}
\nall_waves1.clear();
\n\/\/ \u65e2\u5b58\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u30af\u30ea\u30a2\uff08\u30e1\u30e2\u30ea\u30ea\u30fc\u30af\u9632\u6b62\uff09
\nfor (size_t i = 0; i < all_waves2.size(); i++) {
\ndelete all_waves2[i];
\n}
\nall_waves2.clear();<\/p>\n

\/\/\u65b9\u5411\u6307\u5b9a\u3001\u521d\u671f\u5316\u3001\u751f\u6210
\nRecursiveWave *WaveTop;
\nif(RadioGroup1->ItemIndex == 1){
\n\/\/\u9806\u65b9\u5411
\nWaveTop = new RecursiveWave(0, +1); \/\/ \u5f15\u6570\u4e0d\u8981\uff01<\/p>\n

}else if(RadioGroup1->ItemIndex == 0){
\n\/\/\u9006\u65b9\u5411
\nWaveTop = new RecursiveWave(0, -1); \/\/ \u5f15\u6570\u4e0d\u8981\uff01
\n}<\/p>\n

\/\/ \u518d\u5e30\u7684\u306b\u89aa\u30ea\u30f3\u30af\u3092\u8a2d\u5b9a\uff08\u30c8\u30c3\u30d7\u30c0\u30a6\u30f3\uff09
\nWaveTop->SetupParents(WaveTop, NULL, NULL); \/\/ \u65b0\u898f\u30d8\u30eb\u30d1\u30fc\u95a2\u6570<\/p>\n

WaveTop->Dump(Memo1);<\/p>\n

ChartSetting();<\/p>\n

\/\/ Series\u3092\u5b89\u5168\u306b\u8ffd\u52a0
\nChart1->SeriesList->ClearValues(); \/\/ \u5ff5\u306e\u305f\u3081<\/p>\n

\/\/ Series[0] \u3068 Series[1] \u304c\u78ba\u5b9f\u306b\u5b58\u5728\u3059\u308b\u3053\u3068\u3092\u4fdd\u8a3c
\nwhile (Chart1->SeriesCount() < 2) {
\nTLineSeries* s = new TLineSeries(Chart1);
\nChart1->AddSeries(s);
\n}<\/p>\n

int count = 0;
\nfor (std::vector<RecursiveWave*>::const_iterator it = all_waves1.begin();
\nit != all_waves1.end(); ++it) {
\nRecursiveWave* neigh = *it;
\nif (neigh) {
\nChart1->Series[0]->AddY(neigh->Value, “”, clBlue); \/\/ Value\uff08\u5de6\u8ef8\uff09
\n\/\/Chart1->Series[0]->AddY(neigh->current_depth, “”, clBlue); \/\/ Depth\uff08\u53f3\u8ef8\uff09 \u2190 \u30b3\u30e1\u30f3\u30c8\u89e3\u9664OK
\ncount++;
\n}
\n}
\ncount = 0;
\nfor (std::vector<RecursiveWave*>::const_iterator it = all_waves2.begin();
\nit != all_waves2.end(); ++it) {
\nRecursiveWave* neigh = *it;
\nif (neigh) {
\nChart1->Series[1]->AddY(neigh->Value, “”, clRed); \/\/ Value\uff08\u5de6\u8ef8\uff09
\n\/\/Chart1->Series[1]->AddY(neigh->current_depth, “”, clRed); \/\/ Depth\uff08\u53f3\u8ef8\uff09 \u2190 \u30b3\u30e1\u30f3\u30c8\u89e3\u9664OK
\ncount++;
\n}
\n}<\/p>\n

\/\/ \u8ef8\u8a2d\u5b9a\u3092\u518d\u9069\u7528
\nChart1->Series[0]->VertAxis = 0; \/\/ vaLeft
\nChart1->Series[1]->VertAxis = 1; \/\/ vaRight<\/p>\n

delete WaveTop;
\nall_waves1.clear();
\nall_waves2.clear();<\/p>\n

}<\/p>\n

\/\/—————————————————————————<\/p>\n","protected":false},"excerpt":{"rendered":"

\u5b9f\u884c\u7d50\u679c C++Builder2007\u30bd\u30fc\u30b9\u30b3\u30fc\u30c9 \/\/************ … \u7d9a\u304d\u3092\u8aad\u3080 →<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_feature_clip_id":0,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_post_was_ever_published":false},"categories":[1],"tags":[],"class_list":["post-30634","post","type-post","status-publish","format-standard","hentry","category-1"],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/123210.net\/wordpress\/tatenaoshi\/wp-json\/wp\/v2\/posts\/30634","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/123210.net\/wordpress\/tatenaoshi\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/123210.net\/wordpress\/tatenaoshi\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/123210.net\/wordpress\/tatenaoshi\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/123210.net\/wordpress\/tatenaoshi\/wp-json\/wp\/v2\/comments?post=30634"}],"version-history":[{"count":3,"href":"https:\/\/123210.net\/wordpress\/tatenaoshi\/wp-json\/wp\/v2\/posts\/30634\/revisions"}],"predecessor-version":[{"id":30639,"href":"https:\/\/123210.net\/wordpress\/tatenaoshi\/wp-json\/wp\/v2\/posts\/30634\/revisions\/30639"}],"wp:attachment":[{"href":"https:\/\/123210.net\/wordpress\/tatenaoshi\/wp-json\/wp\/v2\/media?parent=30634"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/123210.net\/wordpress\/tatenaoshi\/wp-json\/wp\/v2\/categories?post=30634"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/123210.net\/wordpress\/tatenaoshi\/wp-json\/wp\/v2\/tags?post=30634"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}