Мне нужно создать плоский азот(а так- он пирамидальный) но как сделать, чтобы уголы не сбивались?
Что и куда поставить, а то я как-то не понял...
Вот для примера молекулка.
Код: Выделить всё
$CONTRL RUNTYP=Optimize $END
$CONTRL SCFTYP=RHF $END
$CONTRL COORD=ZMT UNITS=ANGS $END
$CONTRL MAXIT=90 $END
$CONTRL DFTTYP=B3LYP1 $END
$CONTRL ICHARG=0 MULT=1 $END
$SYSTEM MWORDS=200 $END
$statpt IFREEZ(1) = 1,3,4, 1,3,5, $end
$BASIS GBASIS=N311 NGAUSS=6 $END
$basis ndfunc=1 diffsp=.t. elneg(1)=7,8,35,17,16 $end
$SCF DIRSCF=.TRUE. $END
$CONTRL NOSYM=1 $END
$DATA
c1
C
H 1 1.1060149
N 2 2.0551022 1 37.7267443
H 3 1.0067089 1 120.0000000 2 0.2146434 0
H 3 1.0089531 1 120.0000000 2 179.5855817 0
O 1 1.2111976 3 125.0756702 4 -179.7973404 0
$END