[ADJUST THE EXAMPLE INPUT AS DESIRED; THE COPY AND PASTE INTO A SPSS SYNTAX WINDOW AND RUN; OUTPUT BOTH TO SPREADSHEET AND OUTPUT WINDOW].
This program uses R-squared, the multiple correlation, as the effect size, which may also be expressed as Cohen's f= R-sq/(1-R-sq) (see http://en.wikipedia.org/wiki/Effect_size#Cohen.27s_d) as an effect size in regressions including one-way anovas as a special case.
Alpha is the (two-tailed) type I error, g is the number of groups, ntot is the total sample size and r-sq is the multiple correlation. The program then outputs the power.
DATA LIST free /alpha g ntot rsq. BEGIN DATA. .05 3 40 0.3 END DATA. matrix. get m /variables=alpha g ntot rsq /missing=omit. compute alpha=make(1,1,0). compute g=make(1,1,0). compute ntot=make(1,1,0). compute rsq=make(1,1,0). compute alpha=m(:,1). compute g=m(:,2). compute ntot=m(:,3). compute rsq=m(:,4). end matrix. COMPUTE power = 1 - NCDF.F(IDF.F(1-ALPHA,G-1,NTOT-G),G-1,NTOT-G,NTOT*RSQ/(1-RSQ)). EXE. formats ntot (f7.0) alpha (f5.2) g (f5.2) rsq (f5.2) power (f5.2). variable labels ntot 'Total Sample Size' /alpha 'Alpha' /rsq 'R-squared' /power 'Power'. report format=list automatic align(center) /variables=ntot alpha g rsq power /title "One way ANOVA power for given total sample size" .