Vol.101：三菱重工サーマルシステムズ株式会社
New Sculptorにより空調用ファン形状最適化の作業工数を約85%削減
#!/usr/bin/perl
# SSIから "./file_list.pl 製品名"（または "../../request/download/file_list.pl 製品名"）の形式で呼ばれ、製品のファイル一覧を出力する
# 任意コマンドの実行を防ぐため、file_list.pl と製品名（ディレクトリ名）以外は受け付けない
use FindBin qw($Bin);
my $q = $ENV{'QUERY_STRING'} ;
$q =~ s/%([0-9a-fA-F]{2})/pack("C", hex($1))/eg ;
if($q =~ /^(?:\.{1,2}\/|[\w\-]+\/)*file_list\.pl\s+([\w\-][\w.\-]*)\s*$/ && $1 !~ /\.\./){
my $product = $1 ;
chdir($Bin) ;
exec($^X, "$Bin/file_list.pl", $product) ;
}
print "Content-type: text/html\n\n" ;
exit(0);
|
|
Vol.102：三菱自動車工業株式会社
iDIOS-CHEETAHによる空力・通風性能の大規模多目的最適化事例
#!/usr/bin/perl
# SSIから "./file_list.pl 製品名"（または "../../request/download/file_list.pl 製品名"）の形式で呼ばれ、製品のファイル一覧を出力する
# 任意コマンドの実行を防ぐため、file_list.pl と製品名（ディレクトリ名）以外は受け付けない
use FindBin qw($Bin);
my $q = $ENV{'QUERY_STRING'} ;
$q =~ s/%([0-9a-fA-F]{2})/pack("C", hex($1))/eg ;
if($q =~ /^(?:\.{1,2}\/|[\w\-]+\/)*file_list\.pl\s+([\w\-][\w.\-]*)\s*$/ && $1 !~ /\.\./){
my $product = $1 ;
chdir($Bin) ;
exec($^X, "$Bin/file_list.pl", $product) ;
}
print "Content-type: text/html\n\n" ;
exit(0);
|
Vol.103：三菱自動車工業株式会社
New Sculptorを用いた実形状車両のモーフィングモデル作成事例
#!/usr/bin/perl
# SSIから "./file_list.pl 製品名"（または "../../request/download/file_list.pl 製品名"）の形式で呼ばれ、製品のファイル一覧を出力する
# 任意コマンドの実行を防ぐため、file_list.pl と製品名（ディレクトリ名）以外は受け付けない
use FindBin qw($Bin);
my $q = $ENV{'QUERY_STRING'} ;
$q =~ s/%([0-9a-fA-F]{2})/pack("C", hex($1))/eg ;
if($q =~ /^(?:\.{1,2}\/|[\w\-]+\/)*file_list\.pl\s+([\w\-][\w.\-]*)\s*$/ && $1 !~ /\.\./){
my $product = $1 ;
chdir($Bin) ;
exec($^X, "$Bin/file_list.pl", $product) ;
}
print "Content-type: text/html\n\n" ;
exit(0);
|
|
Vol.104：パナソニックエコシステムズ株式会社
FBasis V1による換気扇の騒音低減への取り組み
#!/usr/bin/perl
# SSIから "./file_list.pl 製品名"（または "../../request/download/file_list.pl 製品名"）の形式で呼ばれ、製品のファイル一覧を出力する
# 任意コマンドの実行を防ぐため、file_list.pl と製品名（ディレクトリ名）以外は受け付けない
use FindBin qw($Bin);
my $q = $ENV{'QUERY_STRING'} ;
$q =~ s/%([0-9a-fA-F]{2})/pack("C", hex($1))/eg ;
if($q =~ /^(?:\.{1,2}\/|[\w\-]+\/)*file_list\.pl\s+([\w\-][\w.\-]*)\s*$/ && $1 !~ /\.\./){
my $product = $1 ;
chdir($Bin) ;
exec($^X, "$Bin/file_list.pl", $product) ;
}
print "Content-type: text/html\n\n" ;
exit(0);
|
Vol.105：東京大学生産技術研究所
東京大学生産技術研究所によるHoloLens MR（Mixed Reality）適用事例
#!/usr/bin/perl
# SSIから "./file_list.pl 製品名"（または "../../request/download/file_list.pl 製品名"）の形式で呼ばれ、製品のファイル一覧を出力する
# 任意コマンドの実行を防ぐため、file_list.pl と製品名（ディレクトリ名）以外は受け付けない
use FindBin qw($Bin);
my $q = $ENV{'QUERY_STRING'} ;
$q =~ s/%([0-9a-fA-F]{2})/pack("C", hex($1))/eg ;
if($q =~ /^(?:\.{1,2}\/|[\w\-]+\/)*file_list\.pl\s+([\w\-][\w.\-]*)\s*$/ && $1 !~ /\.\./){
my $product = $1 ;
chdir($Bin) ;
exec($^X, "$Bin/file_list.pl", $product) ;
}
print "Content-type: text/html\n\n" ;
exit(0);
|
|
Vol.106：ボンバルディア社(Bombardier Inc.)
最適設計のためのメッシュ生成専用サーバーの開発事例
#!/usr/bin/perl
# SSIから "./file_list.pl 製品名"（または "../../request/download/file_list.pl 製品名"）の形式で呼ばれ、製品のファイル一覧を出力する
# 任意コマンドの実行を防ぐため、file_list.pl と製品名（ディレクトリ名）以外は受け付けない
use FindBin qw($Bin);
my $q = $ENV{'QUERY_STRING'} ;
$q =~ s/%([0-9a-fA-F]{2})/pack("C", hex($1))/eg ;
if($q =~ /^(?:\.{1,2}\/|[\w\-]+\/)*file_list\.pl\s+([\w\-][\w.\-]*)\s*$/ && $1 !~ /\.\./){
my $product = $1 ;
chdir($Bin) ;
exec($^X, "$Bin/file_list.pl", $product) ;
}
print "Content-type: text/html\n\n" ;
exit(0);
|
Vol.107：マツダ株式会社
複数車種の車体構造 大規模同時最適化
#!/usr/bin/perl
# SSIから "./file_list.pl 製品名"（または "../../request/download/file_list.pl 製品名"）の形式で呼ばれ、製品のファイル一覧を出力する
# 任意コマンドの実行を防ぐため、file_list.pl と製品名（ディレクトリ名）以外は受け付けない
use FindBin qw($Bin);
my $q = $ENV{'QUERY_STRING'} ;
$q =~ s/%([0-9a-fA-F]{2})/pack("C", hex($1))/eg ;
if($q =~ /^(?:\.{1,2}\/|[\w\-]+\/)*file_list\.pl\s+([\w\-][\w.\-]*)\s*$/ && $1 !~ /\.\./){
my $product = $1 ;
chdir($Bin) ;
exec($^X, "$Bin/file_list.pl", $product) ;
}
print "Content-type: text/html\n\n" ;
exit(0);
|
|
Vol.108：米国 Optimal Solutions Software社
プラット・アンド・ホイットニー（Pratt & Whitney）New Sculptor Shape Matchingのタービン翼形状への適用
#!/usr/bin/perl
# SSIから "./file_list.pl 製品名"（または "../../request/download/file_list.pl 製品名"）の形式で呼ばれ、製品のファイル一覧を出力する
# 任意コマンドの実行を防ぐため、file_list.pl と製品名（ディレクトリ名）以外は受け付けない
use FindBin qw($Bin);
my $q = $ENV{'QUERY_STRING'} ;
$q =~ s/%([0-9a-fA-F]{2})/pack("C", hex($1))/eg ;
if($q =~ /^(?:\.{1,2}\/|[\w\-]+\/)*file_list\.pl\s+([\w\-][\w.\-]*)\s*$/ && $1 !~ /\.\./){
my $product = $1 ;
chdir($Bin) ;
exec($^X, "$Bin/file_list.pl", $product) ;
}
print "Content-type: text/html\n\n" ;
exit(0);
|
Vol.110：公益財団法人 東洋食品研究所
容器詰食品の加熱殺菌時の内部温度分布の解析
#!/usr/bin/perl
# SSIから "./file_list.pl 製品名"（または "../../request/download/file_list.pl 製品名"）の形式で呼ばれ、製品のファイル一覧を出力する
# 任意コマンドの実行を防ぐため、file_list.pl と製品名（ディレクトリ名）以外は受け付けない
use FindBin qw($Bin);
my $q = $ENV{'QUERY_STRING'} ;
$q =~ s/%([0-9a-fA-F]{2})/pack("C", hex($1))/eg ;
if($q =~ /^(?:\.{1,2}\/|[\w\-]+\/)*file_list\.pl\s+([\w\-][\w.\-]*)\s*$/ && $1 !~ /\.\./){
my $product = $1 ;
chdir($Bin) ;
exec($^X, "$Bin/file_list.pl", $product) ;
}
print "Content-type: text/html\n\n" ;
exit(0);
|
|
Vol.111：NEC
SX-AuroraTSUBASAによるSMS-BEM,SMS-MFの超高速化
#!/usr/bin/perl
# SSIから "./file_list.pl 製品名"（または "../../request/download/file_list.pl 製品名"）の形式で呼ばれ、製品のファイル一覧を出力する
# 任意コマンドの実行を防ぐため、file_list.pl と製品名（ディレクトリ名）以外は受け付けない
use FindBin qw($Bin);
my $q = $ENV{'QUERY_STRING'} ;
$q =~ s/%([0-9a-fA-F]{2})/pack("C", hex($1))/eg ;
if($q =~ /^(?:\.{1,2}\/|[\w\-]+\/)*file_list\.pl\s+([\w\-][\w.\-]*)\s*$/ && $1 !~ /\.\./){
my $product = $1 ;
chdir($Bin) ;
exec($^X, "$Bin/file_list.pl", $product) ;
}
print "Content-type: text/html\n\n" ;
exit(0);
|
Vol.112：パナソニックエコシステムズ
Sculptor4.0を用いたポンプ形状の最適化
#!/usr/bin/perl
# SSIから "./file_list.pl 製品名"（または "../../request/download/file_list.pl 製品名"）の形式で呼ばれ、製品のファイル一覧を出力する
# 任意コマンドの実行を防ぐため、file_list.pl と製品名（ディレクトリ名）以外は受け付けない
use FindBin qw($Bin);
my $q = $ENV{'QUERY_STRING'} ;
$q =~ s/%([0-9a-fA-F]{2})/pack("C", hex($1))/eg ;
if($q =~ /^(?:\.{1,2}\/|[\w\-]+\/)*file_list\.pl\s+([\w\-][\w.\-]*)\s*$/ && $1 !~ /\.\./){
my $product = $1 ;
chdir($Bin) ;
exec($^X, "$Bin/file_list.pl", $product) ;
}
print "Content-type: text/html\n\n" ;
exit(0);
|
|
Vol.113：JAXA
CRUNCH CFD 液体ロケットエンジンの実用超臨界流体シミュレーション
#!/usr/bin/perl
# SSIから "./file_list.pl 製品名"（または "../../request/download/file_list.pl 製品名"）の形式で呼ばれ、製品のファイル一覧を出力する
# 任意コマンドの実行を防ぐため、file_list.pl と製品名（ディレクトリ名）以外は受け付けない
use FindBin qw($Bin);
my $q = $ENV{'QUERY_STRING'} ;
$q =~ s/%([0-9a-fA-F]{2})/pack("C", hex($1))/eg ;
if($q =~ /^(?:\.{1,2}\/|[\w\-]+\/)*file_list\.pl\s+([\w\-][\w.\-]*)\s*$/ && $1 !~ /\.\./){
my $product = $1 ;
chdir($Bin) ;
exec($^X, "$Bin/file_list.pl", $product) ;
}
print "Content-type: text/html\n\n" ;
exit(0);
|
Vol.114：トヨタ自動車
iDIOS-CHEETAHとCAE解析結果データベースを用いたパレートフロント解析
#!/usr/bin/perl
# SSIから "./file_list.pl 製品名"（または "../../request/download/file_list.pl 製品名"）の形式で呼ばれ、製品のファイル一覧を出力する
# 任意コマンドの実行を防ぐため、file_list.pl と製品名（ディレクトリ名）以外は受け付けない
use FindBin qw($Bin);
my $q = $ENV{'QUERY_STRING'} ;
$q =~ s/%([0-9a-fA-F]{2})/pack("C", hex($1))/eg ;
if($q =~ /^(?:\.{1,2}\/|[\w\-]+\/)*file_list\.pl\s+([\w\-][\w.\-]*)\s*$/ && $1 !~ /\.\./){
my $product = $1 ;
chdir($Bin) ;
exec($^X, "$Bin/file_list.pl", $product) ;
}
print "Content-type: text/html\n\n" ;
exit(0);
|
|
Vol.115：ターボ機械協会
ボックスファンの設計最適化
#!/usr/bin/perl
# SSIから "./file_list.pl 製品名"（または "../../request/download/file_list.pl 製品名"）の形式で呼ばれ、製品のファイル一覧を出力する
# 任意コマンドの実行を防ぐため、file_list.pl と製品名（ディレクトリ名）以外は受け付けない
use FindBin qw($Bin);
my $q = $ENV{'QUERY_STRING'} ;
$q =~ s/%([0-9a-fA-F]{2})/pack("C", hex($1))/eg ;
if($q =~ /^(?:\.{1,2}\/|[\w\-]+\/)*file_list\.pl\s+([\w\-][\w.\-]*)\s*$/ && $1 !~ /\.\./){
my $product = $1 ;
chdir($Bin) ;
exec($^X, "$Bin/file_list.pl", $product) ;
}
print "Content-type: text/html\n\n" ;
exit(0);
|
Vol.116：FOCUS
FOCUSにおけるCCNV Center Licenseの活用
#!/usr/bin/perl
# SSIから "./file_list.pl 製品名"（または "../../request/download/file_list.pl 製品名"）の形式で呼ばれ、製品のファイル一覧を出力する
# 任意コマンドの実行を防ぐため、file_list.pl と製品名（ディレクトリ名）以外は受け付けない
use FindBin qw($Bin);
my $q = $ENV{'QUERY_STRING'} ;
$q =~ s/%([0-9a-fA-F]{2})/pack("C", hex($1))/eg ;
if($q =~ /^(?:\.{1,2}\/|[\w\-]+\/)*file_list\.pl\s+([\w\-][\w.\-]*)\s*$/ && $1 !~ /\.\./){
my $product = $1 ;
chdir($Bin) ;
exec($^X, "$Bin/file_list.pl", $product) ;
}
print "Content-type: text/html\n\n" ;
exit(0);
|
|
Vol.117：米国CRAFT Tech社
超音速 統合攻撃戦闘機の兵器倉の高精度 空力負荷解析
#!/usr/bin/perl
# SSIから "./file_list.pl 製品名"（または "../../request/download/file_list.pl 製品名"）の形式で呼ばれ、製品のファイル一覧を出力する
# 任意コマンドの実行を防ぐため、file_list.pl と製品名（ディレクトリ名）以外は受け付けない
use FindBin qw($Bin);
my $q = $ENV{'QUERY_STRING'} ;
$q =~ s/%([0-9a-fA-F]{2})/pack("C", hex($1))/eg ;
if($q =~ /^(?:\.{1,2}\/|[\w\-]+\/)*file_list\.pl\s+([\w\-][\w.\-]*)\s*$/ && $1 !~ /\.\./){
my $product = $1 ;
chdir($Bin) ;
exec($^X, "$Bin/file_list.pl", $product) ;
}
print "Content-type: text/html\n\n" ;
exit(0);
|
Vol.118：カナダ セントポール病院
病院の救急部門における対応プロセスの最適化
#!/usr/bin/perl
# SSIから "./file_list.pl 製品名"（または "../../request/download/file_list.pl 製品名"）の形式で呼ばれ、製品のファイル一覧を出力する
# 任意コマンドの実行を防ぐため、file_list.pl と製品名（ディレクトリ名）以外は受け付けない
use FindBin qw($Bin);
my $q = $ENV{'QUERY_STRING'} ;
$q =~ s/%([0-9a-fA-F]{2})/pack("C", hex($1))/eg ;
if($q =~ /^(?:\.{1,2}\/|[\w\-]+\/)*file_list\.pl\s+([\w\-][\w.\-]*)\s*$/ && $1 !~ /\.\./){
my $product = $1 ;
chdir($Bin) ;
exec($^X, "$Bin/file_list.pl", $product) ;
}
print "Content-type: text/html\n\n" ;
exit(0);
|
|
Vol.119：米国 General Motors
車体のサブアセンブリ部品組立プロセスにおける最適化
#!/usr/bin/perl
# SSIから "./file_list.pl 製品名"（または "../../request/download/file_list.pl 製品名"）の形式で呼ばれ、製品のファイル一覧を出力する
# 任意コマンドの実行を防ぐため、file_list.pl と製品名（ディレクトリ名）以外は受け付けない
use FindBin qw($Bin);
my $q = $ENV{'QUERY_STRING'} ;
$q =~ s/%([0-9a-fA-F]{2})/pack("C", hex($1))/eg ;
if($q =~ /^(?:\.{1,2}\/|[\w\-]+\/)*file_list\.pl\s+([\w\-][\w.\-]*)\s*$/ && $1 !~ /\.\./){
my $product = $1 ;
chdir($Bin) ;
exec($^X, "$Bin/file_list.pl", $product) ;
}
print "Content-type: text/html\n\n" ;
exit(0);
|
Vol.120：英国 Westland Helicopter
エンジン吸気口スクープの形状最適設計
#!/usr/bin/perl
# SSIから "./file_list.pl 製品名"（または "../../request/download/file_list.pl 製品名"）の形式で呼ばれ、製品のファイル一覧を出力する
# 任意コマンドの実行を防ぐため、file_list.pl と製品名（ディレクトリ名）以外は受け付けない
use FindBin qw($Bin);
my $q = $ENV{'QUERY_STRING'} ;
$q =~ s/%([0-9a-fA-F]{2})/pack("C", hex($1))/eg ;
if($q =~ /^(?:\.{1,2}\/|[\w\-]+\/)*file_list\.pl\s+([\w\-][\w.\-]*)\s*$/ && $1 !~ /\.\./){
my $product = $1 ;
chdir($Bin) ;
exec($^X, "$Bin/file_list.pl", $product) ;
}
print "Content-type: text/html\n\n" ;
exit(0);
|
|
Vol.121：カナダ Hevvy Pump社
スラリーポンプインペラの効率最大化
#!/usr/bin/perl
# SSIから "./file_list.pl 製品名"（または "../../request/download/file_list.pl 製品名"）の形式で呼ばれ、製品のファイル一覧を出力する
# 任意コマンドの実行を防ぐため、file_list.pl と製品名（ディレクトリ名）以外は受け付けない
use FindBin qw($Bin);
my $q = $ENV{'QUERY_STRING'} ;
$q =~ s/%([0-9a-fA-F]{2})/pack("C", hex($1))/eg ;
if($q =~ /^(?:\.{1,2}\/|[\w\-]+\/)*file_list\.pl\s+([\w\-][\w.\-]*)\s*$/ && $1 !~ /\.\./){
my $product = $1 ;
chdir($Bin) ;
exec($^X, "$Bin/file_list.pl", $product) ;
}
print "Content-type: text/html\n\n" ;
exit(0);
|
Vol.122：カナダ Empower Operations Corp.
SOLIDWORKSにプラグインしたOASIS AIよるフライホイール形状最適化
#!/usr/bin/perl
# SSIから "./file_list.pl 製品名"（または "../../request/download/file_list.pl 製品名"）の形式で呼ばれ、製品のファイル一覧を出力する
# 任意コマンドの実行を防ぐため、file_list.pl と製品名（ディレクトリ名）以外は受け付けない
use FindBin qw($Bin);
my $q = $ENV{'QUERY_STRING'} ;
$q =~ s/%([0-9a-fA-F]{2})/pack("C", hex($1))/eg ;
if($q =~ /^(?:\.{1,2}\/|[\w\-]+\/)*file_list\.pl\s+([\w\-][\w.\-]*)\s*$/ && $1 !~ /\.\./){
my $product = $1 ;
chdir($Bin) ;
exec($^X, "$Bin/file_list.pl", $product) ;
}
print "Content-type: text/html\n\n" ;
exit(0);
|
|
Vol.138：電力中央研究所
CRUNCH CFDによる水配管オリフィス部フラッシング流のCFD計算
#!/usr/bin/perl
# SSIから "./file_list.pl 製品名"（または "../../request/download/file_list.pl 製品名"）の形式で呼ばれ、製品のファイル一覧を出力する
# 任意コマンドの実行を防ぐため、file_list.pl と製品名（ディレクトリ名）以外は受け付けない
use FindBin qw($Bin);
my $q = $ENV{'QUERY_STRING'} ;
$q =~ s/%([0-9a-fA-F]{2})/pack("C", hex($1))/eg ;
if($q =~ /^(?:\.{1,2}\/|[\w\-]+\/)*file_list\.pl\s+([\w\-][\w.\-]*)\s*$/ && $1 !~ /\.\./){
my $product = $1 ;
chdir($Bin) ;
exec($^X, "$Bin/file_list.pl", $product) ;
}
print "Content-type: text/html\n\n" ;
exit(0);
|
Vol.139：電力中央研究所
水配管破断時におけるフラッシング噴流解析（１）
#!/usr/bin/perl
# SSIから "./file_list.pl 製品名"（または "../../request/download/file_list.pl 製品名"）の形式で呼ばれ、製品のファイル一覧を出力する
# 任意コマンドの実行を防ぐため、file_list.pl と製品名（ディレクトリ名）以外は受け付けない
use FindBin qw($Bin);
my $q = $ENV{'QUERY_STRING'} ;
$q =~ s/%([0-9a-fA-F]{2})/pack("C", hex($1))/eg ;
if($q =~ /^(?:\.{1,2}\/|[\w\-]+\/)*file_list\.pl\s+([\w\-][\w.\-]*)\s*$/ && $1 !~ /\.\./){
my $product = $1 ;
chdir($Bin) ;
exec($^X, "$Bin/file_list.pl", $product) ;
}
print "Content-type: text/html\n\n" ;
exit(0);
|
|
Vol.140：電力中央研究所
水配管破断時におけるフラッシング噴流解析（２）
#!/usr/bin/perl
# SSIから "./file_list.pl 製品名"（または "../../request/download/file_list.pl 製品名"）の形式で呼ばれ、製品のファイル一覧を出力する
# 任意コマンドの実行を防ぐため、file_list.pl と製品名（ディレクトリ名）以外は受け付けない
use FindBin qw($Bin);
my $q = $ENV{'QUERY_STRING'} ;
$q =~ s/%([0-9a-fA-F]{2})/pack("C", hex($1))/eg ;
if($q =~ /^(?:\.{1,2}\/|[\w\-]+\/)*file_list\.pl\s+([\w\-][\w.\-]*)\s*$/ && $1 !~ /\.\./){
my $product = $1 ;
chdir($Bin) ;
exec($^X, "$Bin/file_list.pl", $product) ;
}
print "Content-type: text/html\n\n" ;
exit(0);
|
Vol.141：トヨタ自動車
乗用車の空気抵抗に関するVFBasis解析事例の紹介
#!/usr/bin/perl
# SSIから "./file_list.pl 製品名"（または "../../request/download/file_list.pl 製品名"）の形式で呼ばれ、製品のファイル一覧を出力する
# 任意コマンドの実行を防ぐため、file_list.pl と製品名（ディレクトリ名）以外は受け付けない
use FindBin qw($Bin);
my $q = $ENV{'QUERY_STRING'} ;
$q =~ s/%([0-9a-fA-F]{2})/pack("C", hex($1))/eg ;
if($q =~ /^(?:\.{1,2}\/|[\w\-]+\/)*file_list\.pl\s+([\w\-][\w.\-]*)\s*$/ && $1 !~ /\.\./){
my $product = $1 ;
chdir($Bin) ;
exec($^X, "$Bin/file_list.pl", $product) ;
}
print "Content-type: text/html\n\n" ;
exit(0);
|
|
|
