请问一下可以把VCD文件转成VEC文件用于spice仿真吗？

3301 VCD SPICE

问答对人有帮助，内容完整，我也想知道答案 0 [可以把VCD文件转成VEC文件用于spice仿真 0
2021-6-23 16:55:26　　评论淘帖0 邀请回答您可以邀请以下用户，快速回答问题 × jerry1978 该类别下有 6 个回答。邀请回答唯安an 该类别下有 5 个回答。邀请回答 liese 该类别下有 4 个回答。邀请回答 vnwueurw 该类别下有 4 个回答。邀请回答 h1654155957.9852 该类别下有 4 个回答。邀请回答 LY90186 该类别下有 4 个回答。邀请回答 hjh22678 该类别下有 4 个回答。邀请回答 vtwterwer 该类别下有 4 个回答。邀请回答 ChristineGu 该类别下有 4 个回答。邀请回答 bei232 该类别下有 4 个回答。邀请回答 diaoshayu 该类别下有 4 个回答。邀请回答 nyvvhxcs 该类别下有 4 个回答。邀请回答周小舟1 该类别下有 4 个回答。邀请回答 LynnQ 该类别下有 3 个回答。邀请回答 nvski 该类别下有 3 个回答。邀请回答 ben233 该类别下有 3 个回答。邀请回答报纸弟弟麦花该类别下有 3 个回答。邀请回答 nvywyer 该类别下有 3 个回答。邀请回答胡德胜快回答该类别下有 3 个回答。邀请回答 jfuwre 该类别下有 3 个回答。邀请回答举报手托初梦相关推荐 • 请问如何将spice文件（.cir）转换为Hspice（.sp）或者后缀（.spc） 7207 • 如何将spice文件（.cir）转换为Hspice（.sp）或者后缀（.spc）？ 271 • 请问如何将adi的spice模型（.cir文件）添加到pspice里？ 6959 • 如何将adi的spice模型（.cir文件）添加到pspice里？ 597 • 请问AD539没有spice模型如何仿真 4972 • cadence突然使用不了，请帮忙把一个BRD格式文件转成AD可以打开的文件 3121 • AD539没有spice模型，该如何仿真？ 300 • 谁用过eagle，帮我把eagle文件转成pads文件，谢谢 3540 • 用multisim画元件仿真时用的spice文件，在哪儿才能下载到呢？ 4307 • 用Cadence Sigrity仿真DDR模组，怎么提取出.ckt的MCP头文件 44562 1个回答

答案对人有帮助，有参考价值 0 #!/usr/bin/perl if(@ARGV == 0) { printf ("*******************************n"); printf (" Usage: ./vcd2vec.pl VCD_NAME n"); printf ("******************************n"); exit; } $vcd_name = $ARGV[0]; open(VCD, $vcd_name); $vec_name = $vcd_name.".vec"; open(VEC, ">$vec_name"); my %signal_width; my %signal_fname; my %signal_value; my @sarray; my @array; my @sub_array; my $item; my $sub_item; my $line; my $full_name; my $dump_beg; my $unit = 1; my $ts_en; while($line = ) { if($line =~ /^$timescale$/) { $ts_en = 1; } if($line =~ /^$end$/) { $ts_en = 0; } if($ts_en == 1 && $line =~ /^s(d+)ps$/) { $unit = 1000/$1; } if($line =~ /^$scopes+(S+)s+(S+)s+$ends$/) { push(@array, $2); #printf("@arrayn"); } if($line =~ /^$upscopes+$ends$/) { pop(@array); #printf("@arrayn"); } if($line =~ /^^$vars+(S+)s+(S+)s+(S+)s+(S+)s+$end$/) { $full_name = &array2hir(@array)."$4"; #printf ("$full_namen"); $signal_fname{$3} = $full_name; $signal_width{$3} = $2; } if($line =~ /^$dumpvars$/) { $dump_beg = 1; @sarray = &Sig2Arr(%signal_width); &prt_hdr_vec(VEC, %signal_fname); $str = "0 "; &myprt(VEC, $str, 16); } if($dump_beg==1) { if ($line =~ /^#(d+)$/) { foreach $item (@sarray) { if(!exists($signal_value{$item})) { printf ("Signal names Wrongn"); exit; } if($signal_width{$item} == 1) { printf VEC (" $signal_value{$item}"); }else { @sub_array = split("", $signal_value{$item}); foreach $sub_item (@sub_array) { printf VEC (" $sub_item"); } } } printf VEC ("n"); $str = $1/$unit." " ; &myprt(VEC, $str, 16); } if ($line =~ /^([01xz])(S+)$/) { $signal_value{$2} = $1; } if ($line =~ /^b(S+)s+(S+)$/) { $signal_value{$2} = $1 } } } foreach $item (@sarray) { if(!exists($signal_value{$item})) { printf ("Signal names Wrongn"); exit; } if($signal_width{$item} == 1) { printf VEC (" $signal_value{$item}"); }else { @sub_array = split("", $signal_value{$item}); foreach $sub_item (@sub_array) { printf VEC (" $sub_item"); } } } close(VCD); close(VEC); printf ("Output File: $vec_namen"); sub array2hir { my @array = @_; my $hir; my $len = @array; for $i(0..$len-1) { $hir .= "$array[$i]/"; } return $hir; } sub get_name { my $src_name = @_; my @array = split(".", $src_name); my $len = @array; my $name; foreach my $i (0 .. $len-2) { $name .= "$array[$i]"; } return $name; } sub myprt { my ($FHANDLE, $str, $len) = @_; $len = $len-1-length($str); foreach $i (0..$len) { printf $FHANDLE (" "); } printf $FHANDLE ("$str"); } sub Sig2Arr { my (%signal_width) = @_; my @sarray; foreach my $item (keys(%signal_width)) { push(@sarray, $item); } return @sarray; } sub prt_hdr_vec { my ($FHANDLE, %signal_fname) = @_; printf $FHANDLE ("logichv 1n"); printf $FHANDLE ("logichv 0n"); my $str; my $len; $str = "signal "; printf $FHANDLE ("$str"); foreach $item(keys(%signal_fname)) { $str = $signal_fname{$item}; $len = length($str) + 1; &myprt($FHANDLE, $str, $len); } $str = "nradix "; printf $FHANDLE ("$str"); foreach $item(keys(%signal_fname)) { $str = $signal_fname{$item}; $len = length($str) + 1; $str = "1"; &myprt($FHANDLE, $str, $len); } $str = "nio "; printf $FHANDLE ("$str"); foreach $item(keys(%signal_fname)) { $str = $signal_fname{$item}; $len = length($str) + 1; $str = "b"; &myprt($FHANDLE, $str, $len); } printf $FHANDLE ("n"); }

2021-6-23 18:33:23 评论举报王红