#!/usr/bin/perlusestrict;usewarnings;# тактовая частотаmy$Fcpu=20e6;# сопротивление и ёмкостьmy$RC=22e3*10e-9;# опорное напряжениеmy$Vref=1.23;# минимальное время в тактахmy$CntMin=1024;# максимальное время в тактахmy$CntMax=3072;# размер таблицыmy$TableSize=64;print"{";formy$i(0..$TableSize){my$cnt=$CntMin+($CntMax-$CntMin)*$i/$TableSize;my$t=$cnt/$Fcpu;my$v=$Vref/ (1 - exp(-$t /$RC));print"\n\t"if($i%8==0);#print "/*$cnt*/ ";printf"%3d, ",int($v*100);}print"\n};";