One option is to use <<Get Formula with Is Empty()
Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Big Class.jmp");
col1 = dt << New Column("Ratio", Numeric, Continuous);
col1 << Formula(:height / :weight);
wait(1);
For Each({col_name}, dt << Get Column Names("String"),
	col = Column(dt, col_name);
	If(!Is Empty(col << get formula),
		Column(dt, col_name) << Delete Formula
	);
);
Scripting Index has a lot of information and you can find it directly from JMP's menu Help / Scripting Index

If you add those formulas yourself and don't really need them for formula usage, you can avoid adding them all together by using << Set Each Value()
					
				
			
			
				
	-Jarmo